Placement: EaxGridHeaderPlacement;
Placement: Prognoz.Platform.Interop.Express.EaxGridHeaderPlacement;
Свойство Placement определяет настройки размещения заголовка.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXPRESS», для которого настроен заголовок и раскрывающаяся иерархия.
Добавьте ссылки на системные сборки: Express, Metabase, Pivot.
Sub UserProc;
Var
MB: IMetabase;
Expr: IEaxAnalyzer;
SettBase: IDataAreaHeaderSettingsBase;
ViewSett: IEaxGridViewSettings;
Sett: IEaxGridHeaderSettings;
Begin
MB := MetabaseClass.Active;
Expr := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
SettBase := Expr.Pivot.LeftHeader As IDataAreaHeaderSettingsBase;
ViewSett := Expr.Grid.ViewSettings;
Sett := ViewSett.GetViewSettings(SettBase) As IEaxGridHeaderSettings;
// Видимость пиктограмм сортировки
Sett.DisplaySortIcons := False;
// Отступ в раскрывающейся иерархии
Sett.HierarchyIndent := 15;
// Настройки размещения заголовка
Sett.Placement := EaxGridHeaderPlacement.Simple;
(Expr As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера для экспресс-отчета будут заданы следующие настройки:
пиктограммы сортировки невидимые;
задан отступ в раскрывающейся иерархии;
используется простое размещение заголовка экспресс-отчета.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Expr: IEaxAnalyzer;
SettBase: IDataAreaHeaderSettingsBase;
ViewSett: IEaxGridViewSettings;
Sett: IEaxGridHeaderSettings;
Begin
MB := Params.Metabase;
Expr := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
SettBase := Expr.Pivot.LeftHeader As IDataAreaHeaderSettingsBase;
ViewSett := Expr.Grid.ViewSettings;
Sett := ViewSett.GetViewSettings[SettBase] As IEaxGridHeaderSettings;
// Видимость пиктограмм сортировки
Sett.DisplaySortIcons := False;
// Отступ в раскрывающейся иерархии
Sett.HierarchyIndent := 15;
// Настройки размещения заголовка
Sett.Placement := EaxGridHeaderPlacement.eghpSimple;
(Expr As IMetabaseObject).Save();
End Sub;
См. также: