Mostrar sólo archivos .pdf en un ShellListView

[jmlifi]

¿cómo puedo mostrar en un ShellListView sólo archivos con extension pdf que están por ejemplo en "c:\activa"?

[dec]

Hola,

¿Y no te vendría mejor utilizar el componente "TFileListBox" que tiene su propiedad "Mask" y todo?

Lo encontrarás en la pestaña "Win 3.1" de la paleta de componentes de Delphi, si quieres probarlo.

[jmlifi]

Otra pregunta... ¿cómo hago parar mostrar los archivos que empiecen por una cadena de caracteres? por ejemplo todo lo que empiece por "b1":
b1werwe.pdf
b1qq.txt
b1222.dwg

[roman]

Empezado por dec

Lo encontrarás en la pestaña "Win 3.1"

Por un momento pensé que dirías que podía encontrarlo en el túnel del tiempo

Puede usar el evento OnAddFolder del ShellListView:

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

// Saludos

[dec]

Hola,

Empezado por jmlifi

Otra pregunta... ¿cómo hago parar mostrar los archivos que empiecen por una cadena de caracteres? por ejemplo todo lo que empiece por "b1":

¿Ya empezamos a complicar el asunto?

[roman]

Código Delphi [-]
CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';

// saludos

[dec]

Hola,

Código Delphi [-]
CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1')
  and (ExtractFileExt(AFolder.DisplayName) = '.pdf');

[[Lepe]]

Empezado por dec

Hola,

Código Delphi [-]
CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1')
  and (ExtractFileExt(AFolder.DisplayName) = '.pdf');

OFFTOPIC: Falta una carita en estos foros que me encanta usar: es uno de color rojo, sonriendo malvadamente, con dos colmillos chupasangres y cuernos. Además serían 12 caritas y ocuparía el hueco de la derecha (sería este más o menos)

Yo diría: Dec, te pasaste de listo (la carita va aquí), no tiene por qué ser un pdf Y empezar con b1, fijate que hay un archivo .txt que empieza con "b1" jejeje

Saludos.

[jmlifi]

Acabo de introducir:

Código Delphi [-]
procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
  CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';
end;

Tengo el ShellListView dentro de un page control y el siguiente código:

Código Delphi [-]
procedure TPzEdFrm.PageControl1Change(Sender: TObject);
var
  Path : String;
begin
   if(PageControl1.ActivePage).PageIndex=2 then begin
      Path := Principal.AdjPiezasPath;
      ShellListView1.Root := Path;
      ShellListView1.Enabled := true;
      ShellListView1.Visible := true;
   end;
end;

Quiero Mostrar sólo los archivos que empiecen por "b1" y que esten en el directorio Path.

¿Qué es lo que falla?