Створіть папку проекту.
Запустіть LAZARUS. Якщо відкрився попередній проект, то виконайте команду Проект - Створити проект. . У діалоговому вікні виберіть зі списку слово Додаток і натисніть кнопку Створити. Всі подальші зміни будемо зберігати командою Проект - Зберегти проект як - двічі натискаємо Зберегти в папці проекту.
Завдання 1. Розмір шрифту
1. Встановіть властивості Форми.
Тема форми (властивість Caption) - Форматування
Колір форми (властивість Color) - за настроєм
2. Помістіть на форму мітку Label 1. мітка вибирається одним клацанням миші по об'єкту Label вкладки Standart. другим клацанням на полі форми мітка виставляється в обраному місці клацання. перейдіть в Інспектор об'єктів на вкладку Властивості, змініть властивість Caption - напишіть Ура! Працює !.
3. Встановіть початковий розмір шрифту 12. Розкрийте список властивості Font. і в рядку Size встановіть значення 12.
4. Помістіть на Форму кнопку Button1. кнопка вибирається одним клацанням миші по об'єкту Button. другим клацанням на полі форми кнопка виставляється в обраному місці клацання. Напишіть на кнопці Вихід. Для цього перейдіть в Інспектор об'єктів на вкладку Властивості, змініть властивість Caption - напишіть Розмір шрифту +1. Підкоригує розміри кнопки, щоб текст відображався повністю. Для цього або скористайтеся маркерами на кнопці, або змініть властивість Width об'єкта Button1.
procedure TForm1.Button1Click (Sender: TObject);
Щоб збільшити шрифт в тіло процедури вставимо рядок
При кожному натисканні кнопки розміри мітки будуть збільшуватися на 1.
5. Запустіть проект натисканням на кнопку у вигляді зеленого трикутника. Переконайтеся в працездатності.
6. Змініть текст програми. Додайте обмеження по довжині написи. Якщо вона перевищує Розміри форми + Відступ мітки від лівого краю форми, збільшення повинно зупинитися, текст напису змінюється, повідомляючи про причини скасування дії.
7. Додайте кнопку Розмір шрифту-1 по зменшенню шрифту на 1. Врахуйте той факт, що якщо розмір шрифту встановити негативним, то замість зменшення почнеться збільшення шрифту, програма буде працювати некоректно.
Завдання 2. Колір шрифту
1. Додайте кнопку Випадково зі зміни кольору шрифту.
procedure TForm1.Button3Click (Sender: TObject);