Discussion :

[ephemeride]

Bonjour,
Voici mon problème:
sur ma fiche j'ai placé un TImage (Image1), par dessus il y a différents controles (TButton, TEdit, TLabel, TImage).
A chaque opération graphique sur Image1 (tracé de ligne par exemple) les controles non fenêtrés (TLabel et TImage) scintillent et seulement eux.
je précise ces opérations sont transmisent par une autre application à l'aide de SendMessage.
Je suppose qu'il y a un Refresh de Image1 a chaque opération graphique, ce qui est normal, mais pourquoi les controles fenêtré ne scintillent pas?
Comment éviter ce problème?
bloquer le Refresh?
rendre les TLabel et Timage fenêtré?
Merci d'avance pour toutes suggestions.

[ephemeride]

Voici le résultat de mes recherches:

1- ne pas utiliser les methodes du canvas pour dessiner pour ne pas avoir de refresh. Utiliser a la place les api windows (TextOut,SetPixel,ExtFloodFill,FillRect,FillRect,Ellipse etc) avec comme hdc Image1->Canvas->Handle

2- je pense que la raison pour laquelle les controles fenetrés ne scintillent pas est qu'elles ont une methode PaintTo qui leur permet de se dessiner sur un canvas. Donc il faut faire le tour des controles non fenetré et les dessiner sur Image1 à la bonne position X=Control->Left-Image1->Left Y=Control->Top-Image1->Top
Pour un TImage utiler la methode Draw
Pour un TLabel utiliser la methode TextOut de Image1->Canvas en utilisant la font du label, Image1->Canvas->Brush->Color=Label->Color. Si le label est transparent Image1->Canvas->Brush->Style=bsClear, sinon bsSolid.
Penser à mémoriser Image1->Canvas->Brush et Image1->Canvas->Font avant de les modifier et les restaurer apres le TextOut
3- faire un Refresh de Image1