Largeur colonne listView modifiée en exécution

Bonjour,

    Je ne suis pas familiarisé avec les Listview et je reconnais que ce sont des composants fascinants. N'ayant pas trouvé de réponse à mon problème, j'ai donc décidé de vous le soumettre.
La listView affiche en réalité une liste de fichiers qui est sélectionnée dans une comboBox.
La Liste fait apparaitre normalement les noms de fichiers (nom + ext) dès l'apparition de la fenêtre.
Or dès que je change de liste (clic dans Combo), la ListView ne fait plus apparaitre qu'une partie du nom des fichiers de la liste. Les fonctions appellées sont pourtant les mêmes.

 Y a-til un paramètre de largeur de colonne qui aurait pu changé entre temps. Je ne défini pas à la conception de colonne (une seule par défaut)?
 J'ai essayé d'utilisé l'instruction : listView1.Columns.Items[0].MaxWidth := 200; Mais Er indice hors limite. Ma colonne par défaut ne semble pas posséder d'indice!
 Je soupçonnais au départ, ma StringListListFicRec chargée en lisant le fichier,! Mais même lorsque les valeurs du Composant ListView sont tronquées, en déplaçant la curseur sur le nom de fichier tronqué, le nom complet apparait dans la bulle (en éxécution).

Dans FormCreate 
  ...
  ListView1.ViewStyle := vsList;
  ListView1.Clear;
  UpdateListFicRechercheWithFic  (FicREC, ListFicRec);
  Affiche_ListeFicRecherche          (FicREC,ListView1,ListFicRec);
 ...
Procedure Affiche_ListeFicRecherche      (Const aFicREC       : String;
                                                                    Var aListView         : TListView;
                                                                     Var ListR                : TStringList);
var i : integer;
     ListAjout : TListItem;
Begin
  aListView.Clear;
  if ListR.Count > 0 then
  begin
    For i := 0 to ListR.Count -1 do
    begin
      ListAjout := aListView.Items.Add;
      ListAjout.Caption := ListR.Strings[i];
    end;
    aListView.Update;
  end
End;

procedure TFormFichRecherche.ComboNomFicRecClick(Sender: TObject);
begin
  If ComboNomFicRec.ItemIndex > -1 then
  begin
    ...    
     FicRec  :=  SRep_User + '\Fichiers\' + ComboNomFicRec.Text; // Nomfichier complet
     UpdateListFicRechercheWithFic(FicREC,ListFicRec);
     Affiche_ListeFicRecherche(FicREC,ListView1,ListFicRec);
  end
end;

Voilà, si une lumière passe ici, elle pourra m'éclairer. Merci d'avance.
Jean_Jean


Jean_Jean

Salut,

peut être :
  ListView1.Column[0].Width
 
@+
Cirec

---

Bj Cirec,
Merci pour ta réponse, mais j'aurai du dire que j'avais essayé ça aussi.
ListView1.Column[0].Width := 200; indice (0) hors limite et quand je mets 1 aussi!!!
J'ai donc essayé de définir la propriété columns dans l'inspecteur d'objet en y mettant une valeur
Mini à 150 et autosize, rien n'y fait, à l'exécution ça revient en position initiale.
j'ai essayé de réaffirmer cette propriété ListView1.Column[0].Width := 200; dans les évènements:
ListView1CustomDrawItem et ListView1DrawItem et OnChange, rien n'y fait, fascicule n'apparaît toujours pas en entier











Pour vérifier que ça n'est pas mon code qui est en cause, mais une propriété que j'ai mal initialisée, j'ai utilisé à titre d'essai le code de DElphiColl ici.
En définissant labonne longueur dans la définition de sa colonne 0, l'exécution se passe bien.
La différenceavec mon code, c'est qu'il utilise plusieurs colonnes en définissant des subitems...
bon, j'essaierai de creuser un peu!
Merci pour vos idées!
A+
Jean_Jean

Exact Cirec!

En mettant la propriété de visibilité des colonnes à false, l'horrible gris disparait.

 Finalement, sympa ce composant. Je ne l'avais jamais utilisé. Mon pied, même du temps du turbo Pascal c'était les calculs scientifiques. J'ai failli abandonner ce langage quand on est passé au début en programmation objet car on travaillais à cette époque avec les routines directes du système (les API maintenant). Je me souviens des turbines gaz pour de simples controles de saisie d'une combo.

Ce que j'aimerais avoir 20 ans de moins. J'ai tellement de projets dans mes cartons, c'est un peu frustrant! Heureusement que ce site existe, grand bienfait à ceux qui le font vivre.

A+

Jean_Jean