IBreadcrumbItem.Permanent

Fore Syntax

Permanent: Boolean;

Fore.NET Syntax

Permanent: boolean;

Description

The Permanent property determines whether the element of the component should be fixed.

Comments

Acceptable values:

True. The element is fixed.
False. The element is not fixed.

If True is set, the element cannot be moved to the right or to the left.

By default the Permanent property is set to False.

Fore Example

Executing the example requires a form, a button on it and the MetaAttributesBreadcrumb component named MetaAttributesBreadcrumb1. The MetaAttributesBreadcrumb component is connected to the time series database. Set references to the Metabase and Cubes system assemblies.

The procedure is the OnClick event handler for the Button1 button. This example is executed on clicking the button.

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;

After executing the example all elements in the MetaAttributesBreadcrumb component are fixed.

Fore.NET Example

Executing the example requires a form, a button on it and the MetaAttributesBreadcrumbNet component named MetaAttributesBreadcrumbNet1. The MetaAttributesBreadcrumbNet component is connected to the time series database. Set references to the Cubes and Rds system assemblies.

The procedure is the OnClick event handler for the button1 button. This example is executed on clicking the button.

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;

The result of executing Fore.NET Example matches with that of Fore Example.