Capture example for Delphi

This example captures the current form and displays the captured image with scroll bars.

Dim OldMode
var
   sRet: Smallint;
   OldMode: Integer;
begin
   //Turn on the automatic display rectangles.
   LEADRasterView1.AutoSetRects := True;
   //Set the scale mode to twips temporarily
   OldMode := LEADRasterView1.ScaleMode;
   LEADRasterView1.ScaleMode := 1;
   LEADRasterView1.Raster.Capture (0, Left, Top, Width, Height);
   LEADRasterView1.AutoScroll := True;
   LEADRasterView1.ForceRepaint (sRet);
   //Set the scale mode to the previous mode
   LEADRasterView1.ScaleMode := OldMode;
end;