Recorrer archivos de un directorio y mostrar graficos en miniaturas

[ecfisa]

Hola cmfab.

En tu form poné un TDirectoryListBox (pestaña Win31) y un TScrollBox (pestaña Aditional).

Código Delphi [-]
...

implementation

uses contnrs, jpeg;

var
  ObjList: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox1.Directory:= '';
  ObjList:= TObjectList.Create;
end;

procedure TForm1.BuscarImagenes(const Ruta: string);
var
  SR: TSearchRec;
  Img: TImage;
  E: string;
  n: Integer;
begin
  if FindFirst(Ruta + '\*.*', faAnyFile, SR) = 0 then
  begin
    n:= 0;
    repeat
      E:= ExtractFileExt(SR.Name);
      if (E='.jpg')or(E='.jpeg')or(E='.bmp')or(E='.emf')or(E='.wmf') then
      begin
        Img:= TImage.Create(Self);
        ObjList.Add(Img);
        with TImage(ObjList.Items[n]) do
        begin
          Height:= 80;
          Width:= 80;
          Left:= 10;
          Top := 120 * n + 10;
          Stretch:= True;
          Picture.LoadFromFile(Ruta+'\'+SR.Name);
          Parent:= ScrollBox1;
          Inc(n);
        end;
      end
    until FindNext(SR) <> 0;
    FindClose(SR)
  end
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  ObjList.Clear;
  BuscarImagenes(DirectoryListBox1.Directory);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(ObjList) then
    FreeAndNil(ObjList);
end;

Saludos.