Mega Code Archive

 

Categories / Delphi / Graphic

 

Get the pixel color in a canvas on the current mouse position

Title: get the pixel color in a canvas on the current mouse position? { 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;