PageControl et orientation des tabsheets

**KRis** · 30/07/2009, 16h41

Bonjour à tous,
est il possible d'avoir ce type d'orientation avec les tabsheets d'un TPageControl :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
-----------------------------------------------------
MonTabSheet1 |                                       |
-----------------------------------------------------|
MonTabSheet2 |                                       |
-----------------------------------------------------|
             |                                       |
             |                                       |
             |                                       |
             | ______________________________________|

le tpLeft ne me suffit pas, puisque le texte des captions est orienté verticalement...?

merci par avance,
Christophe

**Jeankiki** · 12/08/2009, 00h18

Bonjour Kris,

Le plus simple est de redessiner le DrawTab du PageControl.
Tu dois mettre la valeur OwnerDraw à true dans l'inspecteur d'objet pour redéfinir le comportement du dessin
Ensuite tu dois entrer le code suivant dans l'événement OnDrawTab

Code :

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

1
2
3
4
5
6
7
8
 
  with (Control as TCustomTabControl), Canvas do
  begin
    TTabControl(Control).TabPosition:= tpLeft;
    TTabControl(Control).TabHeight  := 100;
    TTabControl(Control).TabWidth   := 25;
    TextOut(Rect.Left +5, Rect.Top +5, TTabSheet(PageControl1.Pages[TabIndex]).Caption);
  end;

Bon code

Jeankiki

**franck SEFIC** · 12/08/2009, 11h44

Envoyé par Jeankiki

Bonjour Kris,

Le plus simple est de redessiner le DrawTab du PageControl.
Tu dois mettre la valeur OwnerDraw à true dans l'inspecteur d'objet pour redéfinir le comportement du dessin
Ensuite tu dois entrer le code suivant dans l'événement OnDrawTab

Code :

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

1
2
3
4
5
6
7
8
 
  with (Control as TCustomTabControl), Canvas do
  begin
    TTabControl(Control).TabPosition:= tpLeft;
    TTabControl(Control).TabHeight  := 100;
    TTabControl(Control).TabWidth   := 25;
    TextOut(Rect.Left +5, Rect.Top +5, TTabSheet(PageControl1.Pages[TabIndex]).Caption);
  end;

Bon code

Jeankiki

bonjour Jeankiki,

J'ai expérimenté la solution proposée et j'ai eu le message suivant

'Violation d'accès à l'adresse 58B7E95C dans le module 'comctl32.dll'; lecture de l'adresse 00000004'.

Je voudrais s'avoir ce qui manque au code. on dirait que je dois déclaré quelque chose.

merci pour ton aide.

**Jeankiki** · 13/08/2009, 21h05

Bonjour Franck,

Il semblerai que le problème vienne de Comctl32.dll et l'unité Comctrls de Delphi. Car avec Delphi 2009, ça fonctionne correctement sous Vista.
Avec Delphi 7 sous Vista, il ne redessinne pas les Tabs correctement.
Par contre, j'ai aussi le message d'erreur sous XP avec Delphi 7.
Il faudrait voir s'il n'y a pas une màj de l'unité Comctrls.pas pour Delphi 7.

Jeankiki