Tout est dans le titre !
Ce statusbar à 3 "cases", le texte est en noir, je souhaite changer la couleur du texte de l'un des panels (les autres restant en noir).
Est-ce possible?
Tout est dans le titre !
Ce statusbar à 3 "cases", le texte est en noir, je souhaite changer la couleur du texte de l'un des panels (les autres restant en noir).
Est-ce possible?
Salut
Bien sûr, en utilisant OnDrawPanelEnvoyé par qi130
![]()
bonjour,
en mettant la propriété style du panel concerné à psOwnerDraw et en utilisant l'évènement OnDrawItem du TstatusBar
par exemple,
çà fonctionne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin StatusBar1.Canvas.Font.Color := clred; StatusBar1.Canvas.TextOut(rect.Left, Rect.Top, Panel.Text); StatusBar1.Canvas.Font.Color := clblack; end;
Merci, j'essaie de ce pas![]()
J'ai un peu galéré pour le TRect, mais ça fonctionne![]()
Merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager