Discussion :

[melles]

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 :

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;

Un peu d'aide serait vraiment cool
thx in advance.

[NABIL74]

salut,

essaye ce code:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
{...}
 
type
  TTabSheet = class(ComCtrls.TTabSheet)
  private
    FColor: TColor;
    procedure SetColor(Value: TColor);
    procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);
      message WM_ERASEBKGND;
  public
    constructor Create(aOwner: TComponent); override;
    property Color: TColor read FColor write SetColor;
  end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    procedure PageControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
constructor TTabSheet.Create(aOwner: TComponent);
begin
  inherited;
  FColor := clBtnFace;
end;
 
procedure TTabSheet.SetColor(Value: TColor);
begin
  if FColor <> Value then
  begin
    FColor := Value;
    Invalidate;
  end;
end;
 
procedure TTabSheet.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
  if FColor = clBtnFace then
    inherited
  else
  begin
    Brush.Color := FColor;
    Windows.FillRect(Msg.dc, ClientRect, Brush.Handle);
    Msg.Result := 1;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tabsheet1.Color := clWhite;
  TabSheet2.Color := clLime;
end;
 
// PageControl1.OwnerDraw := True !
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  AText: string;
  APoint: TPoint;
begin
  with (Control as TPageControl).Canvas do
  begin
    Brush.Color := ClGreen;
    FillRect(Rect);
    AText := TPageControl(Control).Pages[TabIndex].Caption;
    with Control.Canvas do
    begin
      APoint.x := (Rect.Right - Rect.Left) div 2 - TextWidth(AText) div 2;
      APoint.y := (Rect.Bottom - Rect.Top) div 2 - TextHeight(AText) div 2;
      TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, AText);
    end;
  end;
end;

A+

NABIL74

[melles]

Merci Nabil74 pour ta réponse (j'ai pas tout compris mais j'ai quand même pris le temps s'essayer).

Le résultat: C'est les panneau de TabShit1 et TabShit2 qui sont colorié et non les tabs eux même.

Tu m'a permis de faire ceci:



Et je cherche à faire cela:

[DenDemble]

Tout ce que je sais faire pour le moment, c'est modifier la couleur du tab selectionne :

du coup j'avais aussi compris que tu voulait changer la couleur de la page.
(puisque tu savait déjà faire pour le tab)

si le problème est juste de colorier les autres tabs, il suffit d'utiliser tabindex :

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
16
17
18
19
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if (Active = true) then begin
      Control.Canvas.Font.Color := clyellow;
      Control.Canvas.Brush.Color := clblue;
  end else begin
      Control.Canvas.Font.Color := clBlack;
      case tabindex of
        0: Control.Canvas.Brush.Color := clGreen;
        1: Control.Canvas.Brush.Color := clRed;
        2: Control.Canvas.Brush.Color := clYellow;
      end;
  end;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(Rect.left+2,Rect.top+2,
    PageControl1.Pages[tabindex].Caption);
end;

[ShaiLeTroll]

Informations à ce sujet, j'ai remarqué des problèmes de colorisation d'un TTabControl sur Windows 2008 Server (chez un client qui s'est proposé pour tester)
Faut que je teste plus loin (faut que j'installe 2008 avec un D7 dessus pour tester en débug ...)

[melles]

C'est cool!!! On se rapproche un peu plus de la solution

Dernier petit problème : J'ai redimensionné la hauteur et la largeur des tab du PageControl et donc, seul le contour du texte se colorie et non pas tout le tab!

Comment definir la zone qui doit être colorié ?
J'imagine que ça va être un truc du genre: "prendre les coordonnées du tab redimenssionné et remplir d'une couleur"

Thxs in advance ;-)