Durchgehend zeichnen mit canvas

[Skiron]

Zitat von supermuckl:

Zitat:

Das wirst du sehen, wenn du dann dein Formular umbenennst!

naja aber doch gerade dann hast es ja leichter.. must nur einen namen ändern und nicht in jeder zeile form1.bla ändern

am einfachsten hättest du es, wenn dus total weg lassen würdest, also statt

Delphi-Quellcode:

procedure TForm1.StiftDraw(x, y: Integer);
begin
  with Form1 do begin
    if not FC then begin
      Paintbox1.Canvas.Pen.Color := Farbe;
      PaintBox1.Canvas.MoveTo(MOldPo.X, MOldPo.Y);
      PaintBox1.Canvas.LineTo(Xold, Yold);
    end
    else
      FC := False;
    ...
  end;
end;

einfach

Delphi-Quellcode:

procedure TForm1.StiftDraw(x, y: Integer);
begin
  if not FC then begin
    Paintbox1.Canvas.Pen.Color := Farbe;
    PaintBox1.Canvas.MoveTo(MOldPo.X, MOldPo.Y);
    PaintBox1.Canvas.LineTo(Xold, Yold);
  end
  else
    FC := False;
  ...
end;

am besten wärs so:

Delphi-Quellcode:

procedure TForm1.StiftDraw(x, y: Integer);
begin
  with Paintbox1.Canvas do begin
    if not FC then begin
      Pen.Color := Farbe;
      MoveTo(MOldPo.X, MOldPo.Y);
      LineTo(Xold, Yold);
    end
    else
      FC := False;
    ...
  end;
end;