IPrxSystemButtonElement.SystemButtonType

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

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;
    SystemButton: IPrxSystemButtonElement;
Begin
    For Each Element In Elements Do
        If Element.Type = PrxToolbarElementType.SystemButton Then
            SystemButton := Element As IPrxSystemButtonElement;
            Debug.WriteLine("Тип системной кнопки: " + SystemButton.SystemButtonType.ToString + ". Видимость: " + Element.Visible.ToString);
        Elseif Element.Type = PrxToolbarElementType.UserGroup Then
            ShowElements((Element As IPrxUserGroupElement).Elements);
        End If;
    End For;
End Sub ShowElements;