Durchgehend zeichnen mit canvas

[Mirilin]

Delphi-Quellcode:

{MD steht für MouseDown : Boolean, und OldP wäre TPoint}
procedure TMainForm.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if not MD then Exit;
 // Bit.Canvas.MoveTo(OldP.X,OldP.Y);
  Bit.Canvas.LineTo(X,Y);
 // OldP := Point(X,Y);
  PaintBoxPaint(Self);
end;

procedure TMainForm.PaintBoxMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MD := True;
  //OldP := Point(X,Y);
  Bit.Canvas.MoveTo(X,Y)
end;

procedure TMainForm.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MD := False;
end;

Ich habs kurz so gemacht.


@Nicodius, erklär mir bitte kurz das "with Form1" ...

mfg Tobias