Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
GetStyleSettings(Value: IDataAreaHeaderStyleSettingsBase): IEaxDataAreaCellStyle;
Value. Элемент заголовка, для которого необходимо получить настройки стиля оформления.
Свойство GetStyleSettings возвращает настройки стиля оформления для указанного элемента заголовка.
В качестве значения параметра Value могут указываться следующие элементы:
заголовок измерения, описываемого интерфейсом IPivotDimension;
заголовок уровня измерения, описываемого интерфейсом IPivotDimensionLevel;
заголовок области данных, описываемый интерфейсом IPivotHeader.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXPRESS_REPORT». Календарное измерение источника имеет идентификатор «CALENDAR» и в отчете расположено по столбцам. Подключите системные сборки Drawing, Express, System, Metabase, Pivot, Tab.
Sub UserProc;
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Pivot: IPivot;
PivotDim: IPivotDimension;
Grid: IEaxGrid;
CellStyle: IEaxDataAreaCellStyle;
HeaderStyle: ITabCellStyle;
DimKey: Integer;
Begin
MB := MetabaseClass.Active;
// Экспресс-отчет
Express := MB.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
Pivot := Express.Pivot;
// Календарное измерение
DimKey := Pivot.Selection.FindById("CALENDAR").Dimension.Key;
PivotDim := Pivot.Dimensions.FindByKey(DimKey);
Grid := Express.Grid;
CellStyle := Grid.ViewSettings.GetStyleSettings(PivotDim As IDataAreaHeaderStyleSettingsBase);
// Cтиль оформления
HeaderStyle := Grid.Style.TopHeaderStyle;
HeaderStyle.Font.Bold := TriState.OnOption;
HeaderStyle.BackgroundBrush := New GxSolidBrush.Create(GxColor.FromKnownColor(GxKnownColor.YellowGreen));
// Применим стиль
CellStyle.Header := HeaderStyle;
// Сохраним отчет
(Express As IMetabaseObject).Save;
End Sub UserProc;
При выполнении примера будет изменён стиль оформления для ячеек, расположенных в заголовке столбцов экспресс-отчета.
См. также: