Lazarus freeze en exécution

Bonjour,

je souhaite créer un bouton On/Off qui lance un petit dessin, ou en arrête l'exécution.
Avant de continuer plus loin, j'ai voulu tester le principe suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var x,y : integer; begin if button1.Caption='Go !!!' then Button1.Caption:='Stop...' else button1.Caption:='Go !!!'; button1.Repaint; while button1.Caption='Stop...' do begin x:=round(random*PaintBox1.canvas.width)+1; y:=round(random*PaintBox1.canvas.height)+1; paintbox1.Canvas.moveto(x,y); paintbox1.canvas.lineto(x+1,y+1); end; end;

---

Le Repaint me permet de mettre à jour le caption, qui sinon ne change pas, mais malgré cela, le clic sur le bouton Stop ne stoppe rien et le programme continue de placer des points sans réagir au clic.

Quelle méthode faudrait-il utiliser ?

Et, autre question : suis-je obligé de placer un moveto, lineto, ou existe-t-il un moyen de placer un point, genre putpixel de turbopascal ?

Merci.

Seb.

J'ai une partie de la réponse : l'utilisation de canvas.pixels[x,y] me permet de tester ou de redéfinir la couleur d'un point.

En revanche, j'en trouve l'exécution excessivement lente. C'est normal ?

Seb.

Citation:

---

Envoyé par netsabes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var x,y : integer; begin if button1.Caption='Go !!!' then Button1.Caption:='Stop...' else button1.Caption:='Go !!!'; button1.Repaint; while button1.Caption='Stop...' do begin x:=round(random*PaintBox1.canvas.width)+1; y:=round(random*PaintBox1.canvas.height)+1; paintbox1.Canvas.moveto(x,y); paintbox1.canvas.lineto(x+1,y+1); end; end;

---

---

Salut

Tu viens de créer une boucle infinie .... La condition button1.Caption='Stop...' est toujours vraie, donc ta boucle ne s'arrete jamais, et donc ta fenetre "freeze" ...

Pour ton probleme, il ne faut pas que tu crées de boucle comme tu l'a fait. Utilise le composant TTimer, qui permet de répéter une action toutes les N secondes.

Donc, tu poses ton composant TTimer, et dans son évenement onTimer, tu dessines un point aléatoire sur le Canvas de ta PaintBox. Ensuite, le TButton devra simplement activer ou désactiver le Timer via sa propriété Active. (Timer.Active:=false);

Tu peux modifier la propriété Interval du TTimer pour augmenter ou réduite le temps d'attente entre 2 évenements OnTimer.

Bonne chance ;)

Ok, je pensais que le gestionnaire d'événements interceptait les événements même quand un autre processus était actif.

Du coup, lors de l'exécution de button1.clic, je pensais qu'il était capable de détecter un deuxième button1.clic.

Merci pour l'info.

Seb.