TURBO PASCAL

Новости

Программы   

Turbo Pascal 

Игры

Документация   

Странности

FAQ

Ссылки

Форум

Гостевая книга

Рассылка

Благодарности

Об авторе

 

 

4.2.3. Координаты

Функция MouseTextCooX. Возвращает текстовую координату положения указателя по горизонтали. Заголовок:

Function MouseTextCooX(X: Integer): Byte.

Здесь X — виртуальная координата мыши. Для пересчета используется коэффициент TextRatioX.

Функция MouseTextCooY. Возвращает текстовую координату положения указателя по вертикали. См. MouseTextCooX.

Функция MouseGraphCooX. Возвращает горизонтальную виртуальную координату по заданной текстовой. Заголовок:

Function MouseGraphCooX(X: Byte): Integer.

Здесь X — текстовая координата. Для пересчета используется коэффициент TextRatioX.

Функция MouseGraphCooY. Возвращает вертикальную виртуальную координату по заданной текстовой. См. MouseGraphCooX.

Процедура MouseWhereXY. Возвращает текущие координаты указате — ля. Заголовок:

Procedure MouseWhereXY(var X,Y: Integer).

Здесь X,Y — переменные, в которых возвращаются текущие виртуальные координаты указателя.

Замечу, что координаты меняются при любом смещении мыши независимо от того, виден ли на экране указатель или нет.

Прсщедура MouseGotoXY. Перемещает указатель в заданную точку экрана. Заголовок:

Procedure MouseGotoXY(X,Y: Integer).

Здесь X, Y — виртуальные координаты требуемого положения указателя.

Функция MouseWhereX. Возвращает текущую горизонтальную текстовую координату указателя. Заголовок:

Function MouseWhereX: Byte.

Функция MouseWhereY. Возвращает текущую вертикальную текстовую координату указателя. Заголовок:

Function MouseWhereY: Byte.

функция MouseIn. Возвращает True, если указатель находится в заданном месте экрана. Заголовок:

Function MouseIn(Xl,Yl,X2,Y2): Boolean.

Здесь XI. „Y2 — виртуальные координаты, определяющие верхний левый (X1,Y1) и правый нижний (X2,Y2) углы прямоугольника, в котором должен находиться указатель.

 

Глава 4

Оглавление

На первую страницу

Rambler's Top100 Rambler's Top100
PROext: Top 1000

(с)Все права защищены

По всем интересующим вопросам прошу писать на электронный адрес

Hosted by uCoz