/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphWPF/DrawCircleByMouse.pas
16 строк
306 B
miks1965
Откатил фикс #796
15 май 2018, 21:01
15 май 2018, 21:01
bf8316c
Код
Авторство
О чём код?
uses GraphWPF; begin var x1,y1: real; var c: Color; OnMouseDown := procedure(x,y,mb) -> begin (x1,y1) := (x,y); c := RandomColor; end; OnMouseMove := procedure(x,y,mb) -> if mb=1 then begin var r := Sqrt(Sqr(x1-x)+Sqr(y1-y)); Window.Clear; Circle(x1,y1,r,c); end; end.