Recent Posts
Selamat datang di Coding Delphi Land Weblog kumpulan source code pemogram delphi
(Bukan maksud untuk menggurui tetapi marilah kita berbagi ilmu tuk perkembangan kemajuan teknologi kita
Minggu, 15 November 2009
Get the pixel color in a canvas on the mouse position
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Color := Image1.Canvas.Pixels[x, y];
end;
Y: Integer);
begin
Form1.Color := Image1.Canvas.Pixels[x, y];
end;
0 komentar:
Posting Komentar