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;