Discussion :

[BeanzMaster]

Salut à tous

Je suis en train d'essayer de créer un composant de type "Bouton" descendant de TCustomControl seulement celui-ci ne s'affiche pas et je ne sais pas pourquoi.
Vous trouverez ci-joint un petit zip avec les sources "bz_button.pas" ceci est pour l'instant qu'une première ébauche. Mais là je sèche vraiment, l'affichage du bouton en mode normal devrait fonctionner.

TestBouton.zip

Dois-je utiliser les messages CMPaint, CM.... ?
J'ai oublié quelque chose ?

Merci d'avance de votre aide

[BeanzMaster]

J'ai enfin trouvé voila le code correct à remplacer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Type
  TBZComponentProperty = class(TPersistent)
   private
     FOnChange: TOnBZPropertyChange;
   protected
     FControl: TObject; /// C'etait ici TComponent génere une erreur invisible du style "Control Has No Parent"
     procedure Change(AData: PtrInt = 0); virtual;
   public
     constructor Create(AControl: TObject); virtual;
   public
     property Control: TObject read FControl;
     property OnChange: TOnBZPropertyChange read FOnChange write FOnChange;
   end;

J'ai trouvé en remplaçant le wCanvas := FBuffer.Canvas par wCanvas := Canvas dans la procedure DoDrawButton

[ThWilliam]

Bonjour.

Comme ce n'est qu'une première ébauche, je n'ai pas trop approfondi ton code.

Quelques remarques cependant :
1) Dans ton zip, TestBtn n'a pas de parent, donc normal qu'il ne s'affiche pas !
2) En l'état de ton code, la variable wCanvas est inutile. Tu peux utiliser directement la propriété Canvas du CustomControl.
3) Suggestion : au lieu de dessiner le tout directement sur le Canvas du bouton, crée un TBitmap temporaire sur le Canvas duquel tu dessines la bordure, le fond, l'image, le texte. Une fois le bitmap terminé, tu le dessines sur ton bouton. C'est beaucoup plus rapide, et tu pourras supprimer ton double buffered (qui utilise en fait la même méthode). Le TBitmap est à créer et à libérer dans la procedure Paint.
4) Ne fais pas d'instruction Paint suivie de Invalidate : cela provoque un double affichage (une fois par l'appel direct à la procédure Paint, une seconde fois par le invalidate qui va appeler...Paint).

Cordialement
Thierry

[BeanzMaster]

Salut William

1) Dans ton zip, TestBtn n'a pas de parent, donc normal qu'il ne s'affiche pas !

Le Create(self) suffit normalement, vu que c'est directement sur la Form et pas un autre containeur type TPanel. Et la l'erreur ne provenait pas directement du bouton mais de la propriété Styles de type "TBZComponentProperty" qui intégre les différents états qui sont aussi de type TBZComponentProperty et ce sont eux qui posaient le problème du Parent

2) En l'état de ton code, la variable wCanvas est inutile. Tu peux utiliser directement la propriété Canvas du CustomControl.
3) Suggestion : au lieu de dessiner le tout directement sur le Canvas du bouton, crée un TBitmap temporaire sur le Canvas duquel tu dessines la bordure, le fond, l'image, le texte. Une fois le bitmap terminé, tu le dessines sur ton bouton. C'est beaucoup plus rapide, et tu pourras supprimer ton double buffered (qui utilise en fait la même méthode). Le TBitmap est à créer et à libérer dans la procedure Paint.

Comme je l'ai dis c'est une 1ere ébauche. J'ai deja avancé dessus maintenant chaque état est dessiné à la création dans un Buffer séparé qui sont gardés en mémoire et libérés à la fin ca évite de tout redessiner a chaque fois.
OK pour le DoubleBuffered.

4) Ne fais pas d'instruction Paint suivie de Invalidate : cela provoque un double affichage (une fois par l'appel direct à la procédure Paint, une seconde fois par le invalidate qui va appeler...Paint).

Ok je savais pas ca.

Je mettrai le code à disposition dès que le code sera correcte.

Merci de tes explications
A+