Klasse Tool,
wenn man nun noch per Mouse (Pipette) die Farbe unter dem Cusor ermitteln könnte, wäre dies sicher ein weiteres Highlight.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
Var Pt:TPoint;
DC:HDC;
begin
GetCursorPos(Pt);
DC:=CreateDC('
DISPLAY',
NIL,
NIL,
NIL);
label1.Caption := inttostr(GetPixel(
DC,Pt.x,Pt.y));
End;