Bonjour à tous,
Je voulais savoir comment on fait pour mettre des couleurs de texte différentes dans une TCheckListBox?
Cela est-il possible?
Merci d'avance?
Bonjour à tous,
Je voulais savoir comment on fait pour mettre des couleurs de texte différentes dans une TCheckListBox?
Cela est-il possible?
Merci d'avance?
Regarde du côté de l'événement OnDrawItem qui te permettra de redessiner chaque item.
Cordialement
C'est ce que j'avais trouvé mais je ne vois pas trop comment le faire, je veux pouvoir choisir les lignes qui auront une couleur différente.
Place la valeur lbOwnerDrawFixed dans la propriété Style de TCheckListBox
Puis place le code suivant dans l'événement OnDrawItem :
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with (Control as TCheckListBox).Canvas do { dessine sur le canevas du contrôle, non sur la fiche } begin FillRect(Rect); { efface le rectangle } if Index mod 2 = 0 then font.Color := clBlue else font.Color := clRed; TextOut(Rect.Left + 2, Rect.Top, (Control as TCheckListBox).Items[Index]) { affiche le texte } end; end;
Heuuu c'est normal je n'ai plus rien qui s'affiche????
T'as pas oublié le TextOut ?Envoyé par Isa31
Ta couleur de police est différente de celle du fond ?
Ca m'est déjà arrivé, c'est pour ca que je demande.
J'ai pourtant testé le code avant de le poster.
Un test dur D5 puis un test sur D2005 et cela passe correctement.
J'ai tout bien mit, et j'ai des couleurs différentes mais il ne veut pas passer dans le CheckListeBoxDrawItem :
Teste ce code sur un nouveau projet ce sera plus simple je pense.
J'ai testé dans un autre projet, c'est OK, je suis revenue dans mon projet et c'est passé alors que je n'ai rien modifié!!!
Faut pas que je cherche à comprendre je crois.
En tout cas un grand à tous!!!!!
Isa
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager