Discussion :

[kineton]

Bonjour,

J'ai une fiche dans laquelle j'ajoute un TPageControl, composé de 2 TTabSheet.
Je souhaiterai personnaliser l'affiche de la propriété Caption des 2 TabSheet (en gras et en couleur).
Quelqu'un a t il une petite (ou grande) idée sur la manière de procéder ?

Merci d'avance.

[gandf]

Par exemple :

Code :

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

TabControl1->Font->Style = fsBold;

Cela changera la Font de tous les intitulés des TabSheet.

[kineton]

Merci.

Une solution (pgc_Onglet est mon TPageControl)

Dans mon FormShow :

Code :

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

pgc_Onglet->Font->Style = pgc_Onglet->Font->Style << fsBold;

Puis dans l'évènement OnDrawTab :

Code :

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

1
2
3
4
5
6
AnsiString texte = pgc_Onglet->Pages[TabIndex]->Caption;
  if (TabIndex == 0)
    Control->Canvas->Font->Color = clGreen;
  else
    Control->Canvas->Font->Color = clRed;
  Control->Canvas->TextOutA(Rect.Left + (Active ? 4 : 2), Rect.Top + (Active ? 4 : 2), texte);

Et ça marche .

[totoche76]

Hey !

Avec un positionnement un peu meilleur:

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
  Control->Canvas->FillRect(Rect);
 
  int x,y;  
  switch (((TPageControl*)Control)->Style)
  {
    case tsTabs:       // "Aux chiottes l'OM" - François Pignon, 1998
      x = Rect.Left + (Active ? 8 : 4);
      y = Rect.Top + 3;
      break;
    case tsButtons:
    case tsFlatButtons:
      x = Rect.Left + (Active ? 5 : 4);
      y = Rect.Top + (Active ? 2 : 1);
      break;
  }
 
  if (TabIndex == 0)
    Control->Canvas->Font->Color = clRed;
  else
    Control->Canvas->Font->Color = clGreen;
  AnsiString texte = ((TPageControl*)Control)->Pages[TabIndex]->Caption;
  Control->Canvas->TextOutA(x, y, texte);