Bildschirm nach Farbe absuchen

[robzcop]

Huhu!

Wie kann man in Delphi den Bildschirm (bzw. einen Bereich) nach einer Farbeabsuchen und dann soll die Funktion nur einen Boolean Wert zurückgeben! (Mehr nicht! )

THX

Robz

[obbschtkuche]

z.B. so:

Delphi-Quellcode:

function FindPixel(DC: HDC;left, top, width, height: word; color: COLORREF): boolean;
var
 x,y: integer;
begin
 for x := left to left + width do
  for y := top to top + height do
   if GetPixel(dc, x, y) = color then
   begin
    result := true;
    exit;
   end;
 result := false;
end;

Aufrufen kannst du es z.B. dann so:

if FindPixel(canvas.Handle, 0, 0, 100, 100, RGB(255,0,0)) then ...