Delphi | Thumbnails - como fazer ?

08/05/2007

Aloizio Castro

Algu�m sabe como eu fa�o para que meu sistema mostre as fotos como se fossem thumbnails? Estou utilizando Delphi 7. Att.

Isto onde?? DBGrid?? Listar todas as fotos de uma pasta no Form?!?

Responder

Gostei + 0

08/05/2007

Marcos.gandin

Eu preciso mostrar essas fotos em um Form, eu pensei em colocar um ScrollBox e dentro desse ScrollBox eu poderia mostrar as fotos que est�o dentro de uma pasta salva no meu computador.

Responder

Gostei + 0

08/05/2007

Aloizio Castro

Eu preciso mostrar essas fotos em um Form, eu pensei em colocar um ScrollBox e dentro desse ScrollBox eu poderia mostrar as fotos que est�o dentro de uma pasta salva no meu computador.

Pow, acho q tenho um codigo aqui, vou procurar e jah posto!! :wink:

Responder

Gostei + 0

08/05/2007

Marcos.gandin

Valeu amigo...
Se puder me ajudar eu te agrade�o muito.

Um abra�o...

Responder

Gostei + 0

08/05/2007

Aloizio Castro

Valeu amigo... Se puder me ajudar eu te agrade�o muito. Um abra�o...

procedure CreateThumbs(Diretorio: String; ThumbSize: Word; Owner: TWinControl);
var
  i: Word;
  Img: TImage;
  Ext: String;
  Arqs: TStrings;
  wTop, wLeft: Word;
  Obj: TObject;
begin
  //-- Listar arquivos do diretorio
  Diretorio := IfThen(RightStr(Diretorio,1) <> �\� , Diretorio + �\� , Diretorio);
  Arqs := TShell.ListaArq(Diretorio);

  //-- Posi��o dos componentes
  wTop  := 8;
  wLeft := 8;

  //-- Destruir componentes de thumbs antigo
  if Owner.ComponentCount > 0 then
    begin
      for i := Owner.ComponentCount-1 downto 0 do
        begin
          if (Owner.Components[i] is TImage) then
            if (Owner.Components[i] as TImage).Tag = 785 then
              begin
                Obj := Owner.Components[i];
                FreeAndNil(Obj);
              end;
        end;
    end;

  //-- Exibir imagens
  if Arqs.Count > 0 then
    begin
      for i := 0  to Arqs.Count -1 do
        begin
          Ext := UpperCase(ExtractFileExt(Arqs[i]));

          if (Ext = �.BMP�) or (Ext = �.JPG�) or (Ext = �.WMF�) or (Ext = �.JPEG�) then
            begin
              Img := TImage.Create(Owner);
              Img.Parent := Owner;
              Img.Stretch := True;
              Img.Proportional := True;
              Img.Center := True;
              Img.Tag := 785;
              Img.Picture.LoadFromFile(Diretorio + Arqs[i]);
              Img.SetBounds(wLeft,wTop,ThumbSize,ThumbSize);

              //-- Pular linha qdo ultrapassar o width do scrollbox
              wLeft := ThumbSize + 8 + wLeft;
              if wLeft > Owner.Width then
                begin
                  wLeft := 8;
                  wTop := ThumbSize + 8 + wTop;
                end
            end;

        end;
    end;
end;

end.

Para listar o arquivo, use a fun��o abaixo:

  TShell = class
  public
    class function ListaArq(Caminho: string;Filtro : String = �*.*�): TStrings;
  end;

implementation

{ TShell }

class function TShell.ListaArq(Caminho, Filtro: String): TStrings;
var
  SR : TSearchRec;
  I  : integer;
begin
  Result := TStringList.create;
  I := FindFirst(Caminho+Filtro, faAnyFile, SR);
  while I = 0 do
    begin
      if (SR.Attr and faDirectory) <> faDirectory then
         Result.Add(SR.Name);
      I := FindNext(SR);
    end;
end;

Use da seguinte maneira:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  CreateThumbs(�D:\Nosredna\Meus documentos\Minhas imagens�,50,ScrollBox1);
end;

Aqui funcionou perfeitamaente!!

Teste aew, abra�os :wink:

Responder

Gostei + 0

08/05/2007

Marcos.gandin

Poxa _anderson_...
Vou testar aqui...

Muito obrigado mesmo meu amigo!!!

Att.

Responder

Gostei + 0

08/05/2007

Marcos.gandin

Anderson...

Eu preciso declarar alguma coisa no Uses ?

Responder

Gostei + 0

08/05/2007

Aloizio Castro

Anderson... Eu preciso declarar alguma coisa no Uses ?

Para usar .JPG, declare Jpeg;
Para usar o RightStr declare StrUtils.

Responder

Gostei + 0

08/05/2007

Marcos.gandin

Valeu Anderson...

Agora funcionou...mas abusando um pouco mais da sua boa vontade, ser� que tem como quando eu der um duplo-clique na foto abrir ela no seu tamanho original ou ent�o num tamanho pr�-determinado em um outro Form ?

Aceito sugest�es...

Responder

Gostei + 0

09/05/2007

Titanius

S� mais uma coisa.. a biblioteca JEDI, tem um componente que faz o que voc� quer... muito bom, quando precisei usei ela...

[]s

Responder

Gostei + 0

09/05/2007

Marcos.gandin

Mas essa biblioteca faz os thumbnails ou faz com que eu d� um duplo clique a foto fique no tamanho original?
� que eu j� consegui fazer os thumbnails com o exemplo que o Adriano me passou, o que eu preciso agora � s� fazer com que a foto fique do tamanho original.

Aonde eu consigo essa bilioteca?

Att.

Responder

Gostei + 0

09/05/2007

Titanius

http://jvcl.sourceforge.net/

Seguinte, ela te mostra o tumb.. mas a parte do tamanho original n�o, mas isso voc� mesmo pode fazer, com um Form, e um TImage... dando duplo clique, abre este form mostrando esta imagem...

[]s

Responder

Gostei + 0

09/05/2007

Marcos.gandin

Valeu Fellipe...

Na verdade eu n�o tinha pensando nessa possibilidade...mas como eu vou saber qual foto vai abrir uma vez que vou colocar o c�digo no evento OnDblClick do componente ScrollBox ?

Att.

Responder

Gostei + 0

09/05/2007

Titanius

Valeu Fellipe... Na verdade eu n�o tinha pensando nessa possibilidade...mas como eu vou saber qual foto vai abrir uma vez que vou colocar o c�digo no evento OnDblClick do componente ScrollBox ? Att.

Bem, no tal componente do JEDI, voc� tem condicoes de saber qual o arquivo est� selecionado, agora como voc� fez, eu n�o sei.. voc� poder� verificar onde foi clicado, e se tem alguma imagem, pra aih descobrir o caminho dela pra exibir... mas aconselho a voce a dar uma olhada neste componente... :wink:

[]s

Responder

Gostei + 0

09/05/2007

Marcos.gandin

Felipe...

Essa biblioteca Jedi � Free ?

Responder

Gostei + 0

F�rum Thumbnails - como fazer ? #341417