IsOverlapped: Boolean;
IsOverlapped: Boolean;
Свойство IsOverlapped определяет, будет ли скрыта легенда при недостатке места на диаграмме.
Возможные значения:
True. Легенда скрывается при недостатке места в области диаграммы;
False. Легенда не скрывается при недостатке места в области диаграммы.
Для выполнения примера разместите на форме два компонента Button, ChartBox и UiErAnalyzer (для примера на Fore.NET используйте компоненты ChartBoxNet и UiErAnalyzerNet) с наименованиями BUTTON1 и BUTTON2, CHARTBOX1/CHARTBOXNET1 И UIERANALYZER1/UIERANALYZERNET1 соответственно. Для компонента ChartBox/ChartBoxNet установите свойству Source/UiSource значение UiErAnalyzer1/UiErAnalyzerNet1. Для компонента Button1 установите свойству Text значение «Скрыть легенду», для компонента Button2 - «Отобразить легенду». Предполагается наличие экспресс-отчета, который указан в качестве свойства Object для компонента UiErAnalyzer/UiErAnalyzerNet.
Добавьте ссылки на системные сборки: Chart, Forms, Express, Forms.NET (для примера на Fore.NET).
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Chart: IChart;
ChartLegend: IChartLegend;
Begin
Chart := ChartBox1.Chart;
ChartLegend := Chart.Legend;
ChartLegend.IsOverlapped := True;
ChartBox1.Chart.Refresh;
End Sub Button1OnClick;
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Chart: IChart;
ChartLegend: IChartLegend;
Begin
Chart := ChartBox1.Chart;
ChartLegend := Chart.Legend;
ChartLegend.IsOverlapped := False;
ChartBox1.Chart.Refresh;
End Sub Button2OnClick;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Chart;
Imports
Prognoz.Platform.Interop.Forms;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Chart: IChart;
ChartLegend: IChartLegend;
Begin
Chart := ChartBoxNet1.CtrlBox.Chart;
ChartLegend := Chart.Legend;
ChartLegend.IsOverlapped := True;
End Sub;
Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
Var
Chart: IChart;
ChartLegend: IChartLegend;
Begin
Chart := ChartBoxNet1.CtrlBox.Chart;
ChartLegend := Chart.Legend;
ChartLegend.IsOverlapped := False;
End Sub;
При нажатии на кнопку «Скрыть легенду» легенда будет скрыта, так как для нее недостаточно места на диаграмме, например:
При нажатии на кнопку «Отобразить легенду» легенда не будет скрыта, даже если для нее недостаточно места на диаграмме, например:
См. также: