IPrxReport.Toolbar

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

Sub UserProc;
Var
    Mb: IMetabase;
    Report: IPrxReport;
    Toolbar: IPrxToolbar;
Begin
    Mb := MetabaseClass.Active;
    // Получение регламентного отчёта
    Report := Mb.ItemById("REPORT").Bind As IPrxReport;
    // Получение панели инструментов
    Toolbar := Report.Toolbar;
    Debug.WriteLine("Наличие изменений на панели инструментов: " + Toolbar.IsCustom.ToString);
    // Просмотр информации об элементах
    ShowElements(Toolbar.Elements);
End Sub UserProc;

Sub ShowElements(Elements: IPrxToolbarElements);
Var
    Element: IPrxToolbarElement;
Begin
    For Each Element In Elements Do
        Debug.WriteLine(Element.Name + '(' + Element.Id + ')' + ' ' + Element.Type.ToString);
        // Если элемент - пользовательская группа кнопок, то рекурсивный просмотр информации о кнопках группы
        If Element.Type = PrxToolbarElementType.UserGroup Then
            Debug.Indent;
            ShowElements((Element As IPrxUserGroupElement).Elements);
            Debug.Unindent;
        End If;
    End For;
End Sub ShowElements;