Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi shellListview...und was ist mit Filtern? (https://www.delphipraxis.net/21296-shelllistview-und-ist-mit-filtern.html)

FLINKER_FINGER 30. Apr 2004 14:15


shellListview...und was ist mit Filtern?
 
Huhu @ all

Bin gerad dabei zum ersten mal eine shellListView einzubauen und will es nun so einstellen, das man nur ordner und .Wav-Dateien angezeigt bekommt...

ist bestimmt ne einfache Frage , aber hab hier in diesem Forum leider keine antwort finden koennen :cry:

Also fals dass jemand weis und sein wissen hier :coder: , wäre ich dem jenigen sehr :mrgreen:

mirage228 30. Apr 2004 14:35

Re: shellListview...und was ist mit Filtern?
 
Schau mal das "OnAddFolder" Ereignis der ShellListView an. ^^

mfG
mirage228

FLINKER_FINGER 30. Apr 2004 14:38

Re: shellListview...und was ist mit Filtern?
 
bin nen totaler nuub :oops: das hilf mir ehrlich gesagt nicht so weiter :gruebel: :wiejetzt:

was kann ich damit einstellen ??

mirage228 30. Apr 2004 14:48

Re: shellListview...und was ist mit Filtern?
 
Zitat:

Zitat von FLINKER_FINGER
bin nen totaler nuub :oops: das hilf mir ehrlich gesagt nicht so weiter :gruebel: :wiejetzt:

was kann ich damit einstellen ??

Also ;)

Guckst du hier

Delphi-Quellcode:
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  CanAdd := (CompareText(ExtractFileExt(AFolder.PathName), '.zip') = 0) or
    AFolder.IsFolder;
end;
CanAdd bestimmt, ob der Eintrag hinzugefügt werden soll oder nicht.
CanAdd ist True, falls a) Die Dateierweiterung der Datei (ist in AFolder.PathName gespeichert) = .zip ist oder b) es sich um einen Ordner handelt (AFolder.IsFolder).
Ansonsten ist CanAdd = False und der Eintrag wird nicht hinzugefügt.

mfG
mirage228


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz