Настройка заголовка листа рабочей книги

Для выполнения примера предполагается наличие в репозитории рабочей книги с идентификатором «OBJ123», в которой будут изменены настройки заголовка.

Подключите ссылки на следующие системные сборки:

• Drawing;

• Express;

• Metabase (только для Fore).

Пример Fore

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    Title: IGxTitle;
Begin
    MB := MetabaseClass.Active;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById("OBJ123").Edit;
    Exp := MObj As IEaxAnalyzer;
    Title := Exp.TitleBar;
    //Отобразим заголовок рабочей книги
    Title.Visible := True;
    //Текст
    Title.Text := "Отчет: &[Name]" + #13+#10 + "Дата и время создания: &[Date]  &[Time]";
    //Цвет фона и шрифта
    Title.BackgroundColor := GxColor.FromName("LavenderBlush");
    Title.TextColor := GxColor.FromName("SlateBlue");
    //Горизонтальное выравнивание текста
    Title.TextAlignment := GxStringAlignment.Near;
    //Вертикальное выравнивание текста
    Title.VerticalAlignment := GxVerticalAlignment.Center;
    //Перенос текста
    Title.WrappedText := True;
    //Автоподгонка высоты заголовка
    Title.AutoHeight := True;
    //Максимальная высота
    Title.Height := 50;
    //Использование заголовка как элемента управления
    Title.IsControl := True;
    MObj.Save;
End Sub UserProc;

После выполнения примера будет отображен заголовок рабочей книги и изменено его оформление. В заголовке рабочей книги будут отображаться е ё заголовок и дата и время её создания:

Пример Fore.NET

Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должны быть импортированы сборки Express, Metabase, Drawing из системной сборки Prognoz.Platform.Interop.

Public Shared Sub Main(Params: StartParams);

Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    Title: IGxTitle;
    GxColorCls: GxColorClassClass = New GxColorClassClass();
Begin
    MB := Params.Metabase;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById["OBJ123"].Edit();
    Exp := MObj As IEaxAnalyzer;
    Title := Exp.TitleBar;
    //Отобразим заголовок рабочей книги
    Title.Visible := True;
    //Текст
    Title.Text := " Отчет: &[Name] \u000D\u000A Дата и время создания: &[Date]  &[Time]";
    //Цвет фона и шрифта
    Title.BackgroundColor := GxColorCls.FromName("LavenderBlush");
    Title.TextColor := GxColorCls.FromName("SlateBlue");
    //Горизонтальное выравнивание текста
    Title.TextAlignment := GxStringAlignment.gsaNear;
    //Вертикальное выравнивание текста
    Title.VerticalAlignment := GxVerticalAlignment.gvaCenter;
    //Перенос текста
    Title.WrappedText := True;
    //Автоподгонка высоты заголовка
    Title.AutoHeight := True;
    //Максимальная высота
    Title.Height := 50;
    //Использование заголовка как элемента управления
    Title.IsControl := True;
    MObj.Save();
End Sub;

Результат выполнения примера аналогичен результату примера на Fore.

См. также:

Примеры