ITabFootnotes.CustomMark

Синтаксис Fore

CustomMark: String;

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

CustomMark: String;

Описание

Свойство CustomMark определяет пользовательскую метку, которая будет использоваться для обозначения сносок.

Комментарии

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

Пример 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.CustomMark := #167; //Код символа - §
    Footnotes.CustomMarkFontName := "Terminal";
    Footnote := Footnotes.Add(0, 0);
    Footnote.Text := "Описание в первом параграфе документации";
    Footnote := Footnotes.Add(0, 1);
    Footnote.Text := "Описание во втором параграфе документации";
End Sub Button1OnClick;

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

Пример Fore.NET

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

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.CustomMark := char.ConvertFromUtf32(167); //Код символа - §
    Footnotes.CustomMarkFontName := "Terminal";
    Footnote := Footnotes.Add(0, 0);
    Footnote.Text := "Описание в первом параграфе документации";
    Footnote := Footnotes.Add(0, 1);
    Footnote.Text := "Описание во втором параграфе документации";
End Sub;

См. также:

ITabFootnotes