hallo,
kleines problem.
wenn ich den befehl GetPixel nur einmal ausführe hier, wird die farbe auf dem screen richtig erkannt, asuche ich allerdings auch noch nach der ZWEITEN koordinate, wird selbst die erste nicht richtig erkannt (sprich das panel färbt sich nicht blau).
muss ich jedes mal bevor ich ne neue koordinate absuche den
DC neu holen? oder liegt das problem bei AColor und ich muss die erst releasen bevor ich die zweite koordinate suche oO ?
Code:
procedure TForm1.Button2Click(Sender: TObject);
var
dc:hdc;
AColor : Array[1..4] of Byte;
hwnd:hwnd;
...
begin
...
DC := GetDC(hwnd);
//blau
DWord(AColor) := GetPixel(
dc,410,412);
if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60) and (AColor[3] > 240) then
begin
panel1.color :=clblue;
end;
DWord(AColor) := GetPixel(
dc,460,412);
if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60) and (AColor[3] > 240) then
begin
panel2.color :=clblue;
end;
danke