Hi,
mit folgendem Code wählst du mit der rechten Maustaste die Farbe aus und mit der linken füllst du das Rechteck.
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if classes.ssRight in Shift then
Canvas.Brush.Color:= Canvas.Pixels[x, y];
if classes.ssLeft in Shift then
Canvas.FloodFill(x, y, Canvas.Pixels[x, y] ,graphics.fsSurface);
end;
EDIT: kleinen Fehler behoben