La question est un peu dans le titre
Je souhaite assigner/ modifier la couleur des tabs de mon pagecontrole et je ne vois vraiment pas comment!
Tout ce que je sais faire pour le moment, c'est modifier la couleur du tab selectionne :
Un peu d'aide serait vraiment cool
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin Control.Canvas.Brush.Color := ClWhite; Control.Canvas.FillRect(Rect); if (Active = true) then begin Control.Canvas.Font.Color := clyellow; Control.Canvas.Brush.Color := clblue; Control.Canvas.FillRect(Rect); end; Control.Canvas.TextOut(Rect.left+110,Rect.top+12, PageControl1.Pages[tabindex].Caption); end;
thx in advance.
Partager