IChartExternLegend.UseSerieDesign

Синтаксис Fore

UseSerieDesign: Boolean;

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

UseSerieDesign: Boolean;

Описание

Свойство UseSerieDesign определяет признак использования оформления рядов внутренней легенды в соответствии с оформлением рядов на диаграмме.

Свойство актуально только для линейных и точечных рядов. При использовании свойства из языка Fore/Fore.NET с другими типами рядов, в оформлении диаграммы изменений не произойдет.

По умолчанию свойство имеет значение False. При этом оформление рядов в легенде и на диаграмме могут отличаться.

В интерфейсе свойство устанавливается с помощью флажка «Использовать оформления рядов» на вкладке «Общее» в окне «Формат легенды».

Пример Fore

Для выполнения примера добавьте ссылки на системные сборки «Chart», «Drawing», «Metabase», «Report» и «Tab». Предполагается наличие отчета с идентификатором «OBJ1102» и внешней диаграммы с идентификатором «PrxChart1» на активном листе.

Sub Main;
Var
    mb: IMetabase;
    rep: IPrxReport;
    chartlegend: IChartExternLegend;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ1102").Edit As IPrxReport;
    chartlegend := (rep.ActiveSheet As IPrxTable).TabSheet.Objects.Item(1) As IChartExternLegend;
    chartlegend.UseSerieDesign := True;
    (rep As IMetabaseObject).Save;
End Sub Main;

После выполнения примера будет использовано оформление рядов в легенде в соответствии с оформлением рядов на диаграмме.

Пример Fore.NET

Предполагается наличие отчета с идентификатором «OBJ1102» и внешней диаграммы с идентификатором «PrxChart1» на активном листе.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Metabase;

...

Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rep: IPrxReport;
    chartlegend: IChartExternLegend;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById["OBJ1102"].Edit() As IPrxReport;
    chartlegend := (rep.ActiveSheet As IPrxTable).TabSheet.Objects.Item[1] As IChartExternLegend;
    chartlegend.UseSerieDesign := True;
    (rep As IMetabaseObject).Save();
End Sub Main;

См. также: