ITabFootnotes.NumberStyle

Синтаксис Fore

NumberStyle: TabNumberStyle;

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

NumberStyle: Prognoz.Platform.Interop.Tab.TabNumberStyle;

Описание

Свойство NumberStyle определяет стиль цифр, который используется для нумерации сносок.

Комментарии

По умолчанию для нумерации сносок используются арабские цифры. При необходимости стиль цифр можно изменить или задать пользовательскую метку, которая будет использоваться для обозначения всех сносок.

Для получения номера сноски с учетом заданного стиля используйте свойство ITabFootnote.NumberText.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiTabSheet с наименованием «UiTabSheet1» и каких-либо визуальных компонентов, для которых «UiTabSheet1» установлен в качестве источника данных.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TabSheet: ITabSheet;
    Footnotes: ITabFootnotes;
    Footnote: ITabFootnote;
Begin
    TabSheet := UiTabSheet1.TabSheet;
    Footnotes := TabSheet.Footnotes;
    Footnotes.Font.Bold := TriState.OnOption;
    Footnotes.NumberStyle := TabNumberStyle.UppercaseCyrillic;
    Footnote := Footnotes.Add(0, 0);
    Footnote.Text := "Начало блока данных";
    Debug.WriteLine(Footnote.Number);
    Debug.WriteLine(Footnote.NumberText);
End Sub Button1OnClick;

При нажатии на кнопку для ячейки «A0» таблицы будет создана сноска. Для нумерации сносок будут использоваться буквы кириллицы в верхнем регистре. Полученные цифровой номер и номер сноски в виде текста будут выведены в консоль среды разработки.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Tab;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    TabSheet: ITabSheet;
    Footnotes: ITabFootnotes;
    Footnote: ITabFootnote;
Begin
    TabSheet := uiTabSheetNet1.TabSheetUi.TabSheet;
    Footnotes := TabSheet.Footnotes;
    Footnotes.Font.Bold := TriState.tsOnOption;
    Footnotes.NumberStyle := TabNumberStyle.tnsUppercaseCyrillic;
    Footnote := Footnotes.Add(0, 0);
    Footnote.Text := "Начало блока данных";
    System.Diagnostics.Debug.WriteLine(Footnote.Number);
    System.Diagnostics.Debug.WriteLine(Footnote.NumberText);
End Sub;

См. также:

ITabFootnotes