Hi,
i have found the following, when I do:
IEFolderMView1.IncludeSubFolders: = false;
IEFolderMView1.SetFolderEx (dir, iefAllImagesAndVideos, '');
And immediately:
IEFolderMView1.IncludeSubFolders: = true;
IEFolderMView1.SetFolderEx (dir, iefAllImagesAndVideos, '');
Then the following procedure will run twice at the second time for each image.
TForm1.ILolderMViewImageAdd (Sender: TObject; idx: Integer; const sFilename: string; bFolder, bHiddenFile: Boolean;
IFileSizeBytes: Int64; CreateDate, EditDate: TDateTime; Var bAllow: Boolean);
Begin
Label1.Caption: = inttostr (idx);
If odd (idx) then application.ProcessMessages;
end;
What can i do ?
Klaus
www.klausdoege.de