ILanerSorter.HeadersSort

Синтаксис Fore

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

HeadersSort: Prognoz.Platform.Interop.Laner.ILanerSorterHeader;

Описание

Свойство HeadersSort возвращает параметры сортировки по значениям атрибутов показателей.

Пример Fore

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

Sub UserPr;
Var
    Laner: ILaner;
    Ls: ILanerSorter;
    HeaderSort: ILanerSorterHeader;
    Columns: ILanerAttributeColumns;
    i: Integer;
    Inv: Boolean;
    LCol: ILanerColumn;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    Ls := Laner.Sorter;
    // Получаем параметры сортировки по значениям атрибутов показателей
    HeaderSort := Ls.HeadersSort;
    // Сбрасываем текущие параметры сортировки
    HeaderSort.Clear;
    // Получаем столбец со значениями атрибута «Формат отображения»
    Columns := Laner.AttributeColumns;
    For i := 0 To Columns.Count - 1 Do
        LCol := Columns.Column(i);
        If LCol.Type = LnColumnType.Inversion Then
            inv := True;
            Break;
        End If;
    End For;
    If Not inv Then
        LCol := Columns.AddByType(LnColumnType.Inversion);
    End If;
    // Задаем направление сортировки
    HeaderSort.SortColumnDirection(LCol) := LnSortDirection.Ascending;
End Sub UserPr;

Результат выполнения процедуры: в рабочей книге будет установлена сортировка по возрастанию значений атрибута «Формат отображения». Если значения данного атрибута не отображаются в рабочей книге, то будет отображен соответствующий столбец со значениями.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Laner;
…
Sub UserPr();
Var
    Laner: ILaner;
    Ls: ILanerSorter;
    HeaderSort: ILanerSorterHeader;
    Columns: ILanerAttributeColumns;
    i: Integer;
    Inv: Boolean;
    LCol: ILanerColumn;
Begin
    Laner := UiErAnalyzerNet1.ErAnalyzer.ErAnalyzer.Laner;
    Ls := Laner.Sorter;
    // Получаем параметры сортировки по значениям атрибутов показателей
    HeaderSort := Ls.HeadersSort;
    // Сбрасываем текущие параметры сортировки
    HeaderSort.Clear();
    // Получаем столбец со значениями атрибута «Формат отображения»
    Columns := Laner.AttributeColumns;
    For i := 0 To Columns.Count - 1 Do
        LCol := Columns.Column[i];
        If LCol.Type = LnColumnType.lcltInversion Then
            inv := True;
            Break;
        End If;
    End For;
    If Not inv Then
        LCol := Columns.AddByType(LnColumnType.lcltInversion);
    End If;
    // Задаем направление сортировки
    HeaderSort.SortColumnDirection[LCol] := LnSortDirection.lsdAscending;
End Sub UserPr;

См. также: