Teste ce code sur un nouveau projet ce sera plus simple je pense.
Type: Messages; Utilisateur: Pascal Jankowski
Teste ce code sur un nouveau projet ce sera plus simple je pense.
J'ai pourtant testé le code avant de le poster.
Un test dur D5 puis un test sur D2005 et cela passe correctement.
Place la valeur lbOwnerDrawFixed dans la propriété Style de TCheckListBox
Puis place le code suivant dans l'événement OnDrawItem :
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;...
Regarde du côté de l'événement OnDrawItem qui te permettra de redessiner chaque item.
Cordialement
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.