rdScrollBar (sbHorizontal + sbHandleKeyBoard);
{Далі створюємо текстове вікно}: = New (PInterior, Init (Bounds, HS, VS));
Insert (Interior) {Включаємо його в основне вікно}
end;
{-------------} TDlgWin.HandleEvent; HandleEvent (Event); Event.What = evCommand then (Event.Command);
{-------------} TNotebook.FileOpen;
{Відкриває файл даних}: PFileDialog; {Діалогове вікно вибору файлу}: Word;: PathStr;
{Далі створюємо екземпляр динамічного об'єкта} (PF, Init ('* dat', 'Виберіть потрібний файл:', 'Файл', fdOpenButton, 0));
{За допомогою наступного оператора вікно виводиться на екран і результат
роботи користувача з ним поміщається в змінну Control}: = DeskTop ^. ExecView (PF);
{Далі аналізуємо результат запиту} Control of.cmFileOpen, cmOk: {Користувач вказав ім'я файлу} ^. GetFileName (s); {s містить ім'я файлу}
Assign (DataFile, s); (DataFile); IOResult <> 0 then (DataFile);: = IOResult = 0; OpFileF then (WinCom2); (WinCom1); {Переходимо до роботи };;; {case Control} (PF, Done) {Знищуємо примірник}; {FileOpen}
{-------------} TNotebook.FileSave;
{Закриває файл даних} (DataFile);: = False; (WinCom2); {Дозволяємо відкрити файл}
DisableCommands (WinCom1) {Забороняємо роботу і зберігаємо}
end; {TNotebook.FileSave}
{-------------} TNotebook.ChangeDir;
{Змінює поточний каталог}: PChDirDialog; {Діалогове вікно зміни каталогу}
Control: Word; (PD, Init (cdNormal, 0)); {Створюємо діалогове вікно}: = DeskTop ^. ExecView (PD); {Використовуємо вікно}
ChDir (PD ^. DirInput ^. Data ^); {Встановлюємо новий каталог}
Dispose (PD, Done) {Видаляємо вікно}; {TNotebook.ChangeDir
{-------------} TNotebook.DOSCall;
{Тимчасовий вихід у Вінду} = 'Для повернення введіть EXIT у відповідь' + 'на запрошення Windows ..';; {Закрити обробник подій}; {Закрити монітор екрана}; {Закрити монітор пам'яті} (HeapPtr); {Звільнити купу} (txt); {Повідомити про вихід}; {Установити стандартні вектори}
{Передати управління командному процесору Вінди (далі)} (GetEnv ('COMPEC'),'');
{Повернутися з Вінди (далі)}; {Відновити вектори} (HeapEnd); {Відновити купу}; {Відкрити монітор пам'яті}; {Відкрити монітор екрана}; {Відкрити обробник подій}; {Відкрити обробник помилок} {Відновити вигляд екрану}; {DOSCall}
{-------------} TInterior.Init;
{Створює вікно скроллера}
