IBreadcrumbItem.Permanent

Fore Syntax

Permanent: Boolean;

Fore.NET Syntax

Permanent: boolean;

Description

The Permanent property determines whether the component element is fixed.

Comments

Available 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.

The Permanent property is set to False by default.

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. Add links to the Metabase and Cubes system assemblies.

The procedure is the OnClick event handler for the Button1 button. Click the button to start executing the example.

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. Add links to the Cubes and Rds system assemblies.

The procedure is a handler of the OnClick event for the button1 button. Click the button to start executing the example.

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 Fore.NET example execution matches with that of Fore example.