TImageEnMView.OnViewChange
Declaration
property OnViewChange: TIEViewChangeEvent;
Description
Occurs when the
ViewX,
ViewY or
Zoom properties change due to user interaction.
procedure TMyForm.ImageEnMViewOnViewChange(Sender: TObject; Change: integer);
begin
// Restrict zoom to range of 50 - 200
if ( Change = 1 ) and ( Zoom < 50 ) then
Zoom := 50
else
if ( Change = 1 ) and ( Zoom > 200 ) then
Zoom := 200;
end;