ListItem: icons?

[Pseudemys Nelsoni]

hallo,

ich habe eine listview (vsReport) in der ich ListItem's hinzufüge, jetzt möchte ich aber das mein Listitem ca so aussieht:

| Icon | Icon | Text | Icon | Text | Text | Icon |


nur wie bekomme ich images in die SubItems?

[MarcoWarm]

probier folgendes:

Delphi-Quellcode:

procedure TForm1.ListView1GetSubItemImage(Sender: TObject; Item: TListItem;
  SubItem: Integer; var ImageIndex: Integer);
begin
  Case SubItem of 
   0: ImageIndex := 10;
  else
    ImageIndex:=-1;
  end;
end;

[Pseudemys Nelsoni]

hallo marco,

kann ich das auch irgendwie direkt mit dem "ListItem" machen?

[MarcoWarm]

Du kannst ein Item anlegen, und die SubItems mit den Werten der Indizes in der Imagelist belegen:

Schritt1:

Delphi-Quellcode:

Item:=ListView1.Items.Add;
Item.SubItems.AddObject('MeinText1',TObject(IconIndex));
Item.SubItems.AddObject('MeinText2',TObject(IconIndex2));

usw.

Schritt2:

Delphi-Quellcode:

procedure TForm1.ListView1GetSubItemImage(Sender: TObject; Item: TListItem;
  SubItem: Integer; var ImageIndex: Integer);
begin
  ImageIndex:=Integer(Item.SubItems.Objects[SubItem]);
end;

Ciao

Marco

[Pseudemys Nelsoni]

hallo marco, danke, functioniert.

[Pseudemys Nelsoni]

ne funktionietr doch nicht, die icons werden mir nicht angezeigt wenn ich style auf vsReport habe und text unter bzw neben den icons sehe ich bei keneim style.

hatte es so versucht gehabt:

Delphi-Quellcode:

  li := listview1.Items.Add;
  li.SubItems.AddObject('bla', TObject(0));

ist das falsch? :roll:

[MarcoWarm]

Also eigentlich funktioniert das:

Bitte prüfe:

1. Enthält die ImageList mindestens ein Bild
2. Ist der ListView.SmallImages auch die richtige Imagelist zugeordnet
3. Enthält die ListView genug Spalten.

Wenn Du magst kann ich Dir ein Beispiel schicken.

Ciao

Marco

[Pseudemys Nelsoni]

hallo marke, alle 3 punkte stimmen zu, habe vorsichtshalber die imagelist überall eingefügt wo es nur ging, also largeimages, smallimages etc.

wäre nett wenn du mir das beispiel sendest ^^

[MarcoWarm]

Probiers aus.

[Pseudemys Nelsoni]

*marco meinte ich natürlich


danke es funktioniert :D