Ecrire verticalement ds un TTabControl

Bonjour,

Je veux changer la couleur de la police d'un TTabControl, ainsi que la couleur du fond.

J'utilise donc l'évènement OnDrawTab en ayant mis OwnerDraw à true. Mon contrôle est vertical (TabPosition=tpLeft). Je dois donc écrire le texte des onglets en vertical.

Une solution est de faire un TextOut sur chaque caractère en calculant sa position à chaque fois.

Existe-t'il un moyen plus simple d'y parvenir ? Par exemple, est-il possible qu'un TextOut écrive directement en vertical ?

Merci pour votre aide.

Salut,
Le Tip7 des trucs et astuces donne comment écrire dans un Canvas à la verticale.
Cette méthode peut être réutilisé dans ton cas je pense.

Merci beaucoup,

C'est tout à fait ce que je cherchais. Reste à tester ...
Bonne journée.

J'ai testé, ça fonctionne parfaitement. :yaisse2: