IRdsDictionaryBox.BorderStyle

Fore Syntax

BorderStyle: ControlBorderStyle;

Fore.NET Syntax

BorderStyle: Prognoz.Platform.Interop.Forms.ControlBorderStyle;

Description

The BorderStyle property determines component border style.

Comments

Default value is ControlBorderStyle.Single (the component is shown in 3D).

Fore Example

Executing the example requires a form that contains the UiRdsDictionary component with a loaded MDM dictionary.

Sub UserProc;
Var
    RdsDict: RdsDictionaryBox;
Begin
    UiRdsDictionary1.Active := False;
    RdsDict := New RdsDictionaryBox.Create;
    RdsDict.BorderStyle := ControlBorderStyle.Flat;
    Debug.WriteLine("Icon index: " + RdsDict.RootImageIndex.ToString);
    RdsDict.Source := UiRdsDictionary1 As IRdsDictionarySource;
    RdsDict.RootImageIndex := 44;
    RdsDict.Parent := self;
    RdsDict.Width := self.Width - 50;
    RdsDict.Height := self.Height - 50;
    UiRdsDictionary1.Active := True;
End Sub UserProc;

After executing the example the RdsDictionaryBox component is added onto the form. The following parameters are defined for this component: data source, index of the root element icon, border style, height, and width. Index of default icon is displayed in the console window.

Fore.NET Example

Executing the example requires a .NET form that contains the UiRdsDictionaryNet component with a loaded MDM dictionary.

Imports Prognoz.Platform.Interop.Rds;
Imports Prognoz.Platform.Interop.Forms;
…
Public Sub UserProc();
Var
    RdsDict: RdsDictionaryBoxNet;
Begin
    uiRdsDictionaryNet1.Active := False;
    RdsDict := New RdsDictionaryBoxNet.Create();
    RdsDict.CtrlBox.BorderStyle := ControlBorderStyle.bsFlat;
    System.Diagnostics.Debug.WriteLine("Icon index: " + RdsDict.CtrlBox.RootImageIndex);
    RdsDict.uiSource := uiRdsDictionaryNet1;
    RdsDict.CtrlBox.RootImageIndex := 44;
    RdsDict.Parent := self;
    RdsDict.Width := self.Width - 50;
    RdsDict.Height := self.Height - 50;
    uiRdsDictionaryNet1.Active := True;
End Sub UserProc;