Discussion :

[qi130]

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?

[Pedro]

Salut

Est-ce possible?

Bien sûr, en utilisant OnDrawPanel

[bjl]

bonjour,

en mettant la propriété style du panel concerné à psOwnerDraw et en utilisant l'évènement OnDrawItem du TstatusBar

par exemple,

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;

çà fonctionne

[qi130]

Merci, j'essaie de ce pas

[qi130]

J'ai un peu galéré pour le TRect, mais ça fonctionne

Merci