Procedure TThumbnail_form.IEFolderMView1ImageAdd(Sender: TObject; idx: integer; const sFilename: string; bFolder, bHiddenFile: boolean; iFileSizeBytes: Int64; CreateDate, EditDate: TDateTime; var bAllow: boolean); begin if fromto_checkbox.Checked then begin if (createdate > To_Date.datetime) or (createdate < From_Date.datetime) then bAllow:=false;
// for testing only showmessage('Filename: '+ sfilename+ ' Createdate: '+datetimetostr(createdate)+' Editdate: '+datetimetostr(editdate));
end;
I use the above procedure to images between a certain period to show . Unfortunately Craetedate and editdate here equal . See Messages. In the Folder View display , it is Ok . What is wrong ? Proberties IEFolderMView:
The discrepency here is that in the ImageAdd event the CreateDate is the file create date, whereas after loading a JPEG CreateDate is set to the EXIF DateTimeOriginal value for greater accuracy.
Search
IEFolderMView1ImageAdd CreateDate=EditDate bug ?
Posted - Nov 19 2015 : 08:19:06
