Declaration
type TIEMViewImageNotifyEvent = procedure(Sender: TObject; idx: integer) of object;
Description
Used by
OnImageAdded,
OnImageLoaded and
OnImageLoaded.
idx is the index of the relevant image.
// After image has loaded, use EXIF aperture as Info text
procedure TForm1.ImageEnMView1ImageLoaded(Sender: TObject; Idx: Integer);
var
s: string;
begin
s := ImageEnMView1.MIO.Params[ Idx ].EXIF_ApertureValue2;
if s = '' then
s := '-';
ImageEnMView1.ImageInfoText[idx] := 'Aperture: ' + s;
end;