Discussion :

[madfu]

Bonjour,

j'ai un TListview en mode Icon dans lequel je veux ajouter un nouvel élément,
seulement j'observe des comportements que je ne comprends pas :

Code :

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

1
2
3
4
5
6
7
8
 
//CAS1
var
  item:TListItem;
begin
  item:=Listview.items.add;
  item.Caption:='Test';
end;

Dans ce cas-ci, RAS l'élément est bien ajouté au Listview et le libellé 'Test' apparaît bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//CAS2
var
  item:TListItem;
begin
  item:=TListItem.Create(ListView.Items);
  item.Caption:='Test';
  item.subitems.add('sub1');
  ListView.items.addItem(item);
end;

Dans ce cas-ci l'élément et son sous élément 'sub1', sont bien ajouté au Listview mais le libellé 'Test' n'apparaît pas, est-ce normal ?


Si je pousse un peu plus loin en ajoutant un gestionnaire CustomDrawItem que je debuggue, je m'aperçois que dans le CAS2 :
- Item.caption n'est pas vide , malgré qu'il ne soit pas affiché
- Item.caption peut être remplacé par une nouvelle valeur qui là s'affichera

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TfrmMain.listviewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  str:string;
begin
  //un test en debug m'indique bien que Item.caption est initialisé à 'Test' 
  //comme prévu pourtant le libellé ne s'affiche pas.
  //si j'affecte à Item.caption une autre valeur que 'Test' alors 
 //celle-ci s'affiche (?)
  item.Caption:='valeur';
end;

Vous y comprenez quelque chose ?

Etes-vous déjà arrivé à insérer un nouvel élément comme dans le cas 2 mais en ayant l'affichage du libellé de l'élément ?

[Jipété]

Salut !

Perso, j'utilise ça avec bonheur (lvwl m'affiche les différentes fenêtres d'un process, wl est la liste de ces fenêtres (GetWindowList))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  ...
  lvwl.Items.BeginUpdate;
  for i := 0 to high(wl) do begin
    items := Lvwl.Items.Add;
    Items.Caption := inttostr(wl[i].window);
    Items.SubItems.Add (inttostr(wl[i].parent));
    Items.SubItems.Add (inttostr(wl[i].owner));
    if wl[i].visible   then Items.SubItems.Add ('Yes') else Items.SubItems.Add ('No');
    if wl[i].enabled   then Items.SubItems.Add ('Yes') else Items.SubItems.Add ('No');
    if wl[i].inTaskbar then Items.SubItems.Add ('Yes') else Items.SubItems.Add ('No');
    Items.SubItems.Add (wl[i].title);
    Items.SubItems.Add (wl[i].className);
  end;
  lvwl.Items.EndUpdate;

HTH,
JP

[madfu]

Merci Jipété mais ma question n'est pas comment inséré un nouvel item dans un Listview mais si quelqu'un a déjà inséré dans un Listview avec cette méthode ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//CAS2
var
  item:TListItem;
begin
  item:=TListItem.Create(ListView.Items);
  item.Caption:='Test';
  item.subitems.add('sub1');
  ListView.items.addItem(item);
end;

[Jipété]

Oups, j'ai lu trop vite (fait trop chaud......)

Bon, alors je sais pas...

Desoled,
JP

[e-ric]

Salut

Je n'ai pas entendu que des compliments sur les composant TListView (existence de bug), ce composant est un habillage d'un composant de Windows, donc la VCL n'est peut-être pas en cause. Il faut ruser si un problème se présente.
Je l'utilise dans le cadre de mon travail.

Je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
//CAS1
begin
  with Listview.items.add do
  begin
    Caption:='Test';
    SubItems.Add('sub1');
  end;
  Listview.Update; // facultatif

Ce n'est pas la structure que tu cherches mais cela devrait fonctionner.

PS: Dans le même ordre d'idée, méfie-toi de ListView.Items.Clear et ListView.Clear; ces méthodes ne fonctionnent pas rigoureusement de la même façon.

cdlt

e-ric

[Jipété]

'Soir !

Je me permets de faire remonter ce fil car j'aimerais une précision sur cette phrase :

PS: Dans le même ordre d'idée, méfie-toi de ListView.Items.Clear et ListView.Clear; ces méthodes ne fonctionnent pas rigoureusement de la même façon.

Qu'en est-il exactement ? Problème de performances ? De fuite mémoire ? De ... ?

Car je n'ai pas vu de différences en jouant avec ça :

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
16
17
18
19
20
21
22
23
24
25
26
27
// 1 Listview (name : LV) avec 3 colonnes en mode vsReport
// et 3 boutons (btn_Fill, btn_Clear_LV, btn_Clear_Items
 
procedure TForm1.btn_FillClick(Sender: TObject);
var
  i : integer;
  items : TListItem;
begin
  lv.Items.BeginUpdate;
  for i := 0 to 5 do begin
    Items := lv.Items.Add;
    Items.Caption := IntToStr(i);
    Items.SubItems.Add (IntToStr(i));
    Items.SubItems.Add (IntToStr(i));
  end;
  lv.Items.EndUpdate;
end;
 
procedure TForm1.btn_Clear_LVClick(Sender: TObject);
begin
  lv.Clear;
end;
 
procedure TForm1.btn_Clear_ItemsClick(Sender: TObject);
begin
  lv.Items.Clear;
end;

Merci pour toute précision,
JP