PaintZoomFactor Example for Delphi

This example shows how to set the PaintZoomFactor property so that image is scaled 200 percent for display.

var
   sRet: Smallint;
begin
   LEADRasterView1.AutoScroll:= False;
   LEADRasterView1.AutoSetRects:= True;
   LEADRasterView1.PaintSizeMode:= PAINTSIZEMODE_ZOOM;
   LEADRasterView1.PaintZoomFactor:= 200;
   LEADRasterView1.ForceRepaint (sRet);
end;