IDashboardVisualizers.Count

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Dashboard: IDashboard;
    Visualizers: IDashboardVisualizers;
    Visualizer: IDashboardVisualizer;
    i, c: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Открытие на редактирование информационной панели
    Dashboard := Mb.ItemById("DASHBOARD").Bind As IDashboard;
    Visualizers := Dashboard.Visualizers;
    c := Visualizers.Count;
    Debug.WriteLine("Количество визуализаторов: " + c.ToString);
    // Информация о визуализаторах
    For i := 0 To c - 1 Do
        Visualizer := Visualizers.Item(i);
        Debug.WriteLine("Визуализатор: " + Visualizer.Id);
        If Not IsNull(Visualizer.EaxObject) Then
            Select Case Visualizer.EaxObject.Type
                Case EaxObjectType.Grid: Debug.WriteLine("   Таблица");
                Case EaxObjectType.Chart: Debug.WriteLine("   Диаграмма");
                Case EaxObjectType.Map: Debug.WriteLine("   Карта");
                Else Debug.WriteLine(Visualizer.EaxObject.Type);
            End Select;
        End If;
    End For;
End Sub UserProc;