ImageEn, unit ieview

TIEActionExecuteEvent


Declaration

TIEActionExecuteEvent = procedure(Sender, Action: TObject; ID: Integer) of object;


Description

Parameter Description
Sender A TIEView descendent: TImageEnView, TImageEnMView or TImageEnFolderMView
Action Generally an ImageEn TAction, though may be a different control, such as TPaintBox, for controls on an ImageEn toolbar that do not support TActions
ID Unique ID for each action/control. For actions it aligns with an ImageEn Image Index. For other toolbar controls it is a Button ID


Example

procedure TMainForm.ImageEnView1ActionExecute(Sender, Action: TObject; ID: Integer);
begin
  if ( Action is TImageEnViewZoomIn ) or
     ( Action is TImageEnViewZoomOut ) then
    lblZoom.Caption := 'Zoom: ' + IntToStr( Round( ImageEnView1.Zoom )) + '%';
end;