Thema: Delphi TColorDialog

Einzelnen Beitrag anzeigen

waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#5

Re: TColorDialog

  Alt 27. Dez 2009, 09:51
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;
  Mit Zitat antworten Zitat