[D2007 Win32] Problème de refresh du Canvas avec un TTimer

Version imprimable

13/12/2007, 15h58
SLE

[D2007 Win32] Problème de refresh du Canvas avec un TTimer

Bonjour,

Dans une appli MDI, j'ai une barre de statut avec un TLabel qui affiche la date et l'heure courante. Ce TLabel est rafraîchi via un TTimer toutes les secondes. La fiche contient un logo (bitmap) au niveau du canvas.
Mon problème, c'est que quand le TTimer est actif, le logo à un effet de "flash". Comment remédier à ce problème ?
Merci.

Dans le OnTimer, j'ai ceci :

Code:

LblDateHeure.Caption := DateTimeToStr(now);

et dans le OnPaint de la fiche :

Code:

if not FondBmp.Empty then self.Canvas.Draw(200,200,FondBmp);
13/12/2007, 17h39
tourlourou

essaye de mettre Form.DoubleBuffered:=True ?
14/12/2007, 08h44
SLE

Ca ne change pas grand chose... Il y a une très légère amélioration, mais ça scintille toujours...
14/12/2007, 08h52
Lung

Citation:

Envoyé par SLE

Ca ne change pas grand chose... Il y a une très légère amélioration, mais ça scintille toujours...

Ton image est dirrectement posée sur ta Form ?
Il n'y a pas un Panel intermédiaire ?

A la création de la fiche, je charge un fichier dans un TBitmap
Code:

1 2 3 4 Fondbmp:=TBitmap.Create; FondBmp.Transparent := True; FondBmp.TransparentColor := clWhite; if FileExists(Memvar.m_pathlogo) then Fondbmp.LoadFromFile(Memvar.m_pathlogo) else ShowMessage('Erreur Config Logo - Non trouvé !');
et dans le OnPaint je fais

Code:

if not FondBmp.Empty then self.Canvas.Draw(200,200,FondBmp);

14/12/2007, 09h32
SLE

Citation:

Il n'y a pas un Panel intermédiaire ?

Et oui... il suffit de placer un TPanel en Align 'alClient' sur la fiche et le scintillement disparaît... Merveilleux !!! Merci.
18/12/2007, 10h42
SLE

Citation:

Envoyé par SLE

Et oui... il suffit de placer un TPanel en Align 'alClient' sur la fiche et le scintillement disparaît... Merveilleux !!! Merci.

Bon ben j'ai parlé un peu vite... Oui le scintillement disparaît, mais il n'est pas le seul !!! Les filles MDI aussi ne s'affichent plus, puisqu'elles sont en arrière plan et donc masquées par le panel :aie::aie:

J'ai quand même trouvé une autre solution, qui elle, fonctionne parfaitement. Plus besoin d'un panel en fond de fiche. Il suffit de mettre la propriété AlphaBlend à True et AlphaBlendValue à 255 et le scintillement disparaît. :yaisse2:

@+