|
(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: Farbauswahl
22. Aug 2003, 16:43
So blöd bin ich auch nicht. 
Code:
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Color:=PaintBox1.Canvas.Pixels[x,y];
end;
Gruß Matze
|