Buscar

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Imagens
Adicionada dia: 03/08/10
Por: Hilson De Oliveira Santos
Visualizada: 5087 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009