авши з цією опцією такі дії, як відкриття вже існуючого файлу даний та/або створення нового. Крім того, в головне меню ми помістили ще одну опцію, названу Робота. Ця опція відкриває доступ до змістовної частини програми. У нашій роботі ми використовуємо стандартний ідентифікатор hcContext при описі кожної опції. p align="justify">. Програмування діалогових запитів
Процедура FileOpen. Її завдання - вибрати один з можливих файлів з даними і підготувати його до роботи. p align="justify"> Тип PFileDialog - це покажчик на об'єкт TFileDialog, що створює і обслуговуючий стандартне діалогове вікно вибору файлів. Перший оператор ініціює новий екземпляр об'єкта TFileDialog. p align="justify"> Парамеір fdOpenButton вказує на необхідність включити в діалогове вікно кнопку Open.
Другий оператор поміщає новостворене вікно в основне поле екрану програми і ініціює діалог з користувачем.
Перед виходом з процедури FileOpen екземпляр об'єкта TFileDialog знищується зверненням до Деструктори Done.
За допомогою оператора DisableCommands ми тимчасово забороняємо набір команд, зазначеної в константі WinCom2. Ця константа в нашому випадку повинна містити команду cmOpen; її визначення потрібно включити відразу за визначенням константи WinCom1. p align="justify">. Створення і використання груп
За допомогою виклику процедури GetClipRect ми отримуємо розміри мінімального прямокутника, який слід оновлювати при будь-яких переміщеннях вікна або зміни його розміру. Процедура Bounds.Crow змінює вертикальний і горизонтальний розміри прямокутника Bounds: при позитивному параметрі відповідний розмір збільшується, при негативному - зменшується. Функція StandardScrollBar створює покажчик на смугу прокрутки стандартного розміру. При зверненні до неї параметр sbVertical (sbHorizontal) визначає положення смуги, а параметр sbHandleKeyboard дозволяє використання клавіатури для управління їй. Процедура Insert включає новостворене вікно TScrollBar в основне вікно TWindow. p align="justify">. Покажчик на елемент списку
Поле Location буде зберігати номер того рядка, яка ототожнюється з обраної рядком і яка на екрані виділяється кольором. Спочатку перевіряється, чи потрапляє рядок з номером, що зберігаються в Location, в число виведених рядків. Якщо це не так, значить, користувач змінив розміри вікна або зрушив його відносно тексту; в цьому випадку потрібні чином коригується значення Location. Така перевірка гарантує, що у вікні завжди буде виводитися поточна рядок. p align="justify"> TScroller.HandleEvent. За допомогою цього методу обробляються всі стандартні дії з вікном. p align="justify">. Діалогове вікно вибору режиму
Змінивши метод TNotebook.HandleEvent, ми додаємо автоматичний перехід в режим перегляду даних у разі успішного файла з даними.
Команда cmClose - закрива...
