ILanerNameColumn.Header

Fore Syntax

Header: String;

Fore.NET Syntax

Header: string;

Description

The Header property determines column name.

Comments

The ILanerColumn.ReadOnly property determines whether column data can be edited.

Fore Example

Executing the example requires a form with the LanerBox component and the UiErAnalyzer component with the UiErAnalyzer1 identifier, that is a data source for LanerBox. Workbook of the time series database must be loaded to UiErAnalyzer1.

Sub UserProc;
Var
    Laner: ILaner;
    Columns: ILanerAttributeColumns;
    Col: ILanerColumn;
    ColName: ILanerNameColumn;
    i: Integer;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    Columns := Laner.AttributeColumns;
    For i := 0 To Columns.Count - 1 Do
        Col := Columns.Column(i);
        If Col.Type = LnColumnType.Name Then
            ColName := Col As ILanerNameColumn;
            ColName.Header := "Series name";
        End If;
    End For;
End Sub UserProc;

After executing this procedure, name of the column that contains series names is changed.

Fore.NET Example

Executing the example requires a form with the LanerBoxNet component and the UiErAnalyzerNet component with the UiErAnalyzerNet1 identifier, that is a data source for LanerBoxNet. Workbook of the time series database must be loaded to UiErAnalyzerNet1.

Imports Prognoz.Platform.Interop.Laner;
…
Private Sub UserProc();
Var
    Laner: ILaner;
    Columns: ILanerAttributeColumns;
    Col: ILanerColumn;
    ColName: ILanerNameColumn;
    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
            ColName := Col As ILanerNameColumn;
            ColName.Header := "Series name";
        End If;
    End For;
End Sub UserProc;

After executing the procedure, name of the column that contains series names is changed.