StopMagGlass example for Delphi

var
   sRet: Smallint;
begin
   LEADRASTERVIEW1.ScaleMode := 3;
   //Set MagGlass flags
   //In this case the masked colors from the Magnifying Glass area will be all the colors
   //except those colors which will be set using the MagGlassMask property
   LEADRASTERVIEW1.MagGlassFlags := MAGGLASS_MASK_INVERT;
   //set the color mask to mask out all colors except a few shades of black
   LEADRASTERVIEW1.MagGlassMaskCount := 3;
   LEADRASTERVIEW1.MagGlassMask [0]:= RGB(0, 0, 0);
   LEADRASTERVIEW1.MagGlassMask[1]:= RGB(1, 1, 1);
   LEADRASTERVIEW1.MagGlassMask[2]:= RGB(2, 2, 2);
   LEADRASTERVIEW1.RgnFrameType:= 0;
   LEADRASTERVIEW1.StartMagGlass (100, 100, 400, RGB(255, 0, 0), RGB(128, 128, 128), True, 1, False, CROSSHAIR_FINE, True, True, sRet);
   //.......some other work..............
   //.......some other work..............
   //Stop the MagGlass
   LEADRASTERVIEW1.StopMagGlass (sRet);
end;