- Voilà les propriétés publiées des TTitleBarButton :
-
- property OnClick:TNotifyEvent read FOnClick write SetOnClick; //Click sur le boutton
- property OnPaint:TTitleBarButtonPaintEvent read FOnPaint write SetOnPaint; //Gestionnaire d'affichage personnalisé
-
- property Width:Integer read FWidth write SetWidth; //Largeur (la hauteur est définie par Windows et le thème courant)
-
- property Enabled:Boolean read FEnabled write SetEnabled; //Bouton actif ou non
-
- property Name:string read FName write SetName; //Un nom (comme un nom de composant) pour faciliter la lecture du code.
-
- L'événement OnPaint est déclaré comme suit:
-
- TTitleBarButtonState=(tbsDisabled,tbsDown,tbsHot);
-
- TTitleBarButtonStates=set of TTitleBarButtonState;
-
- TTitleBarButtonPaintEvent=procedure(Sender:TObject;Canvas:TCanvas;Rect:TRect;State:TTitleBarButtonStates) of object;
-
- Il suffit de dessiner ce que l'on veut sur le Canvas tout en restant dans le rectangle Rect. State permet de savoir quel est l'état du bouton (tbsDown=enfoncé, tbsHot=souris au-dessus, tbsDisabled=bouton inactif).
Voilà les propriétés publiées des TTitleBarButton :
property OnClick:TNotifyEvent read FOnClick write SetOnClick; //Click sur le boutton
property OnPaint:TTitleBarButtonPaintEvent read FOnPaint write SetOnPaint; //Gestionnaire d'affichage personnalisé
property Width:Integer read FWidth write SetWidth; //Largeur (la hauteur est définie par Windows et le thème courant)
property Enabled:Boolean read FEnabled write SetEnabled; //Bouton actif ou non
property Name:string read FName write SetName; //Un nom (comme un nom de composant) pour faciliter la lecture du code.
L'événement OnPaint est déclaré comme suit:
TTitleBarButtonState=(tbsDisabled,tbsDown,tbsHot);
TTitleBarButtonStates=set of TTitleBarButtonState;
TTitleBarButtonPaintEvent=procedure(Sender:TObject;Canvas:TCanvas;Rect:TRect;State:TTitleBarButtonStates) of object;
Il suffit de dessiner ce que l'on veut sur le Canvas tout en restant dans le rectangle Rect. State permet de savoir quel est l'état du bouton (tbsDown=enfoncé, tbsHot=souris au-dessus, tbsDisabled=bouton inactif).