33 lines
836 B
ObjectPascal
33 lines
836 B
ObjectPascal
// Модуль Controls - флажки
|
||
uses WPFObjects,Controls;
|
||
|
||
begin
|
||
Window.Title := 'Модуль Controls - флажки';
|
||
|
||
LeftPanel(170);
|
||
|
||
var tb := TextBlock('Параметры круга:');
|
||
tb.Margin := 12;
|
||
|
||
var cb1 := new CheckBoxWPF('Заливка');
|
||
var cb2 := new CheckBoxWPF('Жирная граница');
|
||
var cb3 := new CheckBoxWPF('С текстом');
|
||
|
||
var c := new CircleWPF(GraphWindow.Center,60,Colors.White,1);
|
||
|
||
cb1.Click := procedure -> begin
|
||
if cb1.Checked then
|
||
c.Color := Colors.Green
|
||
else c.Color := Colors.White
|
||
end;
|
||
cb2.Click := procedure -> begin
|
||
if cb2.Checked then
|
||
c.BorderWidth := 4
|
||
else c.BorderWidth := 1
|
||
end;
|
||
cb3.Click := procedure -> begin
|
||
if cb3.Checked then
|
||
c.Text := 'Текст'
|
||
else c.Text := ''
|
||
end;
|
||
end. |