Dessiner lentement?Résolu

Question

Bonjour,
N'ayant pas trouver de solution, je demande votre éclairage.
Voilà, je dessine un graphe sur un PaintBox.PaintBox1Paint(Sender: TObject); appelle DessineCourbe;
dans laquelle je dessine mes axes et ma courbe. Je souhaiterai que cette courbe se dessine lentement, sans clignotemen!
Qu'elle technique me conseillez-vous?
Utilisation d'un timer?
Dois-je introduire une boucle supplémentaire dont je pourrai régler la borne?
Voici le code DessineCourbe; 
    for i := 0 to High(Pts) do
    begin
      Pts[i].X := origin.x + Round(ValRad * xPts / Pi);
      Pts[i].Y := origin.y - Round(Sin(ValRad) * yPts);
      ValRad   := ValRad + Pas;
    end;
    Polyline(Pts);
Merci.

Jean_Jean

Guillemouze · Accepted Answer

moi je ferai comme ca :
   for i := 0 to High(Pts) do
    begin
      Pts[i].X := origin.x + Round(ValRad * xPts / Pi);
      Pts[i].Y := origin.y - Round(Sin(ValRad) * yPts);
      ValRad   := ValRad + Pas;
    end;

MoveTo(Pts[0].X, Pts[0].Y)
for i := 1 to high(Pts) do
begin
    LineTo(Pts[i].X, Pts[i].Y);
    Application.ProcessMessages; // tu as peut etre pas besoin de ca
    sleep(30);
end;

cs_Jean_Jean · Answer

Génial Guillemouze!
J'avais oublié cette instruction sleep.
ça marche également sans processMessage. pourtant, cela doit bien faire appel à elle.
Merci
Jean_Jean

Dessiner lentement?

2 réponses

Votre réponse

Discussions similaires