Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Mit TCanvas "langsam" zeichnen

    Delphi
    by Helpliner, 4. Sep 2003
  Ja ich denke das habe ich verstanden, damit wäre es sogar möglich die Linie nicht erscheinen, sondern "zeichnen" zu lassen indem ich den Zähler einfach in kleinen schritten von x1,y1 nach x2,y2 erhöhe - richtig ?
• Forum: Multimedia

  Re: Mit TCanvas "langsam" zeichnen

    Delphi
    by Helpliner, 4. Sep 2003
  Danke! Ich hab das jetzt mal so umgesetzt:
  
  
  function warten(msecs:integer): Integer;
  var
  FirstTickCount:longint;
  begin
  FirstTickCount:=GetTickCount;
  repeat
  Application.ProcessMessages;
• Forum: Multimedia

  Mit TCanvas "langsam" zeichnen

    Delphi
    by Helpliner, 4. Sep 2003
  Hallo Leute,
  
  ich zeichne in einem Beispiel das Haus vom Nikolaus wie folgt:
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Canvas.Pen.Width:=3; //Breite der Linien
  Canvas.Pen.Color:=clRed; //Farbe = Rot
  Canvas.MoveTo(50,150); //und los...
  Canvas.LineTo(150,50);