PaintSizeMode example for Delphi

This example shows how to set the PaintSizeMode property so that the control uses only a vertical scroll bar.

Lead1.AutoScroll:=True;
Lead1.AutoSetRects:=True;
Lead1.PaintSizeMode:= smFitSides;
Lead1.ForceRepaint;