Color Refresh pour un PageControl
:salut:
J'ai quelques questions au point de vue esthétique :)
Mon but est de changer la couleur d'un PageControl, j'ai donc mis sa propriété OwnerDraw à true et ajouté le code suivant dans l'évènement DrawTab :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm2.PageControl1DrawTab(Control:TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
Control.Canvas.Brush.Color := clbtnface;
Control.Canvas.FillRect(Rect);
if (Active = true) then
begin
Control.Canvas.Font.Color := clblack;
Control.Canvas.Brush.Color := couleur;
Control.Canvas.FillRect(Rect);
end;
Control.Canvas.TextOut(Rect.left+40,Rect.top+3,
PageControl1.Pages[tabindex].Caption);
end; |
En gros, ça fonctionne...
Mon problème est au niveau des changements de couleur... J'explique:
Supposons que je commence par mettre le PageControl en bleue. Par la suite, je modifie la couleur et le PageControl devient jaune :fleche: Tout le cadrage (bordure) du PageControl sera en bleu et ça fait vraiment "moche" :)
Comment faire pour colorier les bordures du PageControl (en même temps que l'intérieur) ?
D'avance merci
