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
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
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
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.
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;
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 ?
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.
Partager