Thema: Delphi Listview + SubItems

Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
 
Delphi XE2 Professional
 
#8

Re: Listview + SubItems

  Alt 25. Nov 2004, 19:17
Danke für die Hilfe, ich mache es jetzt mit Hilfe des Quellcodes. Ist zwar etwas aufwendig aber es geht.

Delphi-Quellcode:
function listview_erstellen: boolean;
var
 ListItem : TListItem;
begin
 with frm_main.lv_systeminfo do
 begin
   ListItem := Items.Add;
   ListItem.Caption := 'Computer';
   ListItem.StateIndex := 0;
   ListItem.ImageIndex := -1;

   ListItem := Items.Add;
   ListItem.Caption := 'Betriebssystem';
   ListItem.SubItems.Add(GetOperatingSystem);
   ListItem.ImageIndex := 1;

   ListItem := Items.Add;
   ListItem.Caption := 'Version';
   ListItem.SubItems.Add(GetVersion);
   ListItem.ImageIndex := 2;

   ListItem := Items.Add;
   ListItem.ImageIndex := -1;

...
Letzte Frage, wie bekomme ich es aber hin, dass die Kategorienamen (z.B. Computer) gleich neben dem Symbol stehen? Und nicht in der gleichen Höhe, wie die Unterpunkte.
  Mit Zitat antworten Zitat