Probleme mit VirtualListView

[marabu]

Auf die Schnelle:

Delphi-Quellcode:

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;
    // Liste bei Gelegenheit neu zeichnen
    ShowList.Invalidate;
    // ...
end;

procedure TForm1.ListMediaData(Sender: TObject; Item: TListItem);
var
  s: TStrings;
  idx: Integer;
begin
  if not Assigned(Item) then 
    Exit;
  with Item do
  begin
    if index < DirLst.Count then 
    begin
      s := DirLst;
      idx := index;
    end else
    begin
      s := FileLst;
      idx := index - DirLst.Count;
    end;    
    Caption := ExtractFilename(s[idx]);
    SubItems.Add(s[idx]);   // idx und nicht index ...
    // Ordner- oder File-Icon zuweisen
    ImageIndex := Ord(idx < index); 
  end; // with Item
end;

Grüße