Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Durchgehend zeichnen mit canvas

    Delphi
    by Nicodius, 23. Jun 2004
  das war nur weil ichs kopiert habe bei mir stehen ja noch andere sachen (paintbox :roll: )
  
  
  aber der code funktioniert zu 100%
• Forum: Multimedia

  Re: Durchgehend zeichnen mit canvas

    Delphi
    by Nicodius, 23. Jun 2004
  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;