IPrxScene3DSerie.Key

Синтаксис

Key: Integer;

Описание

Свойство Key возвращает ключ ряда сцены.

Пример Fore

Для выполнения примера предполагается наличие трёхмерной сцены в регламентном отчете с идентификатором REGULAR_REPORT и данных в ячейках B1:E3. Задайте произвольный источник данных для трёхмерной сцены. Подключите системные сборки: Metabase, Report, Tab, Drawing.

Sub UserProc;
Var
    Report: IPrxReport;
    Chart: IPrxScene3D;
    Tab: ITabSheet;
    MB: IMetabase;
    Ser: IPrxScene3DSerie;
Begin
    //Подключим регламентный отчет
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
    Chart := Tab.Objects.Item(0).Extension As IPrxScene3D;
    Ser := Chart.Series.Item(0);
    //Определим диапазон значений ряда по оси OX, OY, OZ
    Ser.X := "B1:E1";
    Ser.Y := "B2:E2";
    Ser.Z := "B3:E3";
    //Закрасим ячейки значений ряда по оси OX, OY, OZ в заданные цвета
    Ser.XRange.Style.BackgroundColor := New GxColor.CreateRGB(255, 0, 0);
    Ser.YRange.Style.BackgroundColor := New GxColor.CreateRGB(0, 255, 0);
    Ser.ZRange.Style.BackgroundColor := New GxColor.CreateRGB(0, 0, 255);
    //Выведем ключ и тип ряда сцены в заданные ячейки отчета
    Tab.CellValue(1, 6) := Ser.Key;
    Tab.CellValue(2, 6) := Ser.Type;
    (Report As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера диапазон источника данных будет изменен, фон ячеек со значениями закрасится заданными цветами, будет выведен ключ и значение типа ряда сцены в заданные ячейки.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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

Public Shared Sub Main(Params: StartParams);
Var
    Report: IPrxReport;
    Chart: IPrxScene3D;
    Tab: ITabSheet;
    MB: IMetabase;
    Ser: IPrxScene3DSerie;
    Color: GxColorClass = New GxColorClassClass();
Begin
    //Подключение к регламентному отчету
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
    Chart := Tab.Objects.Item[0].Extension As IPrxScene3D;
    Ser := Chart.Series.Item[0];
    //Определим диапазон значений ряда по оси OX, OY, OZ
    Ser.X := "B1:E1";
    Ser.Y := "B2:E2";
    Ser.Z := "B3:E3";
    //Ячейки значений ряда по оси OX, OY, OZ, зальются в заданные цвета
    Ser.XRange.Style.BackgroundColor := Color.FromKnownColor(GxKnownColor.clRed);
    Ser.YRange.Style.BackgroundColor := Color.FromKnownColor(GxKnownColor.clLightGreen);
    Ser.ZRange.Style.BackgroundColor := Color.FromKnownColor(GxKnownColor.clBlue);
    //Выведем ключ и тип ряда сцены в заданные ячейки отчета
    Tab.CellValue[1, 6] := Ser.Key;
    Tab.CellValue[2, 6] := Ser.Type;
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

IPrxScene3DSerie