des tabSheet plein de couleurs

Question

Bonjour à tous,
J'ai une page control avec des tabsheet sous delphi 5 et j'aimerai donner à chaque tabsheet une couleur spécifique différentes des autres tabsheet, et une couleur particuliere à la tabsheet active. Mais je ne sais pas comment faire (j'ai essayé des trucs mais son resultat!!!); Quelqu'un a déja fait ca?
Merci d'avance pour votre aide les amis

Afrite, le débutant

cs_Bestiol · Answer

Ca parait difficile... Je ne dis pas que c'est impossible, mais sachant que ces composants n'ont ni propriété Color ni événement OnPaint.
Il faudrait apparemment que tu crées un composant dérivé qui inclue une propriété Color et un événement OnPaint (en utilisant le message WM_PAINT), ou que tu changes la couleur de ton TabSheet dans le OnChange de ton PageControl, en utilisant l'API windows avec un Device Context sur le TabSheet à peindre !!

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

cs_Delphiprog · Answer

Oulala... :dissapprove)  :dissapprove)  :dissapprove) 
Le composant TPageControl possède un évènement OnDrawTab qui fournit tous les paramètres nécessaires pour redessiner le contrôle actif ou ... tous !

Rappelons, au passage, que la propriété HotTrack (booléenne) indique si, au survol de la souris au dessus d'un onglet, il faut peindre le texte de l'onglet avec une couleur différente.
May Delphi be with you

cs_Bestiol · Answer

Oups, j'ai parlé trop vite !  :blush)  :blush)  :blush) 

la prochaine fois, je regarderai plus en détail le composant...

Merci à toi, ô Delphiprog !  :shy) 
[mailto:bestiol@cario.fr Bestiol.]

Des tabSheet plein de couleurs

3 réponses

Votre réponse