ImageEn, unit iexBitmaps

TIEMViewImageNotifyEvent


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.


Example

// 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;