IRdsDictionaryBox.BorderStyle

Синтаксис Fore

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

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

Описание

Свойство BorderStyle определяет стиль границы компонента.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент UiRdsDictionary с загруженным справочником НСИ.

Sub UserProc;
Var
    RdsDict: RdsDictionaryBox;
Begin
    UiRdsDictionary1.Active := False;
    RdsDict := New RdsDictionaryBox.Create;
    RdsDict.BorderStyle := ControlBorderStyle.Flat;
    Debug.WriteLine("Индекс пиктограммы: " + 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;

После выполнения примера на форму будет добавлен компонент RdsDictionaryBox. Для него заданы: источник данных, индекс пиктограммы корневого элемента, стиль границы, ширина и высота. Индекс пиктограммы, используемой по умолчанию, будет выведен в окно консоли.

Пример Fore.NET

Для выполнения примера предполагается наличие формы .NET, содержащей компонент UiRdsDictionaryNet с загруженным справочником НСИ.

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("Индекс пиктограммы: " + 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;

См. также: