{Удаляем обработчик событий}

ClearMouseHandler;

FreeMem(PP,SizePP) ;

{Формируем новый указатель}

kk := (х-х0) div DX;

if kk>NCur then kk := NCur;

if kk<l then kk := 1;

MouseGraphCursor(Cur[kk,0,0],0,0) ;

{Восстанавливаем экран}

Putlmage(x0,yO-16,P^/NormalPut) ;

FreeMem(P,Size);

MouseWindow(0,0,GetMaxX,GetMaxY) ;

F_GrText.Window(25,10,54,15) ;

Colors(White,Red) ;

ShowMouse

end; {ChangeGraphCursor} ^—.————————..——————;

Procedure SetTextScreen;

{Создает текстовый экран} begin

if not Text then

begin {Был графический режим} FreeMem(Font,FontSize); {Удаляем шрифт} GraphWriteOff; (Восстанавливаем ввод/вывод} CloseGraph; {Переходим к текстовому режиму} Text := True end;

{Указываем нужные для текстового режима процедуры) GotoXY := F_Text.GotoXY;

Colors := F_Text.Colors;

SetWindow := F_Text.SetWindow;

ChangeCursor := ChangeTextCursor;

{Ус та на влив а ем стандартный коэффициент пересчета} TextRatioY :=• 8;

{Создаем текстовый экран.}

SetScreen

end; {SetTextScreen} ^_—— ——.—.———.__—._——__;

Procedure SetGraphScreen;

{Создает графический экран} var

d,r: Integer;

h: Byte;

Name: String;

F: File;

begin