/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc7_RadioButtons.pas
26 строк
697 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - переключатели uses WPFObjects,Controls; begin Window.Title := 'Модуль Controls - переключатели'; LeftPanel(150,Colors.Beige); var tb := TextBlock('Цвет круга:'); //tb.Margin := 12; var rb1 := new RadioButtonWPF('Красный'); var rb2 := new RadioButtonWPF('Зелёный'); var rb3 := new RadioButtonWPF('Синий'); var c := new CircleWPF(GraphWindow.Center,60,Colors.White,1); rb1.Click := procedure -> begin c.Color := Colors.Red; end; rb2.Click := procedure -> begin c.Color := Colors.Green; end; rb3.Click := procedure -> begin c.Color := Colors.Blue; end; end.