ITabSheetPrinter.FirstPageHeaderGap

Синтаксис Fore

FirstPageHeaderGap: Double;

Синтаксис Fore.NET

FirstPageHeaderGap: double;

Описание

Свойство FirstPageHeaderGap определяет отступ для заголовка на первой странице.

Комментарии

Для определения отступа для нижнего колонтитула на первой странице используйте свойство ITabSheetPrinter.FirstPageFooterGap.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компоненты:

• Button с идентификатором «Button1»;

• TabSheetBox с идентификатором «TabSheetBox1»;

• UiTabSheet с идентификатором «UiTabSheet1»;

• ImageBox с идентификатором «ImageBox1».

Укажите компонент «UiTabSheet1» в качестве источника данных для компонента «TabSheetBox1».

В файловой системе должен присутствовать файл «C:/map.bmp», содержащий изображение.

Добавьте ссылку на системную сборку Drawing.

Пример является обработчиком события OnClick для компонента «Button1».

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.FirstPageHeaderGap := 30;
    Printer.FirstPageFooterGap := 30;
    Printer.DifferentFirstPageGap := True;
    // Настроим отступы для чётных страниц
    Printer.EvenHeaderGap := 20;
    Printer.EvenFooterGap := 20;
    Printer.DifferentEvenPageGap := 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;

При нажатии на кнопку «Button1» будут настроены отступы для первой страницы и для чётных страниц. Содержимое компонента «TabSheetBox1» будет выведено в компонент «ImageBox1» с заданными параметрами.

Пример Fore.NET

Необходимые требования примера Fore.NET совпадают с требованиями примера Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    tSheet: ITabSheet;
    Printer: ITabSheetPrinter;
    pCount: Integer;
    Graphics: GxGraphics;
    GraphClass: GxGraphicsClass;
    GxClass: GxImageClass;
    m_Image: GxImage;
Begin
    tSheet := UiTabSheetNet1.TabSheetUi.TabSheet;
    Printer := tSheet.CreatePrinter();
    // Настроим отступы для первой страницы
    Printer.FirstPageHeaderGap := 30;
    Printer.FirstPageFooterGap := 30;
    Printer.DifferentFirstPageGap := True;
    // Настроим отступы для чётных страниц
    Printer.EvenHeaderGap := 20;
    Printer.EvenFooterGap := 20;
    Printer.DifferentEvenPageGap := True;
    pCount := Printer.GetPageCount();
    If pCount > 0 Then
        GxClass := New GxImageClassClass();
        m_Image := GxClass.FromFile("C:/map.bmp");
        GraphClass := New GxGraphicsClassClass();
        Graphics := GraphClass.FromImage(m_Image);
        Printer.PrintPage(1, Graphics);
        m_Image.SaveToFile("C:/map1.bmp");
        PictureBox1.Image := Image.FromFile("C:/map1.bmp");
    End If;
End Sub;

При нажатии на кнопку «Button1» будут настроены отступы для первой страницы и для чётных страниц. Содержимое компонента «TabSheetBox1» будет сохранено в файл «C:/map1.bmp» и загружено в компонент «PictureBox1».

См. также:

ITabSheetPrinter