Discussion :

[NGeVtC87]

Bonjour,

J'utilise dans mon projet des composants TPageControl et THTabContol. Je voudrais affecter une couleur de fond à certains de leurs éléments par exemple pour un TTabSheet dans une TPageControl.

J'ai utilisé pour un TTabsheet le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
     tab_sheet : TTabSheet;
     tab_sheet.Brush.Color := ClRed;

Mais j'ai pas eu de résultat. le TTabSheet est toujours dans la couleur standard.

Auriez vous une idée pour pouvoir réaliser cette opération ?

Merci

[Lung]

Moi, je mettrais un TPanel dans le TTabSheet, et je donnerais la couleur au Panel.

[ShaiLeTroll]

Et ne pas oublier de changer ParentBackgroundà False du TPanel pour qu'il accepte la couleur malgré un thème Système !



Au passage, l'inverse, un code pour récupérer la couleur du TTabSheet,
c'est ce que j'ai fait pour que la couleur de fond de mes TAnimate directement posé sur un TTabSheet soit correcte aussi bien en Thème Windows 2000, XP, Aero et les Styles Delphi VCL

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
//------------------------------------------------------------------------------
class function TTabSheetSLTAssistant.GetThemedBackgroundColor(): TColor;
var
  Details: TThemedElementDetails;
begin
  // Si c'est thème système, le TabSheet a une couleur spécifique
  if StyleServices.IsSystemStyle then
  begin
    // Sous Vista, c'est le thème Aero
    if CheckWin32Version(6, 0) then
      Details := StyleServices.GetElementDetails(ttAeroWizardBody)
    else
      Details := StyleServices.GetElementDetails(ttBody);
 
    StyleServices.GetElementColor(Details, ecFillColor, Result);
  end
  else
    Result := ColorToRGB(StyleServices.GetStyleColor(scWindow));
end;

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
//------------------------------------------------------------------------------
procedure TAnimateSLTAssistant.ActiveThemedTabSheetTransparence();
var
  DC: HDC;
  TabSheetColor: TColor;
begin
  FAnimate.Transparent := True; // Avec les thèmes cela ne fonctionne pas correctement, il faut le forcer manuellement !
  if StyleServices.Enabled then
  begin
    FAnimate.DoubleBuffered := True;
 
    // Si c'est thème système, le TabSheet a une couleur spécifique
    TabSheetColor := TTabSheetSLTAssistant.GetThemedBackgroundColor();
 
    FAnimate.Color := TabSheetColor;
    DC := GetDCEx(FAnimate.Handle, 0, DCX_WINDOW or DCX_CACHE or DCX_CLIPSIBLINGS);
    try
      SetBkColor(DC, TabSheetColor);
    finally
      ReleaseDC(FAnimate.Handle, DC);
    end;
  end;
end;

[anapurna]

salut

autant il est assez facile de changer la couleur des onglet autant ça se complique si tu veut tout le classeur

mais deja l'onglet donne un jolie rendue
voici la marche a suivre

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
 
Type
  TAckPC = class (TPageControl) // sert a accéder a certaine propriété
  end;
 
  TMaForm = Class(TForm)
....
 
procedure TMaForm.PcMainDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  TabText: string;
  P: TPageControl;
  OutRect : TRect;
begin
 p :=   Control as TPageControl ;
 
 TabText := TAckPC(P).Tabs[TabIndex];
 OutRect := Rect;
 InflateRect (OutRect, -3, -3);
 OutRect.Left := OutRect.Left + 3;
 if Active Then
 begin
   P.Canvas.Font.Color := clred ;
   P.Canvas.Brush.Color := clYellow;
   P.Canvas.FillRect(OutRect);
 end
 else
 begin
   P.Canvas.Font.Color := clBlack;
 end;
 DrawText (Control.Canvas.Handle,
    PChar (ExtractFileName (TabText)),
    Length (ExtractFileName (TabText)),
    OutRect, dt_Left or dt_SingleLine or dt_VCenter);
end;

et voila tu te retrouve avec un onglet jaune ecrit en rouge sur l'onglet actif

[foetus]

Cela ne doit pas être le seul cas . Il y a le même problème avec les "radio button" et leur couleur de fond.

Il me semble qu'il faut activer le manifeste XP (le thème Windows) et mettre les propriétés ParentColor et ParentBackground à false

[NGeVtC87]

Merci pour vos réponse. J'ai essayé de les appliquer mais ça ne donne rien.7

Je précise que moi je cherche à changer la couleur de fond de l'onglet du tabSheet seulement et non pas la page complétement. Je saias pas si c'est possible, j'utilise une version ancienne de delphi (Delphi2005) donc peut être que ce n'est pas possible.

Merci de me répondre si vous avez des suggestions.

[anapurna]

salut

si tu ne cherche qu'a changer l'onglet le code fournis fonctionne parfaitement
mais peut être n'as tu pas mis onwerdraw a true sur le TPagecontrol