ZoomInDone example for Delphi

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

procedure TForm1.LEADRasterView1ZoomInDone (Sender: TObject; x, y: Integer);
begin
   ShowMessage ( 'ZoomIn Captured: ' + IntToStr (x) + ',' + IntToStr(y));
end;