Comment personnaliser chaque item de listboxRésolu

Question

Bonjour, je voudrais savoir comment je peux mettre en gras que certain item de listbox, il existe certes des exemples sur le forum (via les canvas) mais que je ne les comprend pas trés bien.

Si vous pouviez m'éclairer un peu sur la méthode canvas ou que vous avez une méthode plus simple ca serait volontiers.

Merci par avance.

cs_MAURICIO · Accepted Answer

Salut, 

bem malheureusement, tu dois passer par les canvas et les démos sur ce site sont ce qu' il y a de plus simple. 

Pour t' aider, et parce que je sens que tu n' es pas à l' aise, vois le canvas comme la feuille de papier oú est dessiné ton compo. 

exemple simplissime:
Canvas.moveto(0, 0); 
Canvas.Lineto(10, 10); 
Ça dessine une ligne diagonale. 
Pour gérer les couleurs du trait, du fond de la police:
Canvas.font.color
Canvas.Brush.Color
Canvas.Pen.Color

Bon après, il faut que tu étudies un peu ...

A+

vieuxpere · Answer

Merci pour ta reponse j'ai tésté et en effet ça marche.

Je rencontre par contre un autre probleme !

Le probleme c'est que certes j'ecris en canvas dans le listbox, avec des fonts personnalisés pour chaque item, mais ce que je j'écris n'est pas considéré comme un item car ce qui s'affiche n'est pas cliquable comme les items d'un listbox, je sais pas si je suis clair.

cs_MAURICIO · Answer

Tu es donc dans le OnDrawItem avec la propriété Style à csOwnerDrawFixed: 
il existe une variable State: TOwnerDrawState
Celle-ci te permet de savoir si l' item est seleccionné. Pourquoi? 
Bem pour changer la couleur de fond et la couleur de la police!
  If (State [odSelected]) Or (State [odSelected, odFocused])
  Then // l' item est seleccionné
  Else // l' item n' est pas seleccionné!

PS: n' oublie pas de valider les réponses ...

Cirec · Answer

Salut, voici un exemple des plus simple (sans superflu) {Dans l'inspecteur d'objets : Mettre la propriété Style à lbOwnerDrawFixed Et double cliquer à droite de l'évènement OnDrawItem et complèter comme suit:} Procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Begin With TListBox(Control) Do Begin {On efface le fond} Canvas.FillRect(Rect); {Un Item sur Deux et mis en rouge + Gras + Italique} If Index Mod 2 = 0Then With Canvas.Font Do Begin Color := clRed; Style := [fsBold, fsItalic]; End ; {Et on dessine le texte} DrawText(Canvas.Handle, PChar(Items[Index]), -1 , Rect, DT_VCENTER Or DT_SINGLELINE Or DT_LEFT); End; End; Highlighted with Pas2HTML @+ Cirec

vieuxpere · Answer

Merci beaucoup à vous pour votre réponse.

Comment personnaliser chaque item de listbox

5 réponses

Votre réponse

Discussions similaires