Discussion :

[SLE]

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 :

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

LblDateHeure.Caption := DateTimeToStr(now);

et dans le OnPaint de la fiche :

Code :

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

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

[tourlourou]

essaye de mettre Form.DoubleBuffered:=True ?

[SLE]

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

[Lung]

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 ?

[SLE]

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

Code :

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

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 :

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

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

[SLE]

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.

[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

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.

@+