IChartCorridor.Text

Синтаксис Fore

Text: String;

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

Text: System.String;

Описание

Свойство Text определяет наименование коридора.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «Rep_1», на листе которого расположена диаграмма. В инспекторе сборок модуля должны быть указаны ссылки на системные сборки Chart, Report, Tab, Metabase, Drawing.

Sub macro;
Var
    mb:Imetabase;
    report:iprxreport;
    chart:Ichart;
    corridors:IChartCorridors;
    corridor:IChartCorridor;
    index:integer;
Begin
    mb:= MetabaseClass.Active;
    report:= mb.ItemById("Rep_1").Edit As IPrxReport;
    chart:= (report.ActiveSheet As IPrxTable).TabSheet.Objects.Item(0).Extension As IChart;
    corridors:= chart.Corridors;
    index:=corridors.Add(0, 2);
    corridor:= corridors.Item(index);
    corridor.Color:= GxColor.FromKnownColor(GxKnownColor.Coral);
    corridor.Text:= "Коридор между первым и третьим рядами";
    corridor.DisplayInLegend:= True;
    (report As IMetabaseObject).Save;
End Sub macro;

После выполнения примера на диаграмму отчета будет добавлен коридор между первым и третьим рядами, и будет включено отображение коридора в легенде с заданным в свойстве Text наименованием.

Пример Fore.NET

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

...

Public Shared Sub Macro(Params: StartParams);
Var
    mb: IMetabase;
    report: IPrxReport;
    chart: IChart;
    corridors: IChartCorridors;
    corridor: IChartCorridor;
    index: integer;
    color: GxColorClass_2;
Begin
    mb := Params.Metabase;
    report := mb.ItemById["Rep_1"].Edit() As IPrxReport;
    chart := (report.ActiveSheet As IPrxTable).TabSheet.Objects.Item[0].Extension As IChart;
    corridors := chart.Corridors;
    index := corridors.Add[0, 2];
    corridor:= corridors.Item[index];
    color := New GxColorClass_2();
    color.CreateRGB(255, 0, 255);
    corridor.Color := color;
    corridor.Text := "Коридор между первым и третьим рядами";
    corridor.DisplayInLegend := True;
    (report As IMetabaseObject).Save();
End Sub;

См. также: