Vampyre Imaging
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure ResizeImage(const ASource, ADest: String);
var
Img: TImageData;
AspectRatio: Single;
begin
Imaging.InitImage(Img);
try
Imaging.LoadImageFromFile(ASource, Img);
AspectRatio := Img.Width / Img.Height;
Imaging.ResizeImage(Img, 100, Round(100 / aspectratio), rfNearest);
Imaging.SaveImageToFile(ADest, Img);
finally
Imaging.FreeImage(img);
end;
end;
Я событии TDataSet.onCalcFields показываю миниатюру, если ее нет создаю на лету. Файл сохраняется и в следующий раз уже создавать не нужно.
Нужно не забывать удалять, если объект удаляется.
Можно создать процедуру автоматический очистки миниатюр несуществующих объектов.
