DisplayInLegend: Boolean;
DisplayInLegend: Boolean;
Свойство DisplayInLegend определяет признак отображения ряда в легенде.
Если значение данного свойства True, то ряд будет отображен в легенде, при значении False - нет.
По умолчанию свойство имеет значение True.
Для выполнения примера предполагается наличие в репозитории регламентного отчёта с идентификатором «Report». В отчёте на активном листе имеется диаграмма. Диаграмма отображает минимум один ряд.
Для выполнения примера добавьте ссылки на системные сборки «Metabase», «Tab», «Chart» и «Report».
Sub UserProc;
Var
Metabase: IMetabase;
MetabaseObject: IMetabaseObject;
Report: IPrxReport;
Table: IPrxTable;
Chart: IChart;
Begin
Metabase := MetabaseClass.Active;
MetabaseObject := Metabase.ItemById("Report").Edit;
Report := MetabaseObject As IPrxReport;
Table := Report.Sheets.Item(0) As IPrxTable;
Chart := Table.TabSheet.Objects.Item(0).Extension As IChart;
Chart.Series.Item(0).DisplayInLegend := False;
Report.MetabaseObject.Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Chart;
Sub UserProc(Params: StartParams);
Var
Metabase: IMetabase;
Report: IPrxReport;
Table: IPrxTable;
Chart: IChart;
Begin
Metabase := Params.Metabase;
Report := Metabase.ItemById["Report"].Edit() As IPrxReport;
Table := Report.ActiveSheet As IPrxTable;
Chart := Table.TabSheet.Objects.Item[0].Extension As IChart;
Chart.Series.Item[0].DisplayInLegend := False;
Report.MetabaseObject.Save();
End Sub;
После выполнения примера в легенде будет скрыт первый ряд.
См. также: