IPrxUserButtonElement.UserButton

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

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;
    UserButton: IPrxUserButton;
Begin
    For Each Element In Elements Do
        If Element.Type = PrxToolbarElementType.UserButton Then
            UserButton := (Element As IPrxUserButtonElement).UserButton;
            Debug.WriteLine("Пользовательская кнопка: " + UserButton.Name + '(' + UserButton.Id + ')');
            Debug.Indent;
            Debug.WriteLine("Тип кнопки: " + UserButton.Type.ToString);
            Select Case UserButton.Type
                Case PrxUserButtonType.Method:
                    Debug.WriteLine("Fore-метод: " + (UserButton.Action As IPrxUserButtonActionMethod).ForeMethod);
                    Debug.WriteLine("Js-функци: " + (UserButton.Action As IPrxUserButtonActionMethod).JsFunction);
                Case PrxUserButtonType.Algorithm:
                    Debug.WriteLine("Запускаемый алгоритм: " + (UserButton.Action As IPrxUserButtonActionAlgorithm).Algorithm.Name);
                Case PrxUserButtonType.OpenObject:
                    Debug.WriteLine("Открываемый объект: " + (UserButton.Action As IPrxUserButtonActionOpenObject).ObjectForOpen.Name);
            End Select;
            Debug.Unindent;
        Elseif Element.Type = PrxToolbarElementType.UserGroup Then
            ShowElements((Element As IPrxUserGroupElement).Elements);
        End If;
    End For;
End Sub ShowElements;