Scrolling horizontal dans TListBox

Bonjour,

J'ai ajouté l'appel à la procédure suivante après le chargement du contenu de chacune de mes différentes ListBox afin d'ajouter la barre d'ascenseur horizontale quand c'est nécessaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure AjouterAscenseurHorizontalListBox (listBox : TListBox); var intWidth, j, intMaxWidth : integer; begin intMaxWidth := 0; for j := 0 to listBox.Items.Count - 1 do begin intWidth := listBox.Canvas.TextWidth (listBox.Items.strings [j]); if intWidth > intMaxWidth then intMaxWidth := intWidth; end; SendMessage (listBox.Handle, LB_SETHORIZONTALEXTENT, intMaxWidth, 0); end;

---

Cela fonctionne globalement mais pas avec précision ;
il semble que les calculs de taille du texte ne tiennent pas compte de la police définie par la propriété "Font" de la ListBox considérée.

Quelqu'un a-t-il une idée pour résoudre ce problème ?

Merci d'avance pour votre aide

lol, j'ai fait proposer la même chose à un collègue, il n'y a pas 2 semaines :mouarf:

Code:

---

1 2 3 4 5 6 7

... intMaxWidth := 0;   listBox.Canvas.Font := listBox.Font;   for j := 0 to listBox.Items.Count - 1 do ...

---

C'est un problème de changement de font par défaut entre 2K et XP, c'est passer de Ms Sans Serif à Tahoma, la plupart des objets n'ayant pas de valeur spécifique dans le DFM passe de l'un à l'autre, mais le Canvas lui ne semble pas le voir !

Sinon, tu pourrais explorer la TListView en mode vsList, les libellés qui dépasse la largeur visible seront automatiquement complétés par un Hint !
C'est du plus bel effet !
J'ai fait le même conseil à mon collègue ! il a donc transformer ses TListBox en TListView

En ajoutant l'instruction suivante :
"listBox.Canvas.Font := listBox.Font;"
en début de procédure, comme conseillé par ShaiLeTroll, le scrolling de la ListBox fonctionne maintenant correctement.