Hola amigos:
Estoy utilizando el siguiente código, modificado del que ha publicado Neftalí, para visualizar miniaturas de imágenes.
Los nombres de archivo de las imágenes se cargan en un ImageList (TStringList), seleccionando una carpeta del disco duro.
Código Delphi
[-]procedure TFormPrincipal.CreateImages(ImageList: TStringList);
var
Image:TImage;
I:Integer;
begin
ScrollBox1.Width:= 180 * ImageList.Count;
for I := 0 to (ImageList.Count- 1) do begin
Image:= TImage.Create(nil);
Image.Parent:= ScrollBox1;
Image.Height:= 180;
Image.Width:= 180;
Image.Top:= 10;
Image.Left:= ((Image.Width + 8) * I);
Image.Transparent:= true;
Image.Align:= alLeft;
Image.Stretch:= True;
Image.Proportional:= True;
Image.IncrementalDisplay:= True;
Image.Center:= True;
Image.Picture.LoadFromFile(ImageList[i]);
Image.OnClick := ClickImage;
ObjectList.Add(Image);
ScrollBox1.Refresh;
end;
end;
Funciona sin problemas y las imágenes se ven perfectas en un TImage, con el siguiente código:
Código Delphi
[-]procedure TFormPrincipal.ClickImage(Sender: TObject);
begin
Image1.Bitmap.Assign(TImage(Sender).Picture);
end;
Necesito sin embargo, poder obtener el nombre del archivo de la imagen seleccionada, en un Label o Edit, al hacer click sobre la miniatura, para acceder a su metadata utilizando la librería CCR Exif.
Agradezco su valiosa ayuda
Saludos