ITabFootnote.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;
    Footnote := Footnotes.Add(0, 0);
    Footnote.CustomMark := "+";
    Footnote.Text := "Усреднённый рост";
    Footnote.CustomMarkFontName := "Terminal";
    Footnote := Footnotes.Add(0, 1);
    Footnote.CustomMark := "-";
    Footnote.CustomMarkFontName := "Terminal";
    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;
    Footnote := Footnotes.Add(0, 0);
    Footnote.CustomMark := "+";
    Footnote.Text := "Усреднённый рост";
    Footnote.CustomMarkFontName := "Terminal";
    Footnote := Footnotes.Add(0, 1);
    Footnote.CustomMark := "-";
    Footnote.CustomMarkFontName := "Terminal";
    Footnote.Text := "Усреднённое снижение";
End Sub;

См. также:

ITabFootnote