begin

GetPalette := 8C end;

/——_—————_———;

Procedure TMyHelpWindow.HandleEvent;

{Обрабатывает клавишу F5 для выдачи команды cmZoom (распахнуть окно)} begin

THelpWindow.HandleEvent(Event) ;

if Event.What=evKeyboard then if Event.KeyCode=kbF5 then begin

Message(@Self,evCommand,cmZoom,@Self) ;

ClearEvent(Event);

end end;

^————————————;

Procedure TVir.DoHelp;

{Осуществляет доступ к контекстно-зависимой справочной службе} •wax

С: Word;

HF: PHelpFile;

HS: PDosStream;

HW: PMyHelpWindow;

begin

{Открываем DOS-поток:} HS := New(PDosStream,Init(HelpFile, stOpenRead)) ;

{Создаем и инициируем экземпляр объекта THelpFile:} HF := New(PHelpFile, Init(HS)};

if HS^-Status-stOk then

begin

/Создаем окно справочной службы и связываем его с потоком HS и текущим контекстом: }

HW := New(PMyHeipWindow,Init(HF, GetHelpCtx)) ;

if ValidView(HW) <> NIL then begin

С :° ExecView(HW); (Выдаем справку} Dispose(HW) {Удаляем окно} end end exse begin

Dispose(HF, Done);

if MessageBox('Нет доступа к файлу '+

HelpFile, NIL,mfError+mfOKButton)=0 then;

end end; [DoHelp} ^————————.——.——;

Procedure DWT.HandleEvent(var Event: TEvent) ;

{Обработчик событий основного окна. Реализует нестандартные команды, а также обрабатывает клавиши Left и Right для смены активности кнопок} begin {DWT.HandleEvent}

TDialog.HandleEvent(Event) ;

case Event.What of

evCommand: {Обработка нестандартных команд} begin

case Event.Command of cmHelp: AntiV".DoHelp;

cmSet: AddFiles;

cmDel: DelFiles;