Belistift / Pinsel

[KLS]

Meinst du z.b. das?

Delphi-Quellcode:

var
  Form1: TForm1;
  oldpoint : tpoint;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  image1.Canvas.LineTo(oldpoint.X+1,oldpoint.Y+1);
  oldpoint.x := x;
  oldpoint.y := y;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldpoint.X := 0;
  oldpoint.Y := 0;
end;