ITabFootnotes.NumberStyle

Fore Syntax

Fore.NET Syntax

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

Description

The NumberStyle property determines style of numbers used for footnote numbering.

Comments

By default Arabic numbers are used for footnote numeration by default. If required, style of numbers can be changed or it is possible to set custom mark which will be used to determine all footnotes.

To get footnote number taking into account the selected style, use the ITabFootnote.NumberText property.

Fore Example

Executing the example requires a form with the Button1 button, the UiTabSheet component named UiTabSheet1 and any visualizers, for which UiTabSheet1 is set as a data source.

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 := "Data block beginning";
    Debug.WriteLine(Footnote.Number);
    Debug.WriteLine(Footnote.NumberText);
End Sub Button1OnClick;

Clicking the button for the A0 cell of the table creates a footnote. Cyrillic letters in uppercase will be used for footnote numeration. Obtained numeric number and footnote number in text format will be displayed to the development environment console.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example. Use Fore.NET analogs instead of Fore components.

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 := "Data block beginning";
    System.Diagnostics.Debug.WriteLine(Footnote.Number);
    System.Diagnostics.Debug.WriteLine(Footnote.NumberText);
End Sub;