Discussion :

[antoww42]

Bonjour à tous,

Dans un panel, j'ai une image. Et je la fais déplacer avec ce code :

Code :

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

1
2
3
4
Panel->Repaint();
Image->Top = Image->Top + 78;
Image->Repaint();
Sleep(20);

Mon problème, c'est que lorsque l'image se déplace, j'ai une sorte de scintillement de l'image et du panel, des traits horizontaux et verticaux sur le panel et l'image.

Avez-vous une solution ?


Je vous remercie,


Anthony

[Sunchaser]

Bonjour,

Regarde du côté de:

Code :

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

1
2
 
DoubleBuffered = true;

a placer dans le contructeur de la TForm (de mémoire).

@+

[henderson]

Salut !

Je pense que tu es très mal parti :

Panel->Repaint();
Image->Top = Image->Top + 78;
Image->Repaint();
Sleep(20);

Les objets de la VCL sont des objets initialement conçus pour la bureatique (positionnement statique) !
Tenter de les détourner de ce contexte expose à des problèmes de scintillement !

Pourquoi Sleep ?

A plus !

[kmaniche]

Bonjour,

effectivement, il faut rajouter dans l'évenement OnCreate de la fiche :

Code :

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

1
2
 
Form1 -> DoubleBuffered = true ;