IVZBubbleTree.OrbitsPen

Синтаксис Fore

OrbitsPen: IGxPenBase;

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

OrbitsPen: Prognoz.Platform.Interop.Drawing.IGxPenBase;

Описание

Свойство OrbitsPen определяет перо линии орбит в пузырьковом дереве.

Пример Fore

Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Drawing, Express, Metabase и Visualizators. Указанная процедура должна вызываться из точки входа Main.

До выполнения примера пузырьковое дерево выглядит так, как показано на странице описания интерфейса IVZBubbleTree. Окрасим линии орбит в дереве в пурпурный цвет, а также определим количество цветов в палитре данной диаграммы:

Sub UserProc;
Var
    Metabase: IMetabase; // Метабаза
    Analyzer: IEaxAnalyzer; // Экспресс-отчёт
    BubbleTree: IVZBubbleTree; // Пузырьковое дерево
    OrbitsPen: IGxPenBase; // Линии орбиты  
    Color: IGxColor; // Цвет линий
    Palette: IVZPalette; // Палитра цветов
Begin
    // Получим объект метабазы
    Metabase := MetabaseClass.Active;
    // Получим объект экспресс-отчёта
    Analyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree;
    // Создадим перо с заливкой пурпурного цвета
    Color := New GxColor.CreateRGB(255, 0, 255);
    OrbitsPen := New GxPen.CreateSolid(Color);
    // Установим толщину пера
    OrbitsPen.Width := 5;
    // Установим созданное перо
    BubbleTree.OrbitsPen := OrbitsPen;
    // Получим палитру цветов
    Palette := BubbleTree.Palette;
    // Определим количество цветов в палитре
    Debug.WriteLine("Количество цветов в палитре: " + 
        Palette.BackgroundArray.Count.ToString);
    // Сохраним изменения, сделанные в экспресс-отчёте
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера линии орбит в пузырьковом дереве были окрашены в пурпурный цвет:

В окне консоли среды разработки было выведено количество цветов в палитре пузырькового дерева:

Количество цветов в палитре: 36

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должны быть импортированы сборки Drawing, Express, Metabase и Visualizators из системной сборки Prognoz.Platform.Interop.

До выполнения примера пузырьковое дерево выглядит так, как показано на странице описания интерфейса IVZBubbleTree. Окрасим линии орбит в дереве в пурпурный цвет, а также определим количество цветов в палитре данной диаграммы:

Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase; // Метабаза
    Analyzer: IEaxAnalyzer; // Экспресс-отчёт
    BubbleTree: IVZBubbleTree; // Пузырьковое дерево
    OrbitsPen: GxPen; // Линии орбиты   
    Color: GxColor; // Цвет линий
    Palette: IVZPalette; // Палитра цветов
Begin
    // Получим объект метабазы
    Metabase := Params.Metabase;
    // Получим объект экспресс-отчёта
    Analyzer := Metabase.ItemById["EXP"].Edit() As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree;
    // Создадим перо с заливкой пурпурного цвета
    Color := New GxColorClass_2();
    Color.CreateRGB(255, 0, 255);
    OrbitsPen := New GxPenClass();
    OrbitsPen.CreateSolid(Color, 5);
    // Установим созданное перо
    BubbleTree.OrbitsPen := OrbitsPen;
    // Получим палитру цветов
    Palette := BubbleTree.Palette;
    // Определим количество цвето в палитре
    System.Diagnostics.Debug.WriteLine("Количество цветов в палитре: " + 
        Palette.BackgroundArray.Count.ToString());
    // Сохраним изменения, сделанные в экспресс-отчёте
    (Analyzer As IMetabaseObject).Save();
End Sub;

Результат выполнения примера аналогичен результату, полученному после выполнения примера для языка Fore.

См. также:

IVZBubbleTree