...get the pixel color in a canvas on the current mouse position?

Author: Horst Kniebusch
Homepage: http://members.tripod.de/Kniebusch

Category: Graphic

{
  Shows the color of a canvas pixel at the current mouse position:
  
  Zeigt die Farbe des Pixels eines Canvas an der jeweiligen Mausposition an:
}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  
Form1.Color := Image1.Canvas.Pixels[x, y];
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base