du musst erstmal das hier für dich klären
Zitat von
DeddyH:
Abgesehen davon muss man sich im Vorfeld überlegen, was ein "roter Punkt" eigentlich ist (Farb-Annäherung).
dann musst du doch einfach den Teil aus dem Tutorial, wo der wert zugewiesen wird umbauen und danach abfragen.
Beispiel(ungetestet):
Delphi-Quellcode:
procedure TForm1.MakeRed(Bit: TBitmap);
type
PixArray = array [1..3] of Byte;
var
p: ^PixArray;
h,w: Integer;
begin
for h:=0 to Bit.Height-1 do
begin
p:= Bit.ScanLine[h];
for w:=0 to Bit.Width-1 do
begin
if (p^[3]=255) then
begin
showmessage('Juchhu!!! Zeile: ' + IntToStr(h) + ' Spalte ' + IntToStr(w));
end;
Inc(p);
end;
end;
end;
[EDIT] 20mins... da kann man auch mal länger suchen
[edit 2]
Zitat:
Da fängts ja bei mir schon mit den PRoblemen an, nämlich wie mache ich das?
na (ganz einfach) so:
Delphi-Quellcode:
p^[1] // Entspricht dem Blau-Anteil
p^[2] // Entspricht dem Grün-Anteil
p^[3] // Entspricht dem Rot-Anteil