ITabSheetPrinter.FirstPageGap

Syntax

FirstPageGap: Double;

Description

The FirstPageGap property sets indent on the first page.

Example

To execute the example, a form with a button on it that has the Button1 identifier, the TabSheetBox component, the UiTabSheet and ImageBox components with the UiTabSheet1 and ImageBox1 identifiers respectively is required. UiTabSheet is the data source for the TabSheetBox component. The file system must also include the file C:/map.bmp containing an image.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

tSheet: ITabSheet;

Printer: ITabSheetPrinter;

pCount: Integer;

Graphics: IGxGraphics;

m_Image: IGxImage;

Begin

tSheet := UiTabSheet1.TabSheet;

Printer := tSheet.CreatePrinter;

Printer.FirstPageGap := 30;

Printer.HeaderGap := 15;

Printer.FooterGap := 30;

Printer.PageSettings.BlackAndWhite := True;

pCount := Printer.GetPageCount;

If pCount > 0 Then

m_Image := New GxImage.CreateFromFile("C:/map.bmp");

Graphics := GxGraphicsClass.FromImage(m_Image);

Printer.PrintPage(1, Graphics);

ImageBox1.Image := m_Image;

End If;

End Sub Button1OnClick;

After executing the example the contents of the TabSheetBox component is displayed in graphical form with specified parameters in the ImageBox1 component.