ILanerNameColumn.Header

Синтаксис Fore

Header: String;

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

Header: string;

Описание

Свойство Header определяет наименование столбца.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенных на ней компонента LanerBox и компонента UiErAnalyzer с идентификатором «UiErAnalyzer1», являющегося источником данных для LanerBox. В «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 := "Наименование ряда";
        End If;
    End For;
End Sub UserProc;

После выполнения процедуры для столбца с наименованиями рядов будет изменено наименование.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенных на ней компонента LanerBoxNet и компонента UiErAnalyzerNet с идентификатором «UiErAnalyzerNet1», являющегося источником данных для LanerBoxNet. В «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 := "Наименование ряда";
        End If;
    End For;
End Sub UserProc;