/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphABC/MouseDraw.pas
7 строк
160 B
miks1965
bug fix #147
27 апр 2016, 13:14
27 апр 2016, 13:14
cd41139
Код
Авторство
О чём код?
uses GraphABC; begin Window.Title := '��������� �����'; OnMouseDown := (x,y,mb) -> MoveTo(x,y); OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); end.