/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc24_RGB.pas
24 строки
608 B
Mikhalkovich Stanislav
Правки в Controls и примерах
03 авг 2020, 21:26
03 авг 2020, 21:26
c090673
Код
Авторство
О чём код?
// Смешение цветов RGB uses GraphWPF,Controls; begin Window.Title := 'Цвета'; Font.Size := 40; LeftPanel(150); var r := Slider('Красный: ',0,255,255,16); var g := Slider('Зеленый: ',0,255,255,16); var b := Slider('Синий: ',0,255,255,16); Button('Выход').Click := procedure → Window.Close; var p: procedure := () → begin var c := RGB(r.Value,g.Value,b.Value); Window.Clear(c); DrawText(GraphWindow.ClientRect,$'R={c.R}, G={c.G}, B={c.B}'); end; r.ValueChanged := p; g.ValueChanged := p; b.ValueChanged := p; p; end.