Buscar por:

Visualizar varias imagems

Código

procedure {Nome do Form}.FormCreate(Sender: TObject);

var

    VisFoto: TImage;

    TitFoto: TLabel;

    Res: Integer;

    ARec: TSearchRec;

    Diretorio,

    Arquivo: TFileName;

    Pasta:Boolean;

begin

    Justify(reEvolucao);

    Diretorio:= 'C:Fotos'+EvoRpa+'';

    Arquivo:= '*.jpg';

    Pasta:= True;

    try

      Res:= FindFirst(Diretorio + Arquivo, faAnyFile or faArchive, ARec);

      while Res = 0 do begin

            if ((ARec.Attr and faArchive) = faAnyFile) or ((ARec.Attr and faArchive) = faArchive) then begin

               if Pasta then begin

                  VisFoto:= TImage.Create(ScrollBox1);

                  VisFoto.Parent:= ScrollBox1;

                  VisFoto.Align:= alTop;

                  VisFoto.Height:= 234;

                  VisFoto.DragMode:= dmAutomatic;

                  VisFoto.Stretch:= True;

                  VisFoto.Picture.LoadFromFile(Diretorio+ARec.Name);

                  TitFoto:= TLabel.Create(ScrollBox1);

                  TitFoto.Parent:= ScrollBox1;

                  TitFoto.Align:= alTop;

                  TitFoto.DragMode:= dmAutomatic;

                  TitFoto.Alignment:= taCenter;

                  TitFoto.Caption:= ARec.Name;

               end;

            end;

            Res:= FindNext(ARec);

      end;

      FindClose(ARec);

    except

         //

    end;

end;