Правила форума
MoveRel (процедура) (модуль Graph)Язык:
Русский
English
MoveRel (процедура) (модуль Graph)
Перемещает текущий указатель (CP) на заданное расстояние относительно его текущей позиции.
Объявление
Procedure MoveRel(Dx, Dy : Integer);
Режим
Real, Protected
Замечания
Если текущий указатель CP находится в точке с координатами (X1, Y1), то MoveRel перемещает его в точку с координатами (X1+Dx, Y1+Dy).
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры MoveRel }
uses Graph;
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
MoveTo(1, 2);
MoveRel(10, 10); { Перемещаем CP в точку (11, 12) }
PutPixel(GetX, GetY, GetMaxColor);
ReadLn;
CloseGraph;
end.
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
MoveTo(1, 2);
MoveRel(10, 10); { Перемещаем CP в точку (11, 12) }
PutPixel(GetX, GetY, GetMaxColor);
ReadLn;
CloseGraph;
end.
::
::
::
