Des tabSheet plein de couleurs

Signaler
Messages postés
4
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
28 mars 2003
-
Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
-
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

3 réponses

Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
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.]
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
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
Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
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.]