Items Horizontal nebeneinander anzeigen

[PatrickB]

Hi,

ich versuche gerade die Dateien eines Ordners anzeigen zu lassen.
Nun will ich das aber so machen, dass die Elemente horizontal angezeigt werden, so wie wenn man die Dateien bzw. Ordner unter Windows bei Ansicht als "Liste" anzeigen lässt.

Mit einer Listbox werden die ja nur untereinander angezeigt. Und mit dem Listview weiß ich nicht wie das funktionieren könnte wenns denn funktioniert.

Hoffe ihr versteht meine Frage,

Danke schonmal, PatrickB

[mkinzler]

Schau dir mal ListView.ViewStyle an.

[marabu]

Hallo Patrick,

die ListView hat eine Property ViewStyle. Die Werte vsIcon und vsSmallIcon liefern die von dir gewünschte Ordnung.

Kennst du die Delphi Beipiel-Komponente ShellListView?

Grüße vom marabu

[dominikkv]

Zitat von PatrickB:

Nun will ich das aber so machen, dass die Elemente horizontal angezeigt werden, so wie wenn man die Dateien bzw. Ordner unter Windows bei Ansicht als "Liste" anzeigen lässt.

Als Ansicht = "Liste" werden die Dateien im Explorer vertikal (Also untereinander) angezeigt, nicht horizontal.
Wenn du ein ListView auf vsReport stellst hast du diesen Effekt.

Ansomsten schau dir mal diverse ShellTreeViews an, die sind extra dazu konzepiert.

[PatrickB]

Ok, dann müsste das ja das Richtige sein.
Aber irgendwie komme ich mit diesem ListView nicht zurecht und die Hilfe funktioniert nicht mehr. Da kommt am Start ein Fehler, dass die Datei nicht gefunden wurde für die Hilfe, deswegen frag ich jetzt hier.

Wie funktioniert das ListView genau?

Also es gibt ja dazu noch das ListItem und Subitem, aber die Subitems bekomm ich z.B. garnicht angezeigt und wenn ich mehrere ListItems haben will, müsst ich die ja alle oben deklarieren oder wie?

Hier mal ein Ausschnitt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var srec: TSearchRec;
    li: TListItem;
begin
  //--------Dateien einlesen
 if Findfirst('Verzeichnis+'*.mp3', faAnyFile, srec) = 0 then
 begin
  REPEAT
   li := ListView1.Items.Insert(0);
   li.Caption := srec;
  UNTIL FindNext(srec) <> 0;
 end;
 findclose(srec);
 //------------------------
end;

Also das Programm geht in ein Verzeichnis und soll von dort alle Lieder mit der Endung .mp3 auflisten.
Zwischen REPEAT und UNTIL sollen dann die Ergebnisse in das ListView eingetragen werden.
Nur wenn ich das jetzt so mache, falls das überhaupt so richtig ist, gibt er mir natürlich den Fehler, dass li.Caption ein String und kein TSearchRect sein darf.

Danke schonmal,
Gruß PatrickB

[taaktaak]

Wenn die Affenhitze in Hamburg mir nicht den Kopf total vernebelt hat, dann müsste zumindest dieser Teil verändert werden:

Delphi-Quellcode:

li := ListView1.Items.Insert(0); 
   li.Caption := srec;

Dein Ziel ist doch, den Dateinamen in das Listview zu bringen. Der Dateiname steht in srec.Name, einen Eintrag in das Listview erzeugt man mit ...items.add(). Also

ListView1.Items.Add(srec.name)

[PatrickB]

ListView1.Items.Add(); erwartet keinen Parameter, aber wenn ich anstatt srec, srec.name mache gehts.
Jetzt wirds mir angezeigt mit Style = List.
Aber die Einträge sind jetzt so weit auseinander, kann man das einstellen damit die näher beisammen sind?

[DeddyH]

Dann hast Du eine Datei oder einen Ordner mit einem sehr langen Namen darin (siehe Anhang).

[PatrickB]

Ok, danke. Hab den Ordner gefunden.

[taaktaak]

Uhhhhh, jetzt habe ich mich geoutet, noch nie mit Listview gearbeitet zu haben