Using-TFilterComboBox-with-TShellTreeView-to-Filter-Files-and-Folders-being-Displayed-by-the-Shell-Tree-View


            Title: Using TFilterComboBox with TShellTreeView to Filter Files and Folders being Displayed by the Shell Tree View
The TShellTreeView Delphi component displays a hierarchical tree view of the system's shell folders. By default it will display only folders, and when paired with the TShellListView it enables you to build a Windows Explorer clone.
The ObjectTypes property of the ShellTreeView allows for Non-Folder types to be also displayed by the Shell Tree View. 
When an item is being added to the shell tree, the AddFolder event is raised. The CanAdd parameter can be set to false to true to either display the folder/file or not.
To filter the files in the shell tree view, by file extension, the TShellTreeView can be used with the TFilterComboBox ("Win31" palette).
For a test application, drop a TFilterComboBox and a TShellTreeView on a Delphi form. Use ObjectInspector to specify some filters for the FilterComboBox, then use the AddFolder event to filter the ShellTreeView.
The follwing methods are event handlers for FilterComboBox.OnChange, ShellTreeView.AddFolder and Form.OnCreate.
 //refresh the Shell Tree View when Filter (Mask) changes
 procedure TFilterTreeForm.FilterComboBox1Change(Sender: TObject) ;
 begin
 ShellTreeView1.Refresh(ShellTreeView1.Items.GetFirstNode) ;
 end;
 
 //Show or Hide the Folder/File depending on the selected mask
 procedure TFilterTreeForm.ShellTreeView1AddFolder(
 Sender: TObject;
 AFolder: TShellFolder;
 var CanAdd: Boolean) ;
 var
 maskExt : string;
 fileExt : string;
 begin
 maskExt := ExtractFileExt(FilterComboBox1.Mask) ;
 
 if maskExt = '*.*' then
 begin
 CanAdd := true;
 Exit;
 end;
 
 fileExt := ExtractFileExt(AFolder.DisplayName) ;
 
 CanAdd := AFolder.IsFolder OR (CompareText(maskExt,fileExt) = 0) ;
 end;
 
 //let ShellTreeView display the files, also
 procedure TFilterTreeForm.FormCreate(Sender: TObject) ;
 begin
 ShellTreeView1.ObjectTypes := [otNonFolders] + ShellTreeView1.ObjectTypes;
 end; 
Note: The TShellTreeView is not installed with Delphi, you need to manually install the Shell package.
Files Delphi
