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

procedure WorSpece;

begin

setcolor(15);

setfillstyle(1,9);

bar3d(0,0,getmaxX,getmaxY,0,true);

setfillstyle(1,7);

setcolor(0);

bar3d(15,15,getmaxX-15,getmaxY-15,0,true);

setcolor(4);

setfillStyle(1,8);

bar3d(16,16,getmaxX-16,30,0,true);

setcolor(0);

line(17,32,17,getmaxY-17);

line(17,32,getmaxX-17,32);

line(getMaxX-17,32,getmaxX-17,getmaxY-17);

line(17,getmaxY-17,getmaxX-17,getmaxY-17);

bar3d(17,getmaxY-120,getmaxX-17,getmaxY-17,0,true);

setcolor(15);

outtextXY(90,getmaxY-100,'Page Up-страница вверх, Page Down-страница вниз');

outtextXY(105,getmaxY-80,'Стрелки вверх и вниз-перемещение по строкам');

setcolor(4);

end;

{----------------------КОНЕЦ----------------------------------------}

{|------------------------------------------------------------}

{| Процедура вывода реквизитов разработчика на экран |}

{|___________________________________________________________|}

procedure greator;

var i:byte;

begin