IPrxSheetHeaderPart.Image

Синтаксис

Image: IGxImage;

Описание

Свойство Image определяет изображение для части заголовка/колонтитула.

Пример

Для выполнения примера предполагается наличие в репозитории регламентного отчёта с идентификатором REPORT. Также в файловой системе должен содержаться файл с изображением С:\Logo.png.

Добавьте ссылки на системные сборки: Drawing, Metabase, Report.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    Sheet: IPrxSheet;
    HeadersFooters: IPrxSheetHeaders;
    Header: IPrxSheetHeaderBase;
    HeaderPart: IPrxSheetHeaderPart;
    Img: IGxImage;
Begin
    MB := MetabaseClass.Active;
    // Получим регламентный отчёт
    MObj := MB.ItemById("REPORT").Edit;
    Report := MObj As IPrxReport;
    // Получим первый лист
    Sheet := Report.Sheets.Item(0);
    // Получим колонтитулы
    HeadersFooters := Sheet.HeadersFooters;
    // Получим верхний колонтитул
    Header := HeadersFooters.Header;
    // Настроим колонтитул для первого листа
    HeaderPart := Header.Center;
    HeaderPart.Text := "&[Picture]";
    Img := New GxImage.CreateFromFile("C:\Logo.png");
    HeaderPart.Image := Img;
    HeaderPart.ImageHeight := 10;
    HeaderPart.ImageWidth := 10;
    // Сохраним изменения
    MObj.Save;
End Sub UserProc;

После выполнения примера в центральной части верхнего колонтитула будет вставлено изображение из файла С:\Logo.png.

См. также:

IPrxSheetHeaderPart