BorderStyle: ControlBorderStyle;
Свойство BorderStyle определяет стиль границы компонента.
Значение по умолчанию ControlBorderStyle.Single (компонент имеет объемный вид).
Для выполнения примера предполагается наличие формы, содержащей компонент 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. Для него заданы: источник данных, индекс пиктограммы корневого элемента, стиль границы, ширина и высота. Индекс пиктограммы, используемой по умолчанию, будет выведен в окно консоли.
См. также: