IEaxGridHeaderSettings.Behaviour

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    Report: IPrxReport;
    Table: ITabSheet;
    DataArea: IEaxDataAreaViews;
    Grid: IEaxGrid;
    Slice: IEaxDataAreaPivotSlice;
    SettBase: IDataAreaHeaderSettingsBase;
    ViewSett: IEaxGridViewSettings;
    sett: IEaxGridHeaderSettings;
Begin
    mb := MetabaseClass.Active;
    Report :=  MB.ItemById("REPORT").Edit As IPrxReport;
    Table := (Report.ActiveSheet As IPrxTable).TabSheet;
    DataArea := Report.DataArea.Views;
    Grid := DataArea.FindById("EaxObject") As IEaxGrid;
    Slice := Grid.Slice As IEaxDataAreaPivotSlice;
    SettBase := Slice.Pivot.LeftHeader As IDataAreaHeaderSettingsBase;
    ViewSett := Grid.ViewSettings;
    sett := ViewSett.GetViewSettings(SettBase) As IEaxGridHeaderSettings;
    // Поведение строк/столбцов
    sett.Behaviour := EaxGridHeaderBehaviour.Fixed;
    // Видимость пиктограмм сортировки
    sett.DisplaySortIcons := True;
    // Отступ в раскрывающейся иерархии
    sett.HierarchyIndent := 15;
    (Report As IMetabaseObject).Save;
End Sub UserProc;