крестие, кружок и квадрат. Для выбора формы указателя в графическом режиме используется процедура, получающая управление от драйвера мыши при любом перемещении ее по столу. В этой процедуре определяется текущее положение указателя и высвечивается негативным изображением указатель той или иной формы.

^———————————————————————————+

Программа, демонстрирующая возможности \ ¦ модуля F_Mouse \ +——_——————————————————————+^

Uses CRT,DOS,Graph,F_Mouse,F_GrText,F_Text;

const

tl = ' Демонстрация возможностей модуля F_Mouse ' ;

t2 = ' Состояние мыши: ';

t3: array [1..4] of String [22] =

('Координаты: Х= Y= ','Левая кнопка :', 'Правая кнопка :','Средняя кнопка:');

NItem = 3;

t4: array [1..NItem] of String [24] =

(' Изменить указатель (Fl)',' Сменить режим (F2)', ' Завершить работу (Esc)') ;

type

ItemT = array [1..NItem] of MouseItemType;

const

Items: ItemT =(

(XI: 9; Yl: 4; X2:35; Y2: 6; Butt: LeftButton; Key:59 shi 8), (XI:44; Yl: 4; X2:68; Y2: 6; Butt: LeftButton; Key:60 shi 8), (X1:26; Y1:18; X2:51; Y2:20;utt: LeftButton; Key:27));

Text: Boolean аг True;

var

k,n,b,x,y,bb,xx,yy: Integer;

Font: Pointer;

FontSize: Word;

type

GotoXYType = procedure (X,Y: Byte);

ColorsType = procedure (Text,Back: Byte);

SetWindowType = procedure (XI,Y1,X2,Y2,Border: Byte;

Header: String;lip,Build,Play: Boolean);

ChangeCursorType = procedure;

var

Colors: ColorsType;

GotoXY: GotoXYType;

SetWindow: SetWindowType;

ChangeCursor: ChangeCursorType;

Procedure SetScreen;

/Создает экран в текстовом или графическом режиме} begin