InnerStyleSheet: IStyleSheet;
InnerStyleSheet: Prognoz.Platform.Interop.Drawing.StyleSheetClass;
Свойство InnerStyleSheet определяет внутреннюю таблицу стилей экспресс-отчета.
Для работы с внешней таблицей стилей используйте свойство IEaxAnalyzeCore.StyleSheet.
Для выполнения примера в репозитории предполагается наличие экспресс-отчета с идентификатором «EXPRESS_STYLE». Данный отчет должен содержать диаграмму.
Добавьте ссылки на системные сборки: Drawing, Express, Metabase.
Sub UserProc;
Var
mb: IMetabase;
Report: IEaxAnalyzer;
Style: IStyleSheet;
StyleCont: IStyleContainer;
StEntity: IStyledEntity;
Begin
// Получаем текущий репозиторий
mb := MetabaseClass.Active;
// Получаем экспресс-отчет
Report := mb.ItemById("EXPRESS_STYLE").Edit As IEaxAnalyzer;
// Получаем внутреннюю таблицу стилей
Style := Report.InnerStyleSheet;
// Добавляем контейнер стилей в таблицу стилей
StyleCont := Style.Add(0, "");
// Получаем стиль оформления диаграммы из отчета
StEntity := Report.Chart.Chart As IStyledEntity;
// Сохраняем стиль оформления диаграммы в контейнер стилей
StEntity.SaveStyleToContainer(StyleCont);
// Сохраняем изменения
(Report As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера во внутренней таблице стилей экспресс-отчета будет сохранен стиль оформления диаграммы.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Report: IEaxAnalyzer;
Style: IStyleSheet;
StyleCont: IStyleContainer;
StEntity: IStyledEntity;
Begin
// Получаем текущий репозиторий
mb := Params.Metabase;
// Получаем экспресс-отчет
Report := mb.ItemById["EXPRESS_STYLE"].Edit() As IEaxAnalyzer;
// Получаем внутреннюю таблицу стилей
Style := Report.InnerStyleSheet;
// Добавляем контейнер стилей в таблицу стилей
StyleCont := Style.Add(0, "");
// Получаем стиль оформления диаграммы из отчета
StEntity := Report.Chart.Chart As IStyledEntity;
// Сохраняем стиль оформления диаграммы в контейнер стилей
StEntity.SaveStyleToContainer(StyleCont);
// Сохраняем изменения
(Report As IMetabaseObject).Save();
End Sub;
См. также: