Языки и технологии программирования

Информация - Компьютеры, программирование

> R:TRect; {границы строки статуса}

begin

GetExtent(R); {получаем в R координаты всего экрана}

R.A.Y:=pred(R.B.Y);

StatusLine:=New(PStatusLine,

Init(R, {создает строку статуса}

NewStatusDef(0, $FFFF, {устанавливает макс. диап. кон-

текстной справочной службы}

NewStatusKey(~Alt-X~ Выход,kbAltX,cmQuit,

NewStatusKey(~F2~ Закрыть,kbF2,cmSave,

NewStatusKey(~F3~ Открыть,kbF3,cmOpen,

NewStatusKey(~F4~ Работа,kbF4,cmWork,

NewStatusKey(~F10~ Меню,kbF10,cmMenu,

NIL))))), {нет других клавиш}

NIL) {нет др. определений}

));

DisableCommands(WinCom1) {запрещает недоступные команды}

end; {TNotebook.InitStatusLine}

{-----------------}

var

Nbook: TNotebook;

begin

Nbook.Init;

Nbook.Run;

Nbook.Done

end.