Kolor pod kursorem

0

Czy moglby mi ktos powiedziec jak pobrac kolor znajdujacy sie pod kursorem w obrebie komponetu image ??

0 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Caption := ColorToString(Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);
end;
0

Dzieki, dziala dobrze ;]

1 użytkowników online, w tym zalogowanych: 0, gości: 1