BorderPen: IGxPen;
The BorderPen property determines parameters of borders of external legend.
Executing the example requires a regular report with the Report identifier. The report includes the following objects: a chart and an external legend.
Sub Main;
Var
mb: IMetabase;
rep: IPrxReport;
legend: IPrxChartLegend;
chartlegend: IChartExternLegend;
items: IChartExternLegendItems;
chartPen: IGxPen;
Begin
mb:= MetabaseClass.Active;
rep := mb.ItemById("OBJ42859").Edit As IPrxReport;
legend:= (rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(1).Extension As IPrxChartLegend;
chartlegend:= legend As IChartExternLegend;
chartlegend.AxisIcon:= ChartLegendAxisIcon.Axis;
chartPen := New GxPen.CreateSolid(GxColor.FromName("Green"), 5);
chartlegend.BorderPen := chartPen;
items := chartlegend.InternalItems;
items.Swap(0,3);
(rep As IMetabaseObject).Save;
End Sub Main;
After executing the example the external legend border thickness becomes 5 mm and the color changes to green.
See also: