Index: Integer;
Index: integer;
Свойство Index устанавливает индекс отображения данных.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP».
Добавьте ссылки на системные сборки: Express, Metabase, Visualizators.
Sub UserProc;
Var
Metabase: IMetabase; // Репозиторий
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
BubbleTree: IVZBubbleTree; // Пузырьковое дерево
DataVisual: IVZDataVisual; // Визуализатор цвета
DataMappingName: String; // Наименование сопоставления данных
Begin
// Получим репозиторий
Metabase := MetabaseClass.Active;
// Откроем экспресс-отчёт
EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
// Получим визуализатор цвета
DataVisual := BubbleTree.ColorVisual;
// Установим индекс
DataVisual.Index := 1;
// Установим наименование сопоставления данных
DataMappingName := "ColorMapping";
End Sub UserProc;
После выполнения примера будет изменен индекс визуализатора цвета и установлено новое наименование сопоставления данных.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase; // Репозиторий
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
BubbleTree: IVZBubbleTree; // Пузырьковое дерево
DataVisual: IVZDataVisual; // Визуализатор цвета
DataMappingName: String; // Наименование сопоставления данных
Begin
// Получим репозиторий
Metabase := Params.Metabase;
// Откроем экспресс-отчёт
EaxAnalyzer := Metabase.ItemById["EXP"].Edit() As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
// Получим визуализатор цвета
DataVisual := BubbleTree.ColorVisual;
// Установим индекс
DataVisual.Index := 1;
// Установим наименование сопоставления данных
DataMappingName := "ColorMapping";
End Sub;
См. также: