33 lines
1.4 KiB
ObjectPascal
33 lines
1.4 KiB
ObjectPascal
// Модуль Controls - создание элементов вызовом конструктора
|
|
uses GraphWPF,Controls;
|
|
|
|
begin
|
|
Window.Title := 'Модуль Controls - создание элементов вызовом конструктора + правая панель';
|
|
// Размещение элементов на правой ранели
|
|
new RightPanelWPF(160,Colors.Orange);
|
|
|
|
new ButtonWPF('Кнопка');
|
|
new CheckBoxWPF('Флажок');
|
|
new RadioButtonWPF('Переключатель 1');
|
|
new RadioButtonWPF('Переключатель 2');
|
|
new TextBoxWPF('Поле ввода текста');
|
|
var ib := new IntegerBoxWPF('Поле ввода целого',0,10);
|
|
ib.Tooltip := 'Покрутите колёсико мыши для изменения значения';
|
|
var l := new ListBoxWPF('Список стран');
|
|
l.Height := 110;
|
|
l.Add('Россия');
|
|
l.Add('США');
|
|
l.Add('Китай');
|
|
l.Add('Германия');
|
|
l.Add('Франция');
|
|
var cb := new ComboBoxWPF('Выпадающий список');
|
|
cb.AddRange('Россия','США','Китай','Германия','Франция');
|
|
|
|
new SliderWPF('Слайдер:',0,10);
|
|
new TextBlockWPF('Блок текста');
|
|
new IntegerBlockWPF('Блок целого:',64);
|
|
new RealBlockWPF('Блок вещественного:',3.5);
|
|
|
|
var s := new StatusBarWPF;
|
|
s.Text := 'Строка статуса';
|
|
end. |