mit schleife strich zeichnen

[any_key]

aloah
ich würde gerne nen strich mit canvas zeichnen
allerdings soll man quasi zusehen können wie er gezeichnet wird also so das der strich immer länger wird
eigentlich könnte man sowas ja mit nem timer machen
in meinem fall muss ich aber viele linien zeichnen (die sich alle so wie oben beschrieben aufbauensollen)
meine frage ist jetzt ob ich es irgendwie machen kann das ich folgenden code benutze

Code:

for i:=1 to 100 do begin
  ImBild.Canvas.LineTo (i,100);
  sleep(100);
  end;

allerdings ist es bei diesem code so das ich wenn ich ihn benutze nur eine zeit warte und dann den fertigen strich da habe
aber ich will ja sehen wie der strich gezeichnet wird
kann mir da wer behilflich sein?

[fLaSh11]

analysiere mal den allerersten teil deiner schleife (wenn i=1),
dann steht da schon
LineTo(1,100) .
Was heißt, dass der Strich schon gezeichnet wird.

An deiner Stelle würde ich es für den "Zeichnen-Effekt" mit SetPixel versuchen.

[Helmi]

oder so:

Delphi-Quellcode:

for i:=1 to 100 do begin 
  ImBild.Canvas.LineTo (i,100); 
  Application.ProcessMessages;
  sleep(100);
  end;

[Cyberbob]

Jo, du musst Application.Processmessages verwenden, um die einzellnen schritte sehen zu können. Da die schleife sonst abgearbeitet wird und du nur das fertige ergebnis siehst.

[any_key]

jo danke
mit Application.Processmessages funktioniert es