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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 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