Discussion :

[Gwenn ha du]

Bonjour à tous,
malgré mes recherches sur le net, je n'ai rien trouvé qui correspond à ma demande, voici ma question:
j'utilise un TListView et un ImageList, que j'ai chargé avec deux images:

Code :

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

1
2
ImageList.index[0]=  image.ico
ImageList.Index[1] = image .bmp

j'aimerais avec mon bouton afficher dans la colonne 1 de mon TListView.SubItems l'imageIndex[0] et dans la colonne 2 de mon ListView l'imageIndex[1].
Voici mon code:

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 TForm1.RbButton1Click(Sender: TObject);
var
Item: TListItem;
i: Integer;
begin
ListView1.ViewStyle := vsReport;
for i := 0 to 10 do
begin
Item := ListView1.Items.Add;
Item.SubItems.Add('');
Item.ImageIndex:=0;
Item.SubItemImages[1];
//Item.SubItems.Add(Format('SubItem %d', [i]));
//Item.SubItems.Add(Format('SubItem %d', [i]));
end;

ça fonctionne bien, mais je n'affiche pas l'image index[0] dans ma colonne 1 de mon listview, quelqu'un peut-il m'aider??.

En vous remercient d'avance,
sincères salutations à tous et bon codding!!

Duguesclin

[tourlourou]

il convient de renseigner l'origine des images :

Code :

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

ListView1.SmallImages := ImageList ;

ce que tu avais peut-être fait dans l'inspecteur d'objets ?

et pour définir l'image d'un SubItem :

Code :

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

1
2
j := Item.SubItems.Add(Format('SubItem %d', [i]));
Item.SubItemImages[j] := 1;

[Gwenn ha du]

merci tourlourou de m'avoir répondu.
ça ne fonctionne!!!!!
Super !!!
j'avais essayé mais, sans le J:=
voici le code complet:

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
var
LI: TListItem;
i,j: Integer;
begin
ListView1.ViewStyle := vsReport; 
for i := 0 to 5 do
begin
LI := ListView1.Items.Add;
LI.Caption := Format('test %d', [i]);
//Li.SubItems.Add(Format('SubItem %d', [i]));
Li.ImageIndex := -1;
j := Li.SubItems.Add(Format('SubItem test %d', [i]));
Li.SubItemImages[0] := 1;
end;
end;

Merci encore pour l'aide
Sincères Salutations et bon codding
Éric