|
More-Majorum
France
17 Posts |
 Posted - Mar 13 2023 : 05:19:37
|
Good morning,
I created a procedure to generate the thumbnails of the disk cache (this avoids the slowdown during the first visualization). The problem is that it's not very fast, and besides, it looks more like DIY than anything else.
I assume there is a function to do this much better than I did, but I couldn't find.
procedure TForm1.cachecreation;
var
i : integer;
begin
ProgressBar1.Max := folder1.ImageCount -1;
for i := 0 to folder1.imagecount - 1 do
begin
folder1.Seek(ieioSeekNext);
ProgressBar1.Position := ProgressBar1.Position +1;
application.ProcessMessages;
end;
folder1.Seek(ieioSeekFirst);
ProgressBar1.Position := 0;
end; |
|
Search
Generate disk cache thumbnails
