ILanerColumn.CustomTitle

Fore Syntax

CustomTitle: String;

Fore.NET Syntax

CustomTitle: string;

Description

The CustomTitle property determines the custom name of the column.

Comments

By default the custom title is not determined.

Fore Example

Executing the example requires a form containing:

The LanerBox component with the LanerBox1 identifier.
The UiErAnalyzer component with the UiErAnalyzer1 identifier that is a data source for LanerBox1. Workbook of the time series database must be loaded to UiErAnalyzer1.

The data edit mode must be enabled for the LanerBox1 component after starting the form. After that the example can be executed.

Sub UserProc;
Var
    Laner: ILaner;
    Columns: ILanerAttributeColumns;
    Col: ILanerColumn;
    i: Integer;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    Columns := Laner.AttributeColumns;
    For i := 0 To Columns.Count - 1 Do
        Col := Columns.Column(i);
        Debug.WriteLine(Col.Type);
        If Col.Type = LnColumnType.Name Then
            Col.ReadOnly := False;
            Col.CustomTitle := "Name";
        End If;
    End For;
    UiErAnalyzer1.ErAnalyzer.RefreshAll;
End Sub UserProc;

After executing this example the name of the column containing series names is changed. The series names are editable.

Fore.NET Example

Executing this example requires a form containing:

The LanerBoxNet component with the lanerBoxNet1 identifier.
The UiErAnalyzerNet component with the uiErAnalyzerNet1 identifier which is a data source for the lanerBoxNet1. Workbook of the time series database must be loaded to uiErAnalyzerNet1.

The data edit mode must be turned on for the lanerBoxNet1 component after starting the form. After that the example can be executed.

Imports Prognoz.Platform.Interop.Laner;
…
Public Sub UserProc();
Var
    Laner: ILaner;
    Columns: ILanerAttributeColumns;
    Col: ILanerColumn;
    i: Integer;
Begin
    Laner := uiErAnalyzerNet1.ErAnalyzer.ErAnalyzer.Laner;
    Columns := Laner.AttributeColumns;
    For i := 0 To Columns.Count - 1 Do
        Col := Columns.Column[i];
        If Col.Type = LnColumnType.lcltName Then
            Col.@ReadOnly := False;
            Col.CustomTitle := "Name";
        End If;
    End For;
    uiErAnalyzerNet1.ErAnalyzer.ErAnalyzer.RefreshAll();
End Sub UserProc;

After executing this example the name of the column containing series names is changed. The series names are editable.