TIEMViewImageNotifyEvent

Declaration

type TIEMViewImageNotifyEvent = procedure(Sender: TObject; Index: Integer) of object;

Description

Used by OnImageAdded, OnImageLoaded and OnImageLoaded.
Index is the index of the relevant image.

Example

// After image has loaded, use EXIF aperture as Info text
procedure TForm1.ImageEnMView1ImageLoaded(Sender: TObject; Index: Integer);
var
  s: string;
begin
  s := ImageEnMView1.MIO.Params[ Index ].EXIF_ApertureValue2;
  if s = '' then
    s := '-';
  ImageEnMView1.ImageInfoText[Index] := 'Aperture: ' + s;
end;

See Also

◼OnImageAdded
◼OnImageLoaded
◼OnImageLoaded

---