Управление курсором

Чтобы построить изображение, необходимо обязательно указать начальную позицию. В текстовом режиме эту позицию определяет положение курсора, который размещается каждый раз за последним отображенным символом и указывает на местоположение следующего. В графическом режиме видимого курсора нет, но есть невидимый текущий указатель СР (Current Point), выполняющий те же функции, что и курсор в текстовом режиме. Текущий указатель называют также графическим курсором.

Для определения текущих координат графического курсора используют функции GetX:integer и GetY:integer.

Для перемещения графического курсора используют процедуры MoveTo и MoveRel.

Процедура MoveTo(X,Y:integer); перемещает текущий указатель в точку с координатами X,Y. Процедура MoveRel(dX,dY:integer); перемещает текущий курсор в точку, которая находится на расстоянии dX,dY от текущей позиции. При задании положительных значений dX или dY значения соответствующих координат увеличиваются, при задании отрицательных – уменьшаются.