OnZoomInDone example for Delphi

This example triggers the OnZoomInDone event and displays a message that the ZoomIn image has been captured.

           procedure TForm1.LeadCtrl1ZoomInDone (Sender: TObject; x, y: Integer);
           var
             msg : string;
           begin
             msg :=  'ZoomIn Captured: ' + IntToStr(x) + ',' + IntToStr(y);
             ShowMessage(msg);
           end;