Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

case Event.Command of

cmAboutBox : ReturnVal :=

ExecuteDialog(New(PAboutBox, Init), nil);

cmOpen : FileOpen('*.*');

cmChangeDir : ChangeDir;

cmSetPass : Plus(SetPass);

cmKeyDisk : Plus(KeyDisk);

cmCode : Shifr(FName);

cmDeCode : DeShifr(FName);

cmLockDisk : LockDisk;

cmOptions : ReturnVal :=

ExecuteDialog(New(POptions, Init), @OptFile);

cmPasswords : Passwords

end;

ClearEvent(Event);

end;

end;

end;

{Инициализировать меню}

procedure TMyApp.InitMenuBar;

var

R: TRect;

begin

{Получить меню из файла ресурсов по ключу "Config" - функция получения}

{даты BIOS; модуль SetConf}

MenuBar := PMenuBar(MyRes.Get(Config));

if MenuBar = nil then

begin

Write(' Нелегальная копия!!!');

halt(1);

end;

end;

{Инициализировать рабочее поле}

procedure TMyApp.InitDesktop;

var

R: TRect;

begin

GetExtent(R);

R.Grow(0, -1);

Desktop := New(PMyDesktop, Init(R));

end;

{Инициализировать строку состояния}

procedure tMyApp.InitStatusLine;

var

R: tRect;

begin

GetExtent(R);

R.A.Y:= R.B.Y - 1;

StatusLine:= New(pStatusLine, Init(R,

NewStatusDef(0, $FFFF,

Рекомендуем скачать другие рефераты по теме: баллов, культура шпори.



Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки