Hello
I am scanning 35mm film utilizing a Nikon scanner that assigns a date to the EXIF_DateTimeDigitized parameter of the digitized image. I display these images in an ImageEnFolderMView component and allow the user to select via ComboBoxes what is displayed in the DefaultTopText, DefaultInfoText and DefaultBottomText parameters.
If the default text parameter is iedtCustom then I wish to display the EXIF_DateTimeDigitized parameter of the respective image in the ImageEnFolderMView component. I am utilizing the ImageEnFolderMView1GetTextEx event to do this but have been unsuccessful in acquiring the EXIF_DateTimeDigitized value for the respective image from within this event. Any help would be appreciated.
procedure TformPhotoCatalog.ImageEnFolderMView1GetTextEx(Sender: TObject;
Index: Integer; Position: TIEMTextPos; var Text: WideString; Font: TFont;
var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
var TruncSide: TIEMTruncSide);
var
tempFileExt: String;
begin
tempFileExt := ExtractFileExt( Text );
if IEExtToFileFormat( tempFileExt ) = ioJPEG then
begin
if Position = iemtpTop then
begin
if ImageEnFolderMView1.DefaultTopText = iedtCustom then
begin
Text := This is where I need to acquire the EXIF_DateTimeDigitized value of the respective image;
end;
end
else
begin
if Position = iemtpInfo then
begin
if ImageEnFolderMView1.DefaultInfoText = iedtCustom then
begin
Text := see above
end;
end
else
begin
if Position = iemtpBottom then
begin
if ImageEnFolderMView1.DefaultBottomText = iedtCustom then
begin
Text := see above
end;
end;
end;
end;
end;
Search
