3f3_________________________ ___________________Приложение

if NVecE>l then {Перемещаем векторы} for N :- N to NVecE-1 do VecE[N] := VecEtN+1];

dec(NVecE) ;

RepChar;

it NVecE>l then begin

MouseGraphCursor(CurE,dXm,dYm);

MouseWindow(XE-dXm,YE-dYm,XE2+dXm,YE2+dYm) ;

MouseF :° True end else begin

MouseGraphCursor(CurM,0,0);

MouseScreen;

MouseF := False end;

ShowMouse;

it MouseF then

Goto Loop end else if MouseF then

Goto Loop els» if (WidthX>-xlm) and (WidthX<"x2m) then

begin {Перемещаем правую границу} SetColor(Cyan) ;

SetWriteMode(XORPut);

HideMouse;

MouseGraphCursor(CurE,dXm,dYm);

ShowMouse;

MouseWindow(XE,YE,XE2,YE2) ;

while MousePressed do begin

GetMouseStste(n,xlm,ylm);

if XE+DXE*Round((xlm-XE)/DXE)<>WidtbX then begin

HideMouse;

Line(WidthX,YE,WidthX,YE2) ;

WidthX := XE+DXE*Round((xlm-XE)/DXE) ;

Line(WidthX,YE,WidthX,YE2) ;

ShowMouse end end;

MouseScreen;

HideMouse;

MouseGraphCursor(CurM,Q, 0) ;

ShowMouse and end;

{——————}

Procedure MouseMove;

{Контролирует перемещение мыши} begin

if MPF and ( (XMoXlg) or (YMOYlg)) then

begin {Формируем резиновую нить) HideMouse;

if (XOgOXlg) or (YOgOYlg) then

Line(XOg,YOg,Xlg,Ylg); {Стираем старую}

Xlg := XM; (Новые координаты конца}