Задача 7
Создать проект, который имеет вид органайзера на неделю.
Создать интерфейс программы по образцу:
Создать 8 форм. На первой разместить тестовое поле, 7 кнопок, 8 полей для вставки картинок. На остальных семи формах разместить по 4 кнопки и текстовое поле ввода. Установите значения свойств, перечисленные в таблице. Когда вы это сделаете, форма примет такой вид, как на рисунке.
Ход работы:
Загрузите Lazarus. Создайте новый проект и сохраните его.
Создайте 8 форм.
Образец 1-ой формы:
Образец остальных форм:
Установите новые значения для свойств, перечисленные в таблице.
-
Компонент
Свойство
Значение
Форма 1
Color
Position
Caption
Выберите любой цвет
poDesktopCenter (приложение будет открываться по центру экрана).
Органайзер
Кнопки 1-7
Caption
Планы на понедельник, вторник, среду, четверг, пятницу, субботу, воскресенье.
Вставьте картинки в соответствующие поля.
Формы 2-8
Color
Position
Caption
Выберите любой цвет
poDesktopCenter (приложение будет открываться по центру экрана).
Органайзер Понедельник, вторник, среда, четверг, пятница, суббота, воскресенье.
TMemo
Lines
В появившемся окне удалите текст
Кнопки 1-4
Caption
Сохранить, Выйти, Показать, Очистить
Как
вставить рисунки, показано на картинках:
Выберите поле для картинки, размещенное на форме и задайте свойство:
Откроется окно:
Нажмите на «Загрузить» и выберите картинку. Нажмите «Ок».
Таким образом вставьте картинки во все поля:
Для первой формы пропишите такой код:
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
Для кнопок пропишите такой код:
Form2.Show; - для 1-ой кнопки;
Form3.Show; - для 2-ой кнопки и так далее.
Формы 2-8:
Для кнопок пропишите кода:
Кнопка «Сохранить»: memo1.Lines.SaveToFile('c:\Users\Anna\Desktop\Lazarus задачи\3\7.txt'); - в скобках указан путь к созданному ранее текстовому файлу для сохранения введенного текста.
Кнопка «Выйти»: Form2.Close; (Form3.Close; Form4.Close; в зависимости от формы).
Кнопка «Показать»: if FileExists('c:\Users\Anna\Desktop\Lazarus задачи\3\1.txt') then
Memo1.Lines.LoadFromFile('c:\Users\Anna\Desktop\Lazarus задачи\3\1.txt')
else ShowMessage('Файл c:\Users\Anna\Desktop\Lazarus задачи\3\1.txt не существует');
В скобках указывается путь к текстовому файлу, из которого по щелчку загружается текст в форму.
Кнопка «Очистить»: Memo1.Lines.Clear;
В итоге получается такое приложение, которое перед использованием нужно сохранить:
