Discussion :

[naute]

Bonjour,

pour les besoins de mon application, je dois faire défiler un TImage contenant un texte, écrit à l'aide de la méthode "textOut", du bas vers le haut sur l'écran en faisant varier sa propriété .top dans un évènement "onTimer". Tout fonctionne comme il faut mais il se produit un scintillement gênant lors du déplacement.
Y a-t'il un moyen de remédier à ce problème? (et, si oui, lequel)

J'utilise, ici, Delphi 2005 (Turbo Delphi) sous Windows 7.

Merci, à bientôt,

Naute.

[Paul TOTH]

bascule la propriété DoubleBuffered de la fiche à True

[naute]

Bonjour,

merci pour ta réponse.

Je viens de la mettre en œuvre, mais le scintillement est toujours là. Comme c'est une fiche MDIChild, j'ai également mis la propriéte de la MDIForm à "True", à tout hasard (je ne connais pas le mécanisme), mais sans résultat.

Y a-t'il une autre piste?

Cordialement,

naute?

[Paul TOTH]

un petit bout de code ? que fait le Timer ? simplement modifier Image1.Top ? la fiche est-elle le parent direct de l'image ?

[naute]

Re,

voici le petit bout de code concerné.

Pour la fiche fsMDIForm "Base" qui contient la fiche enfant "Affichage", propriétaire du TImage "Afficheur":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TBase = class(TForm)
  ...
Defilement: TTimer;
  ...
implementation
  ...
procedure TBase.DefilementTimer(Sender: TObject);
//Incrémente la "Position" de "TBCurseur" (TrackBar) se trouvant dans la fiche "Afficheur"
begin
Affichage.TBCurseur.Position := Affichage.TBCurseur.Position +1;
end;

Pour la fiche fsMDIChild "Affichage", dans laquelle défile le TImage "Afficheur":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TAffichage = class(TForm)
  ...
Afficheur: TImage;
TBCurseur: TTrackBar;
PanneauAffichage: TPanel
  ...
implementation
  ...
procedure TAffichage.TBCurseurChange(Sender: TObject);
begin
  AFFicheur.Top := -TBCurseur.Position + PanneauAffichage.Height div 2;
end;

Le TImage "Afficheur" est contenu dans le TPanel "PanneauAffichage".

Merci pour ton coup de main,

cordialement, naute.

Edit: Ta remarque concernant le parent direct du TImage m'a donné l'idée de mettre la propriété DoubleBuffered du TPanel parent à "True". Pas mieux.

[Paul TOTH]

est-ce que sous 2005 TPanel a déjà la propriété ParentBackground ? si oui passe là à False.