Discussion :

[Invité]

Bonjour,

J'utilise un TListView en ViewStyle vsList.
A l’intérieur j'ajoute des items, mais savez-vous comment agrandir le "width" d'un item ?

Car quand le libellé est trop long il tronque le nom et ajoute "..."



Merci

[ShaiLeTroll]

J'utilise plutôt le vsReport que vsList mais c'est déjà une piste
Ajoute un Columns à Width -1

Sinon, chose bizarre, en passant en readonly, le texte se dessine en entier

[Thierry Laborde]

Bonjour,

Pour moi à la conception on voit bien '...' a la fin du texte. Mais quand j’exécute l'application le texte s'affiche correctement.
D'ailleurs comme le dit ShaiLeTroll à la conception si on coche 'Read Only' ca s'affiche correctement, et on peut même remettre 'Read Only' à False et l'affichage reste correct.
Mais dès qu'on rajouter un Item cela refait la même chose. Mais encore une fois pour moi (En XE6) ça ne le fait qu'à la conception. A l’exécution ça fonctionne correctement.

[Invité]

Bonjour,

Finalement avec ce code c'est ok, par contre la largeur des items et un peut trop grande ..
Merci pour vos réponse mais même avec mon ListView en ReadOnly quand j'ajoute un item en exécution il s'affiche avec les "..." (je suis aussi en XE6)

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 TfsJocLeNoob.ListViewExpandColumns(ListView : tListView);
const
  LVS_TYPEMASK = 3;
  ViewStyles: array[TViewStyle] of Integer = (0, 2, 3, 1);
var
  Style: Longint;
begin
    Style := GetWindowLong(ListView.Handle, GWL_STYLE);
    Style := Style and (not LVS_TYPEMASK);
    Style := Style or Integer(ViewStyles[vsIcon]); //set style to vsIcon
    SetWindowLong(ListView.Handle,GWL_STYLE, Style);
    Style := Style and (not LVS_TYPEMASK);
    Style := Style or Integer(ViewStyles[vsList]); //set style to vsList
    SetWindowLong(ListView.Handle,GWL_STYLE, Style);
end;

[joc02]

Je vois que tu commentes en anglais peux tu citer tes sources STP il me semble que Malcom l'expliquait ici : http://codeverge.com/embarcadero.del...tems-w/1071026

T'es tu inspiré de lui de ce post ?