Filtro para TShellListView

[soul6301]

Hola:

Tengo un inconveniente con el objeto TShellListView. Éste presenta todo tipo de archivos en su lista, pero ¿cómo hago para que sólo muestre los archivos de cierta extensión?

Gracias.

[roman]

Puedes usar el evento OnAddFolder del ShellListView. Este evento se genera cada vez que la componente va a agregar un elemento (folder o archivo) y tú decides si mostrarlo o no con el parámetro CanAdd. El parámetro AFolder contiene información acerca del elemento (folder o archivo) que se va a agregar.

Un pequeño ejemplo para mostrar sólo archivos .pas:

Código Delphi [-]
procedure TForm1.ShellListViewAddFolder(
  Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean
);
begin
  CanAdd := AFolder.IsFolder or (ExtractFileExt(AFolder.DisplayName) = '.pas');
end;

// Saludos