AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit VirtualListView

Ein Thema von bluescreen25 · begonnen am 14. Okt 2006 · letzter Beitrag vom 14. Okt 2006
Antwort Antwort
bluescreen25

Registriert seit: 27. Nov 2005
Ort: Geldern
229 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: Probleme mit VirtualListView

  Alt 14. Okt 2006, 17:09
noch ein klitzekleines Problem:

wie bekomme ich die Einträge von Dir und Files in der Listview untereinander rein ?
Es funktioniert das mit den Directories, aber beides?

Delphi-Quellcode:
//Dateien und Ordner in die ListView eintragen
procedure ShowFiles(ShowList: TListView; Rekursive: Boolean; ShowDir: Boolean);
var
  I: Integer;
begin
  if ShowList.Name = 'mediathen
  begin
    if ShowList.Selected <> nil then Path := Copy(ListMedia.Selected.SubItems.Text,0, length(ListMedia.Selected.SubItems.Text)- 2);
    if FileExists(Path) then //Ist der Pfad eine Datei ?
    begin
      Path := GetPreviousDirectory(Path);
      Path := GetPreviousDirectory(Path);
    end;
    DirLst := TStringList.Create; //Temponäre Listen erstellen
    FileLst := TStringList.Create;
    FindAllFiles(DirLst, FileLst, Path, FileMask, Rekursive, True, True); //Alle Ordner und Dateien in Liste schreiben
    ShowList.Clear;
    if ShowDir then //Ordner anzeigen wenn True
    begin
      for I := 0 to DirLst.Count-1 do //Dir-List durchzählen
      begin
        with ListMedia do //Neuen Ordner hizufügen
        begin
          Items.Count := DirLst.Count;
        end;
      end;
    end;
    for I := 0 to FileLst.Count-1 do //File-List durchzählen
    begin //Die Dateien werden unter den Ordnern angezeigt
        with ListMedia do
      begin
        //Items.Count := FileLst.Count;
      end;
    end;
  end;
end;


procedure TForm1.ListMediaData(Sender: TObject; Item: TListItem);
begin
  if (Item=nil) then Exit;
  with Item do
  begin
    Caption:= ExtractFilename(DirLst.Strings[index]);
    SubItems.Add(DirLst[index]);
    ImageIndex := 0; //Ordner-Icon zuweisen

    //Caption:= ExtractFilename(FileLst.Strings[index]);
    //SubItems.Add(FileLst[index]);
    //ImageIndex := 1; //Datei-Icon zuweisen
  end; // with Item
end;
Grüße, bluescreen25
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz