Реферат Розробка зручною діалогової програми, що полегшує доступ до файлових даними

y"> cmDOSShell: DOSCall; {Тимчасовий вихід у Вінду}

cmWork: Work; {Обробити дані} {Не обробляти інші команди}; (Event) {Очистити подія після обробки}

end; {TNotebook.HandleEvent}

{-------------} TNotebook.InitMenuBar;

{Створення меню}: TRect; (R);. BY: = succ (RAY); {R - координати рядка в меню}

MenuBar: = New (PMenuBar, Init (R,

NewMenu ({Створюємо меню}

{Перший елемент нового меню являє собою підміню}

NewSubMenu ('~ F ~/Файл', hcNoContext,

{Описуємо елемент головного меню} ({Створюємо підміню} ({Перший елемент}

'~ 1 ~/Відкрити', 'F3', kbF3, cmOpen, hcNoContext, ({Другий елемент}

'~ 2 ~/Закрити', 'F2', kbF2, cmSave, hcNoContext, ({Третій елемент}

'~ 3 ~/Змінити диск','', 0, cmChangeDir, hcNoContext, ({Рядок-роздільник} ('~ 4 ~/Заглянути в Вінду','', 0, cmDOSShell, hcNoContext, ('~ 5 ~/Кінець роботи', 'Alt-X', kbAltX, cmQuit, hcNoContext,)))))) {Немає інших елементів підменю}

),

{Створюємо другий елемент головного меню} ('~ W ~/Робота','', kbF4, cmWork, hcNoContext,) {Немає інших елементів головного меню}

)))); {TNotebook.InitMenuBar}

{-------------} TNotebook.InitStatusLine;

{Формує рядок статусу}: TRect; {Межі рядка статусу} (R); {Отримуємо в R координати всього екрану}

RAY: = pred (RBY);: = New (PStatusLine, (R, {Створюємо рядок статусу}

NewStatusDef (0, $ FFFF, {Встановлюємо максимальний діапазон

контекстного довідкової служби} ('~ Alt-X ~ Вихід', kbAltX, cmQuit,

NewStatusKey ('~ F2 ~ Закрити', kbF2, cmSaveFile, ('~ F3 ~ Відкрити', kbF3, cmOpenFile, ('~ F4 ~ Робота', kbF4, cmWork, ('~ F10 ~ Меню ', kbF10, cmMenu,))))), {Немає інших клавіш}) {Немає інших визначень}

)); (WinCom1) {Забороняємо недоступні команди}

end; {TNotebook.InitStatusLine}

{-------------}: TNotebook;. Init;. Run;

Nbook.Done;.