p>
{Програма працює з файлами даних Записної книжки}
Uses App, Objects, Menus, Drivers, Views, StdDlg, DOS, Memory, Dialogs;
type
{Об'єкт TWorkWin створює вікно рамки з смугами прокрутки для управління
вбудованим в нього об'єктом TInterior}
PWorkWin = ^ TWorkWin; = object (TWindow) Init (Bounds: TRect);;
{Об'єкт TDlgWin створює діалогове вікно для вибору режиму роботи}
PDlgWin = ^ TDlgWin; = object (TDialog) HandleEvent (var Event: TEvent); Virtual;
end;
{Наступний об'єкт обслуговує внутрішню частину рамкового вікна TWorkWin.
Він створює скролліруемое вікно з записами з архівного файлу і за допомогою
діалогового вікна TDlgWin управляє роботою з цими записами}
PInterior = ^ TInterior; = object (TScroller): PStringCollection;: Word; Init (var Bounds: TRect; HS, VS: PScrollBar); Draw; Virtual; ReadFile; Done; Virtual; HandleEvent ( var Event: TEvent); Virtual;
end;
{Об'єкт-програма TNotebook підтримує роботу з меню і рядком статусу}
TNotebook = object (TApplication) InitStatusLine; Virtual; InitMenuBar; Virtual; HandleEvent (var Event: TEvent); Virtual; FileSave; ChangeDir; DOSCall; FileOpen; Work;;
const
{Команди для обробників подій} = 202; {Змінити каталог} = 203; {Обробити дані} = 204; {Тимчасово вийти в Windows} = 205; {Команда завершення роботи} = 206; {Видалити поточний запис} = 207; {Шукати потрібну запис} = 208; {Редагувати запис} = 209; {Додати запис}
{Безліч тимчасово недоступних команд}
WinCom1: TCommandSet = [cmSave, cmWork];: TCommandSet = [cmOpen]; = 25; {Довжина поля Name} = 11; {Довжина поля Phone} = 40; {Довжина поля Addr} = LName + LPhone + LAddr; {Довжина рядка} = record {Тип даних у файлі}: String [LName]; {Ім'я}: String [LPhone]; {Телефон}: String [LAddr]; {Адреса};: file of DataType ; {Файлова змінна}: Boolean; {Прапор відкритого файлу}
{------------- Реалізація об'єкта TWorkWin -------------} TWorkWin.Init (Bounds: TRect);
{Створення вікна даних}, VS: PScrollBar; {Смуги-покажчики}
Interior: PInterior; {Покажчик на кероване текстове вікно}. Init (Bounds,'', 0); {Створення нового вікна з рамкою} (Bounds); {Отримуємо координати мінімальної
перемальовувати частині вікна}. Grow (-1, -1); {Встановлюємо розміри вікна з текстом}
{Далі включаємо стандартні за розміром і положенню смуги-покажчики}
VS: = StandardScrollBar (sbVertical + sbHandleKeyBoard);: = Standa...
