Discussion :

[momofr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ShaiLeTroll]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[momofr]

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.