Пример программы
Ниже приведен пример программы, использующей модуль мыши, которая выводит на экран курсор мыши и его текущие координаты.
uses crt, graph, mouse;
Var x, y: integer;
strx, stry: string;
oldx, oldy: integer;
rec: locrec;
gDriver, gMode: integer;
Begin
gDriver:=Detect;
gMode:=0;
InitGraph(gDriver,
gMode,'C:\BP7\BGI');
mshow;
mcolrange(40,GetMaxX-40);
mrowrange(40,GetMaxY-40);
line(40,40,GetMaxX-40,40);
line(40,40,40,GetMaxY-40);
line(40,GetMaxY-40,GetMaxX- 40,GetMaxY-40);
line(GetMaxX-40,40,GetMaxX- 40,GetMaxY-40);
mpos(rec);
oldx:=rec.column;
oldy:=rec.row;
mmoveto(40,40);
repeat
mpos(rec);
x:=rec.column;
y:=rec.row;
if ((x<>oldx)OR(y<>oldy)) then
begin
SetColor(BLACK);
OutTextXY(2, 2, ' ');
OutTextXY(2, 14,' ');
SetColor(LIGHTGRAY);
Str(x, strx); Str(y, stry);
OutTextXY(2, 2, 'x='+strx);
OutTextXY(2, 14, 'y='+stry);
end;
oldx:=x; oldy:=y;
until keypressed;
CloseGraph;
End.
| {подключает необходимые
модули}
{объявляем необходимые
переменные}
{инициализация графического режима}
{показываем курсор мыши}
{устанавливаем минимальные и
максимальные границы движения
курсора мыши}
{рисуем зону движения курсора мыши}
{данные, возвращаемые в
структуре rec, будут сообщать
текущее состояние мыши}
{присваиваем переменным oldx и oldy значения координат текущего
состояния мыши}
{перемещаем курсор мыши в
заданные координаты}
{программа будет выполнять действия этого цикла, пока мы не нажмем клавишу}
{сравним «старые» и «новые» координаты мыши, если положение мыши изменилось, то выполним следующие действия}
{очищаем две строки, где выводится x и y, для этого необходимо между апострофами поставить спец. символ из ASCII с кодом 219 (удерживая клавишу «ALT», наберите код и отпустите клавишу)}
{преобразуем целочисленные значения x и y в строки strx и stry и выводим координаты положения мыши на экран}
{закрываем графический режим}
|
Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...
|
Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...
|
Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...
|
Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...
|
|
ЛЕКАРСТВЕННЫЕ ФОРМЫ ДЛЯ ИНЪЕКЦИЙ К лекарственным формам для инъекций относятся водные, спиртовые и масляные растворы, суспензии, эмульсии, новогаленовые препараты, жидкие органопрепараты и жидкие экстракты, а также порошки и таблетки для имплантации...
Тема 5. Организационная структура управления гостиницей 1. Виды организационно – управленческих структур. 2. Организационно – управленческая структура современного ТГК...
Методы прогнозирования национальной экономики, их особенности, классификация В настоящее время по оценке специалистов насчитывается свыше 150 различных методов прогнозирования, но на практике, в качестве основных используется около 20 методов...
|
|
Пункты решения командира взвода на организацию боя. уяснение полученной задачи; оценка обстановки; принятие решения; проведение рекогносцировки; отдача боевого приказа; организация взаимодействия...
Что такое пропорции?
Это соотношение частей целого между собой. Что может являться частями в образе или в луке...
Растягивание костей и хрящей. Данные способы применимы в случае закрытых зон роста.
Врачи-хирурги выяснили...
|
|