Mostrar sólo archivos .pdf en un ShellListView
 

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. :)

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

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

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

Hola,

¿Ya empezamos a complicar el asunto? :D

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

// saludos

Hola,

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

:D

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 :p (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.

Sigue sin funcionar
 

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?