PaintSizeMode Example for Delphi

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

var
   sRet: Smallint;
begin
   LEADRasterView1.AutoScroll := True;
   LEADRasterView1.AutoSetRects := True;
   LEADRasterView1.PaintSizeMode := PAINTSIZEMODE_FITSIDES;
   LEADRasterView1.ForceRepaint (sRet);
end;