Manejo de ShellTreeView (ayuda please)

[Rafe]

Hola que tal ? como les va, quiseira preguntarles si alguno me puede ayudar, lo que necesito es lo siguiente......

tengo un ShellTreeView y un image en un formulario y quiero que cuando valle seleccionando archivos de imagen en el ShellTreeView me las muestre en el image, yo hice lo siguiente

image1.Picture.LoadFromFile( ??? );

en los signitos deberia ir la ruta de la imagen (el archivo que voy seleccioando del ShellTreeView) pero que pasa uno si lo primero que selecicono n oes una imagen me tira error, como hago para ahcer un if que solo si el archivo es una imagen haga algo sino no ????

Muchas gracias!!!

[dec]

Hola,

Tal vez sería posible indicar al componente que no muestre sino cierto tipo de archivos (de imagen) en base a sus extensiones. ¿No? Si no me equivoco esto es posible.

[keyboy]

Pienso, como dec, que lo mejor sería filtrar el ShellTreeView, aunque esto no es tan directo como ajustar una propiedad Filter. Debes usar el evento OnAdd del control:

Código Delphi [-]
procedure TForm1.ShellTreeView1AddFolder(
  Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  if not AFolder.IsFolder and (fpFileSystem in AFolder.Properties) then
    CanAdd := LowerCase(ExtractFileExt(AFolder.DisplayName)) = '.jpg';
end;

Claro que el filtro lo haces por la extensión del archivo, cosa que también puedes hacer para "determinar" si es o no un archivo de imagen:

Código Delphi [-]
with ShellTreeView1.SelectedFolder do
  if LowerCase(ExtractFileExt(DisplayName)) = '.jpg' then
    Image1.Picture.LoadFromFile(DisplayName);

Pero, que un archivo tenga una extensión como jpg, png, gif, etc., no necesariamente significa que sea una imagen, y no veo forma sencilla de determinarlo, pero en esos casos extremos, no pasa nada si dejas que se muestre la excepción.

Bye