/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PABCNetHelp/Examples/GraphABCEvents/GEv1.html
37 строк
1 KB
samuraiGH
adding working-tree-encoding attribute (#3325)
07 ноя 2025, 16:12
Не верифицирован
07 ноя 2025, 16:12
cf1fd29
Код
Авторство
О чём код?
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title></title> <link rel="StyleSheet" href="../../default.css"> </head> <body> <H1>Рисование мышью в графическом окне</H1> Данная программа осуществляет рисование мышью в графическом окне: <blockquote> <pre> <code><b>uses</b> GraphABC;<b> <span style="font-size: 4pt"> </span>procedure</b> MouseDown(x,y,mb: integer); <b>begin</b> MoveTo(x,y); <b>end</b>; <b><span style="font-size: 4pt"> </span>procedure</b> MouseMove(x,y,mb: integer); <b>begin</b> <b>if</b> mb=1 <b>then</b> LineTo(x,y); <b>end</b>; <b><span style="font-size: 4pt"> </span>begin </b> // Привязка обработчиков к событиям <a href="../../PABCUnits/GraphABC/gr_events.html">OnMouseDown</a> := MouseDown; <a href="../../PABCUnits/GraphABC/gr_events.html">OnMouseMove</a> := MouseMove <b>end</b>.</code> </pre> </blockquote> </body> </html>