IBreadcrumbItem.Permanent

Синтаксис Fore

Permanent: Boolean;

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

Permanent: boolean;

Описание

Свойство Permanent определяет, будет ли фиксирован элемент компонента.

Комментарии

Допустимые значения:

• True. Элемент фиксирован;

• False. Элемент не фиксирован.

Если задано значение True, то перемещение элемента влево/вправо будет недоступно.

По умолчанию свойство Permanent имеет значение False.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки и компонента MetaAttributesBreadcrumb с наименованием «MetaAttributesBreadcrumb1». Компонент MetaAttributesBreadcrumb подключен к базе данных временных рядов. Должны быть указаны ссылки на системные сборки: Metabase, Cubes.

Процедура является обработчиком события OnClick для кнопки «Button1». Пример будет выполняться при нажатии кнопки.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Items: IBreadcrumbItems;
    Item: IMetaAttributeBreadcrumbItem;
    i: Integer;
Begin
    Items := MetaAttributesBreadcrumb1.Items;
    For i := 0 To Items.Count - 1 Do
        Item := (Items.Item(i) As IMetaAttributeBreadcrumbItem);
        Item.Permanent := True;
    End For;
End Sub Button1OnClick;

После выполнения примера все элементы в компоненте MetaAttributesBreadcrumb будут фиксированы.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки и компонента MetaAttributesBreadcrumbNet с наименованием «MetaAttributesBreadcrumbNet1». Компонент MetaAttributesBreadcrumbNet подключен к базе данных временных рядов. Должны быть указаны ссылки на следующие системные сборки: Cubes, Rds.

Процедура является обработчиком события OnClick для кнопки «button1». Пример будет выполняться при нажатии кнопки.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.ExtCtrls;
...
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Items: IBreadcrumbItems;
    Item: IMetaAttributeBreadcrumbItem;
    i: Integer;
Begin
    MetaAttributesBreadcrumbNet1.Refresh();
    Items := MetaAttributesBreadcrumbNet1.CtrlBox.Items;
    For i := 0 To Items.Count - 1 Do
        Item := (Items.Item[i] As IMetaAttributeBreadcrumbItem);
        Item.Permanent := True;
    End For;
End Sub;

Результат выполнения примера Fore.NET совпадает с результатом выполнения примера Fore.

См. также:

IBreadcrumbItem