Discussion :

[niglo]

Salut,

J'essai désespérément de faire un texte défilant "correct" !
Pour l'instant, je fais tout simplement :

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Label1->Left -= 1;
    if ((Label1->Left + Label1->Width) < 0)
        Label1->Left = Form1->Width;
}

Ca fonctionne très bien, le texte défile, mais vu qu'il doit se redessiner souvent, il a un clignotement qui n'est pas agréable du tout.
Quelqu'un saurait-il comment atténuer (voire supprimer) le clignotement ???

Merci.

[pottiez]

Il y a une autre solution que le Left, tu met le Label sur toute la longueur de ta form (puisque vu ton code c'est la taille de ton défilement), tu met la propriété Alignment à taCenter, et enfin tu met ce code dans ton timer :

Code :

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

1
2
3
4
5
6
 
AnsiString texte ;
texte = Label->Caption ;
texte += texte[1] ;
texte.Delete(1,1) ;
Label->Caption = texte ;

si jamais ton texte n'est pas plus grand que la taille de ta form, tu complete par des espaces de facon à ce que ta chaine prenne toute la longueur de la Form.

[niglo]

OK merci pour ta réponse!
Je vais essayer

> EDIT : ce n'est pas vraiment ce que je cherche en fait. Je préfèrerai déplacer le label, mais en empêchant ce *!¤ù¤##@* de clignotement.

[Sunchaser]

Salut,
On peut essayer aussi en mettant la propriété DoubleBuffered de la TForm sur laquel sont les objects a true lors du OnActivate ou OnCreate de la TForm...
@ +

[damienlann]

genial le coup du double buffer. (c'est comme en opengl)

[niglo]

Je suis en train de regarder de ce côté la !
Merci pour l'info du double buffer

> EDIT : Ca marche nikel. Merci beaucoup !