Координаты xyz на PascalABC - Pascal ABC
Формулировка задачи:
Недавно видел программу для определения координат, данные показывались на лево-верхнем углу. Сейчас нужна для проекта, модуля Events
Решение задачи: «Координаты xyz на PascalABC»
textual
Листинг программы
uses graphABC,Events; procedure MouseMove(x,y,mb:integer); begin clearwindow; textout(10,10,'x='+inttostr(x)+' y='+inttostr(y)); end; begin onmousemove:=MouseMove; end.