IEaxGridDimensionSettings.ExpanderPosition

Синтаксис Fore

ExpanderPosition: Integer;

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

ExpanderPosition: integer;

Описание

Свойство ExpanderPosition определяет позицию экспандеров для измерений.

Комментарии

При использовании свойства ExpanderPosition положение экспандера изменится на «Фиксированное».

Пример Fore

Для выполнения примера в репозитории предполагается наличие экспресс-отчета с идентификатором «EXP_REP_EP» В экспресс-отчете должен быть табличный визуализатор с данными.

Добавьте ссылки на системные сборки: Dimensions, Express, Metabase, Pivot.

Sub UserProc;
Var
    mb: IMetabase;
    Report: IEaxAnalyzer;
    Pivot: IPivot;
    PivotDim: IPivotDimension;
    HeadSets: IDataAreaHeaderSettingsBase;
    Grid: IEaxGrid;
    DimSettings: IEaxGridDimensionSettings;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем экспресс-отчет
    Report := mb.ItemById("EXP_REP_EP").Edit As IEaxAnalyzer;
    // Получаем объект, используемый для построения таблицы данных
    Pivot := Report.Pivot;
    // Получаем первое измерение в боковике таблицы
    PivotDim := Pivot.LeftHeader.PivotDim(0);
    HeadSets := PivotDim As IDataAreaHeaderSettingsBase;
    // Получаем таблицу
    Grid := Report.Grid;
    // Указываем, что элементы измерения будут отображаться в виде гиперссылок
    Grid.ViewSettings.HyperlinkAsText := False;
    // Получаем настройки первого измерения в боковике таблицы
    DimSettings := Grid.ViewSettings.GetViewSettings(HeadSets) As IEaxGridDimensionSettings;
    // Задаем позицию экспандера
    DimSettings.ExpanderPosition := 1;
    // Задаем позицию отступа
    DimSettings.HierarchyIndentPosition := 2;
    // Задаем размер отступа
    DimSettings.HierarchyIndent := 6;
    // Сохраняем изменения в отчете
    (Report As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера в эксперсс-отчете изменятся позиции экспандера и отступа и размер отступа.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Pivot;
Imports Prognoz.Platform.Interop.Tab;
…]
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Report: IEaxAnalyzer;
    Pivot: IPivot;
    PivotDim: IPivotDimension;
    HeadSets: IDataAreaHeaderSettingsBase;
    Grid: IEaxGrid;
    DimSettings: IEaxGridDimensionSettings;
Begin
    // Получаем текущий репозиторий
    mb := Params.Metabase;
    // Получаем экспресс-отчет
    Report := mb.ItemById["EXP_REP_EP"].Edit() As IEaxAnalyzer;
    // Получаем объект, используемый для построения таблицы данных
    Pivot := Report.Pivot;
    // Получаем первое измерение в боковике таблицы
    PivotDim := Pivot.LeftHeader.PivotDim[0];
    HeadSets := PivotDim As IDataAreaHeaderSettingsBase;
    // Получаем таблицу
    Grid := Report.Grid;
    // Указываем, что элементы измерения будут отображаться в виде гиперссылок
    Grid.ViewSettings.HyperlinkAsText := False;
    // Получаем настройки первого измерения в боковике таблицы
    DimSettings := Grid.ViewSettings.GetViewSettings[HeadSets] As IEaxGridDimensionSettings;
    // Задаем позицию экспандера
    DimSettings.ExpanderPosition := 1;
    // Задаем позицию отступа
    DimSettings.HierarchyIndentPosition := 2;
    // Задаем размер отступа
    DimSettings.HierarchyIndent := 6;
    // Сохраняем изменения в отчете
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

IEaxGridDimensionSettings