ILanerColumn.CustomTitle

Синтаксис Fore

CustomTitle: String;

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

CustomTitle: string;

Описание

Свойство CustomTitle определяет пользовательское наименование столбца.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей:

компонент LanerBox с идентификатором «LanerBox1»;
компонент UiErAnalyzer с идентификатором «UiErAnalyzer1», являющегося источником данных для «LanerBox1». В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.

После запуска формы для компонента «LanerBox1» должен быть включен режим редактирования данных. Затем можно выполнять пример.

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 := "Наименование";
        End If;
    End For;
    UiErAnalyzer1.ErAnalyzer.RefreshAll;
End Sub UserProc;

После выполнения примера будет изменено название столбца, содержащего наименования рядов. Наименования рядов будут доступны для редактирования.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, содержащей:

компонент LanerBoxNet с идентификатором «lanerBoxNet1»;
компонент UiErAnalyzerNet с идентификатором «uiErAnalyzerNet1», являющегося источником данных для «lanerBoxNet1». В «uiErAnalyzerNet1» должна быть загружена рабочая книга базы данных временных рядов.

После запуска формы для компонента «lanerBoxNet1» должен быть включен режим редактирования данных. Затем можно выполнять пример.

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 := "Наименование";
        End If;
    End For;
    uiErAnalyzerNet1.ErAnalyzer.ErAnalyzer.RefreshAll();
End Sub UserProc;

См. также: