Курсовая работа: Информационно-справочная система Устройство персонального компьютера

i:=i-3;

end

else

if((y<>1) and (com=#72)) then

begin

j:=i;

i:=i-1;

end

else

if((y<>1) and (com=#80)) then

begin

j:=i;

i:=i+1;

end;

setcolor(blue);

case i of

1:begin bar3d(30,215,150,235,0,topoff); outtextXY(40,220,'√ Информация');end;

2:begin bar3d(40,245,160,265,0,topoff); outtextXY(50,250,'√ Справка');end;

3:begin bar3d(50,275,170,295,0,topoff); outtextXY(60,280,'√ Разработчик');end;

4:begin bar3d(60,305,180,325,0,topoff); outtextXY(70,310,'√ Выход');end;

end;

setcolor(red);

if ((com=#72) or (com=#80)) then

case j of

1:begin

setcolor(yellow);

ar3d(30,215,150,235,0,topoff);

setcolor(red);

outtextXY(40,220,'√ Информация');