Como bien dice el titulo, esto diseñando un aplicación que me escanee un directorio en busca de archivos bmp y jpg, y que me permita visualizar las imagenes encontradas en forma de thumbnails.
Yo para crear los thumbnails hago lo siguiente:
Código Delphi
[-]var
bmp: TBitmap;
jpg: TJpegImage;
scale: Double;
begin
if opendialog1.execute then
begin
jpg := TJpegImage.Create;
try
jpg.Loadfromfile(opendialog1.filename);
if jpg.Height > jpg.Width then
scale := 50 / jpg.Height
else
scale := 50 / jpg.Width;
bmp := TBitmap.Create;
try
bmp.Width := Round(jpg.Width * scale);
bmp.Height := Round(jpg.Height * scale);
bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);
Self.Canvas.Draw(10, 20, bmp);
jpg.Assign(bmp);
jpg.SaveToFile(ChangeFileext(opendialog1.filename, '_thumb.JPG'));
finally
bmp.free;
end;
finally
jpg.free;
end;
end;
Pero no se me ocurre, en que control dibujarlo, ya que quiciera meter todas las imagenes encontradas, ya pasadas a thumbnail en un mismo control, al estilo "vista de imagenes en miniatura" que trae el Xp. Ya que quiero poner un Checkbox a cada una, para seleccionarla o no.
Alguien esta inspirado y me tira alguna idea?
Saludos y gracias