UpdateMagGlassShape example for Delphi

var
   sRet: Smallint;
   h_Rgn: Longint;
begin
   LEADRasterView1.ScaleMode := 3;
   LEADRasterView1.RgnFrameType := 0;
   LEADRasterView1.StartMagGlass ( 100, 100, 400, RGB(255, 0, 0),
                                   RGB(128,128, 128), True, 1, False,
                                   CROSSHAIR_FINE, True, True, sRet ) ;

   h_Rgn := CreateRoundRectRgn(0, 0, 100, 100, 25, 25);
   LEADRasterView1.UpdateMagGlassShape (MAGGLASS_SHAPE_HRGN, h_Rgn, sRet);
   DeleteObject ( h_Rgn ) ;
   //.......some other work..............
   //.......some other work..............
   //Stop the MagGlass
   LEADRasterView1.StopMagGlass (sRet);
end;