Circle (8,8,4); {Кружок}

PutCur(2) ;

Line(0,8,15,8); {Перекрестие}

Line(8,0,8,15) ;

PutCur(3) ;

Rectangle(0,0,15,15); {Квадратик}

PutPixel(7,7,15) ;

PutCur(4) ;

SetViewPort(O,O,GetMaxX,GetMaxY,ClipOn) ;

{Готовим окно для меню указателей}

PutImage (0, 0, P-'^NormalPut) ;

FreeMem(P,Size) ;

х0 := GraphCooX(9) ;

у0 := GraphCooY(7) ;

xl := GraphCooX(36) ;

yl := GraphCooY(lO) ;

Size := ImageSize(xO,yO,xl,yl);

GetMem(P,Size) ;

Getlmage(xO,yO,xl,yl,P") ;

Colors(White,Blue) ;

SetWindow(9,7,35,9,DoubleBorder,t,True,False,False);

{Выводим изображения указателей}

yl := yO+16;

for kk := 1 to NCur do for у := 0 to 15 do begin

xl := xO+kk*DX;

b := Cur[kk,1,y];

for x := 0 to 15 do

if b and ($8000 shr x)<>0 then

PutPixel(xl+x,yl+y,White) end;

{Уста на влив а ем пределы перемещения указателя}

yO := yO+16;

yl := у1+16;

MouseWindow(xO,yO,xl+DX,yl) ;

{Выделяем первое изображение}

SizePP := ImageSize(xO+DX div 2,yO,xO+3*DX div 2,yl);

GetMem(PP,SizePP) ;

Getlmage (xO+DX div 2,yO,xO+3*DX div 2,yl,PP-^);

PutImage (xO+DX div 2, yO, PP^NotPut) ;

kk := 1;

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

SetMouseHandler(l,MouseHandler) ;

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

repeat

GetMouseState(k,x,у)

until k and LeftButtonoO;