PageControl et orientation des tabsheets

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

Code:

---

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

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:

---

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

Citation:

---

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:

---

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

Citation:

---

'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.

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

J'ai testé le code avec Delphi 7 Edition Personnel et sous WindowsXP, tout marche nikel:ccool:

Citation:

---

Envoyé par petitprince

J'ai testé le code avec Delphi 7 Edition Personnel et sous WindowsXP, tout marche nikel:ccool:

---

C'est vraiment bizarre. Moi j'ai Delphi 7 Entreprise et XP et ça marche pas. STP, peux tu m'envoyer le fichier Comctl32.dll de ton delphi 7?