{Создаем основное окно} Colors(Black,LightGray) ;

SetWindow(1,1,80,25,DoubleBorder,tl,True,False,False);

{Создаем элементы выбора} Colors(Black,Green);

for k := 1 to NItem do with Items[k] do begin

SetWindow(XI,Yl,X2,Y2,SingleBorder,'',True,False,False) ;

Write(t4[k]) end;

{Создаем панель статуса} Colors(White,Red) ;

SetWindow(24,9,55,16,DoubleBorder,t2,True,False,False) ;

n := (3O-Length(t2)) div 2;

for k := 1 to 4 do begin

GotoXY(n-3,k+l) ;

Write(t3[k]) end end; {SetScreen} {____——————————————}

Procedure ChangeTextCursor; Far;

{Изменяет курсор в текстовом режиме} const

t = ' Выберите символ для указателя мыши ';

var

k: Byte;

n,x,y: Integer;

begin {Создаем окно выбора} HideMouse;• PutWindow(8,7,73,12,White,Blue,

DoubleBorder,1,t,True,False/False) ;

{Выводим в нем все символы, кроме Bel,BS,LF,CR} for k := 1 to 255 do

if k in [7,8,10,13] then

Write (' ') else

Write(chr(k)) ;

{Формируем пределы перемещения указателя} MouseWindow(MouseGraphCooX(9),MouseGraphCooY(8), MouseGraphCooX(72),MouseGraphCooY(11)) ;

{Цикл до в>тпускания левой кнопки} Repeat

GetMouseState(b,x,у) ;

until b and LeftButton=O;

ShowMouse;

{Цикл до нажатия левой кнопки}