Тема: Указатель x-y координат (история создания мышки)

позицию курсора и точку с координатами ( x , y ) } Moveto ( x , y : integer); {задание координат текущей точки} OutText (T: string); {вывод текста в текущую точку}

...текущего указателя , а вторая OutTextXY ( X , Y : Integer; TextString: String} выводит строку, ориентированную относительно координат ( X , Y ). Шрифт предварительно может быть установлен вызовом SetTextStyle (по умолчанию принимается DefaultFont).

Procedure LineTo( X , Y : Integer); Здесь X , Y - координаты нового положения указателя , они же - координаты второго конца линии. Процедура LineRel. Вычерчивает линию от текущего положения указателя до положения, заданного приращениями его координат .

Для получения координат точки без ее выделения достаточно навести указатель мыши на ее изображение в окне просмотра (рис.
procedure TMainForm.MaxImageMouseMove(Sender: TObject; Shift: TShiftState; X , Y : Integer); var Point

MoveTO( X , Y : integer) - Смещает текущий указатель к точке с координатой Х,У
GotoXY( X , Y : byte); - перемещает курсор в нужное место экрана (окна). Левый верхний угол экрана (окна) имеет координаты (1,1). Отсчет координат идет слева направо и сверху...