if routine für getpixel (brett vorm kopf)

[rhodan]

i see

hab das hier jetzt ausprobiert, allerdings hängt er sich mehr oder weniger auf, ziel war eigentlich das er nach jedem durchlauf X um 1 erhöht wenn die farbe nicht gefunden wurde.

Code:

var
x:integer;

...
x:=0;

  while panel1.Color = clwhite do
 begin
 DWord(AColor) := GetPixel(dc,506+x,554);
 
 //Blauanteil eines Fotos
  if (AColor[1] > 220) and (AColor[2] > 95) and (AColor[3] > 190) then
    panel1.color :=clBLUE;

  //Grünanteil eines fotos
  if (AColor[1] > 190) and (AColor[2] < 50) and (AColor[3] < 50) then
    panel2.color :=clGREEN;

 x:= +1;
   end;

ne idee?