PaintZoomFactor example for Delphi

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

Lead1.AutoScroll:=False;
Lead1.AutoSetRects:=True;
Lead1.PaintSizeMode:=smZoom;
Lead1.PaintZoomFactor:=200;
Lead1.ForceRepaint;