Багато додатків мають в меню пункти Останні Відкриті Файли і це широко використовується для зручності користувачів. Саме останні збережені файли потрібно помістити в порядку збереження в пункти меню. Це дає можливість відкривати останні файли без пошуку їх на жорсткому диску. У нашій програмі Delphi, а також програмне забезпечення ПК буде чотири пункти останніх збережених файлів. Ви можете змінити їх кількість в подальшому. Наприклад, ми будемо відкривати графічні точкові зображення.
Ця програма ділиться на кілька етапів:
- Відкриття файлу.
- Збереження файлу, як обране.
- Робота з ним.
- Додавання його в меню.
- Виклик процедури в створенні або знищенні форми.
- Читання растрового зображення.
Для збереження і читання обраного ми будемо використовувати INI-файл. Використання INI-файлу дозволяє добитися високої швидкості.
Для початку додайте на форму компоненти: TMainMenu. TImage і TOpenDialog. Створіть меню, як показано на зображенні внизу. Імена пунктів меню з заголовком rec будуть відповідно rec1, rec2, rec3 і т.д.
Потім змінимо властивість AutoSize компонента TImage в True. Це дозволить змінювати розмір зображення автоматично. Встановіть властивість Filter компонента TOpenDialog в Bitmap файли | * .bmp. Змініть властивість AutoHotKey компонента TMainMenu на maManual. Додайте модуль IniFiles в розділі uses і напишіть наступний код в розділі Private Declarations.
Тепер дії. Створюємо INI-файл, який буде називатися MyIniFile.ini. За замовчуванням, він буде в папці Windows. Всі операції будемо виконувати за допомогою TStringList.
Отримуємо шляху до файлів з INI-файлу
Ця процедура дозволяє відновлювати шляху до різних файлів з StringList.
Зберігаємо шляху до файлів в INI-файл
По-перше, ми перевіряємо, чи є зміни в меню, а потім записуємо в порядку відкриття файлів.
управляємо StringList
Ця процедура дозволяє виконувати певні операції з StringList. Або ми додаємо новий шлях до файлу і видаляємо останній пункт, або змінюємо положення одного з шляхів, якщо він вже був.
Зміни в меню
Тут ми працюємо з пунктами меню.
Коли форма буде створюватися або знищуватися, тепер Ви повинні викликати деякі процедури.
Читання растрового зображення
Завантажити файл можна тут