IMetaAttributesBreadcrumb.ExtendedRootItem

Синтаксис Fore

ExtendedRootItem: Boolean;

Синтаксис Fore.NET

ExtendedRootItem: Boolean;

Описание

Свойство ExtendedRootItem определяет признак отображения в компоненте объединенного элемента.

Если свойству установлено значение True, то будет отображен объединенный элемент. Объединенный элемент включает в себя кнопку очистки цепочки навигации и дополнительную кнопку, текст которой указывается в свойстве RootText. В свойстве RootHint можно задать текст всплывающей подсказки для дополнительной кнопки. При щелчке по дополнительной кнопке для компонента будет сгенерировано событие OnRootClick.

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента MetaAttributesBreadcrumb с наименованием «MetaAttributesBreadcrumb1» и компонента MetabaseOpenDialog с наименованием «MetabaseOpenDialog1». Для компонента «MetabaseOpenDialog1» задан фильтр для возможности выбора только баз данных временных рядов. В репозитории имеется база данных временных рядов с идентификатором «FC».

Class TESTForm: Form
    MetaAttributesBreadcrumb1: MetaAttributesBreadcrumb;
    MetabaseOpenDialog1: MetabaseOpenDialog;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Var
        MB: IMetabase;
        MDesc: IMetabaseObjectDescriptor;
    Begin
        MB := MetabaseClass.Active;
        MDesc := MB.ItemById("FC");
        MetaAttributesBreadcrumb1.Rubricator := MDesc.Open(Null) As IRubricatorInstance;
        MetaAttributesBreadcrumb1.ExtendedRootItem := True;
        MetaAttributesBreadcrumb1.RootText := "База: " + MDesc.Name;
        MetaAttributesBreadcrumb1.RootHint := MDesc.Name;
    End Sub TESTFormOnCreate;

    Sub MetaAttributesBreadcrumb1OnRootClick(Sender: Object; Args: IBreadcrumbItemEventArgs);
    Var
        MDesc: IMetabaseObjectDescriptor;
    Begin
        If MetabaseOpenDialog1.Execute(Self) Then
            MDesc := MetabaseOpenDialog1.Object;
            MetaAttributesBreadcrumb1.Rubricator := MDesc.Open(Null) As IRubricatorInstance;
            MetaAttributesBreadcrumb1.RootText := "База: " + MDesc.Name;
            MetaAttributesBreadcrumb1.RootHint := MDesc.Name;
        End If;
    End Sub MetaAttributesBreadcrumb1OnRootClick;

End Class TESTForm;

При запуске формы компонент «MetaAttributesBreadcrumb1» будет подключен к указанной базе данных временных рядов. Также в компоненте будет отображен корневой элемент. В тексте элемента будет указано наименование базы данных временных рядов. При щелчке по корневому элементу будет отображен диалог выбора базы данных временных рядов из репозитория. Выбранная база будет подключена к компоненту «MetaAttributesBreadcrumb1».

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенного на ней компонента MetaAttributesBreadcrumbNet с наименованием «MetaAttributesBreadcrumbNet1» и компонента MetabaseOpenDialogNet с наименованием «MetabaseOpenDialogNet1». Для компонента «MetabaseOpenDialogNet1» задан фильтр для возможности выбора только баз данных временных рядов. В репозитории имеется база данных временных рядов с идентификатором «FC».

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Metabase;

Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
    Public Constructor TESTForm();
    Begin
        InitializeComponent();
    End Constructor;

    Private Sub TESTForm_Load(sender: System.Object; e: System.EventArgs);
    Var
        MDesc: IMetabaseObjectDescriptor;
    Begin
        MDesc := Self.Metabase.ItemById["FC"];
        MetaAttributesBreadcrumbNet1.Rubricator := MDesc.Open(Null) As IRubricatorInstance;
        MetaAttributesBreadcrumbNet1.ExtendedRootItem := true;
        MetaAttributesBreadcrumbNet1.RootText := "База: " + MDesc.Name;
        MetaAttributesBreadcrumbNet1.RootHint := MDesc.Name;
    End Sub;

    Private Sub metaAttributesBreadcrumbNet1_OnRootClick(Sender: System.Object; Args: Prognoz.Platform.Interop.Forms.EventArgs);
    Var
        MDesc: IMetabaseObjectDescriptor;
    Begin
        If MetabaseOpenDialogNet1.Execute(Self) Then
            MDesc := MetabaseOpenDialogNet1.Object;
            MetaAttributesBreadcrumbNet1.Rubricator := MDesc.Open(Null) As IRubricatorInstance;
            MetaAttributesBreadcrumbNet1.RootText := "База: " + MDesc.Name;
            MetaAttributesBreadcrumbNet1.RootHint := MDesc.Name;
        End If;
    End Sub;

End Class;

При запуске формы компонент «MetaAttributesBreadcrumbNet1» будет подключен к указанной базе данных временных рядов. Также в компоненте будет отображен корневой элемент. В тексте элемента будет указано наименование базы данных временных рядов. При щелчке по корневому элементу будет отображен диалог выбора базы данных временных рядов из репозитория. Выбранная база будет подключена к компоненту «MetaAttributesBreadcrumbNet1».

См. также: