Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Okt 2006
Tut mir leid, da war ein kleiner Fehler durch Copy & Paste entstanden:
// SubItems.Add(s); // ist falsch
SubItems.Add(s); // idx ist richtig
Habe es oben korrigiert.
Gute Nacht
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Okt 2006
Auf die Schnelle:
procedure ShowFiles(ShowList: TListView; Rekursive: Boolean; ShowDir: Boolean);
begin
// ...
//Alle Ordner und Dateien in Liste schreiben
FindAllFiles(DirLst, FileLst, Path, FileMask, Rekursive, True, True);
// Liste dimensionieren
ShowList.Items.Count := DirLst.Count + FileLst.Count;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Okt 2006
Da scheint mir etwas zu fehlen:
begin
// ...
with SkinList do
begin
// ...
OnData := ListMediaData;
// ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Okt 2006
Apropos Ansatz - auch das hier findest du im Forum: klick
Es ist recht überschaubar und in Verbindung mit der Delphi Online Hilfe könntest du versuchen es nachzuvollziehen.
Grüße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Okt 2006
Hallo,
nicht zuletzt weil du die ListView auch als Daten-Container benutzt, solltest du alle Zugriffe auf die Items (Clear, Add) mit BeginUpdate und EndUpdate einfassen.
Grüße vom marabu