Discussion :

[ThWilliam]

Bonjour à tous.

Je fais un déplacement pixel par pixel d'un composant (un simple TPaintBox 20/20 avec dessin d'un rectangle).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i: integer;
begin
   for i:= 1 to 1000 do
   begin
     Paintbox1.Left:= i;
     Application.ProcessMessages;
     Sleep(1);
   end;
   Beep;
end;

Il faut 16 secondes pour parcourir les 1000 pixels (bien que le Sleep = 1 ms).
L'utilisation d'un Timer donne la même chose.

1000/16 = environ 60 images/seconde, ce qui correspond à la fréquence de mon écran (60Hz).
Ok, mais le même test avec le PaintBox rendu invisible prend aussi 16 secondes !!!
L'événement OnPaint n'est plus appelé (normal), et il me semble que le taux de rafraichissement écran-carte graphique ne devrait plus jouer.

Pouvez-vous me fournir une explication ?

Merci d'avance.
Cordialement
Thierry

PS: Lazarus v1.2.6 sous Windows7

[Jipété]

Salut,

Pouvez-vous me fournir une explication ?

non, car même en exécutant dans l'ide je suis loin des 16 secondes.

Je n'ai pas compté précisément, mais 16 secondes c'est loooooooooooooooooooooooong !

[EDIT] Je viens de mesurer : 1,3 sec avec ton code, 30 msec avec ma modif ci-dessous
Et respectivement 1,07 sec et 1 msec avec le composant non visible [/EDIT]

Ceci étant dit, pour speeder les choses, tu peux modifier ton code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
     if (i mod 20 = 0) then // ajout !
       Application.ProcessMessages;
     //Sleep(1);

Le résultat est quasi instantané, alors si tu veux voir ton composant se déplacer, va falloir adapter

[ThWilliam]

Salut Jipété,

Merci pour ta réponse.

En enlevant le Sleep(1) et sans mettre ton code if (i mod 20 = 0), le résultat est quasi instantané.
D'où l'obligation de "ralentir" de 1ms pour voir le déplacement. Mais de là à passer à 16 secondes !!!
Le but du jeu, c'est évidemment que je veux voir le composant se déplacer et de la manière la plus fluide possible.
Avec un Sleep(1), tu arrives à 1,3 sec !!?
J'ai pourtant un ordi performant, alors peut-on parler de miracle Linux ?
Je ne l'explique que par un "saut" dans l'affichage (un affichage tous les x pixels).

Cordialement
Thierry

[jurassic pork]

hello,
petite question à jipété : tu avais des graphiques dans la paintbox ?

[Jipété]

hello,
petite question à jipété : tu avais quelque chose de dessiner dans la paintbox ?

PaintBox de 33 x 33, code trouvé dans un wiki quelconque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  // set the brush color to the TPaintBox.Color
  PaintBox1.Canvas.Brush.Color := PaintBox1.Color;
  // and fill the background by yourself
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
  // and then draw an ellipse
  PaintBox1.Canvas.Brush.Color := clGreen;
  PaintBox1.Canvas.Ellipse(0, 0, 20, 20);
end;

[ThWilliam]

@ Jipété,

J'ai repris exactement ton code (dans lequel je vois que tu as supprimé le Sleep(1)), y compris ta procedure Paint.

Résultats :
1) Sans le Sleep de 1ms :

* avec le i mod 20 : entre 0 et 15 ms
* sans le i mod 20 : 75 ms

2) Avec le Sleep de 1ms :

* avec le i mod 20 : 10 secondes
* sans le i mod 20 : 10 secondes.

Donc je reformule ma question :
Comment se fait-il qu'en ajoutant une temporisation de 1ms ( soit 1 seconde pour la boucle de 1000), l'on passe de 75 ms à 10 secondes ?

Cordialement
Thierry

[Jipété]

Avec un Sleep(1), tu arrives à 1,3 sec !!?
J'ai pourtant un ordi performant, alors peut-on parler de miracle Linux ?

Et moi une vieille rougne de 5/6 ans environ, 4 gig de mem et un proc double cœur à 3 GHz.

Voilà comment j'ai joué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  starttime,endtime: integer;
begin
   starttime:=getTickCount;
   for i:= 1 to 1000 do
   begin
     Paintbox1.Left:= i;
     if (i mod 20 = 0) then
       Application.ProcessMessages;
     //Sleep(1);
   end; 
   Beep;
   endtime:=getTickCount-starttime;
   caption := inttostr(endtime);
end;

[Jipété]

Bon.

Ben, sans vouloir te chasser, mais peut-être que tu devrais poster dans le forum Delphi, parce que le code c'est du bête Pascal et l'OS qui se traîne c'est ouinouin, donc Pascal + ouinouin >>> Delphi

Sinon, si tu le sens, tu fais un exe 32 bits avec 2 Checkbox (une pour prendre en compte ou pas (i mod 20), l'autre pour le sleep(1)) et je pourrai tester dans ma VM XP.

Pas d'autre idée...