/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc6_CheckBoxes2.pas
33 строки
836 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль 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.