tpagecontrol et ttabsheet

Version imprimable

24/03/2009, 12h03
kineton

tpagecontrol et ttabsheet

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.
24/03/2009, 13h05
gandf

Par exemple :

Code:

TabControl1->Font->Style = fsBold;

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

Merci.

Une solution (pgc_Onglet est mon TPageControl)

Dans mon FormShow :

Code:

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

Puis dans l'évènement OnDrawTab :
Code:

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 . :king:

Hey !

Avec un positionnement un peu meilleur:

Code:

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);

;)