justify"> Caption: Додати рядок
Font? Size: 10
Font? Style: [fsBold, fsItalic]
Left: 8
Top: 304
Button4:
Caption: Видалити рядок
Font? Size: 10
Font? Style: [fsBold, fsItalic]
Left: 152
Top: 304
Button5:
Caption: Розрахунок
Font? Size: 10
Font? Style: [fsBold, fsItalic]
Left: 374
Top: 304
5. Помістимо на форму об'єкт LabeledEdit1: TLabeledEdit, встановивши властивості:
EditLabeled? Caption: Ціна за кВт-год?
EditLabeled? Font? Size: 10
EditLabeled? Font? Style: [fsBold, fsItalic]
Font? Size: 10
LabelPosition: lpLeft
Left: 369
Text:
Top: 8
Visible: False
6. Зробимо копії об'єкта LabeledEdit1, встановивши їм властивості.
LabeledEdit2:
EditLabeled? Caption: Кількість днів?
Left: 369
Top: 32
LabeledEdit3:
EditLabeled? Caption: Поточний результат!
Left: 369
ReadOnly: True
Top: 352
LabeledEdit4:
EditLabeled? Caption: Попередній результат!
Left: 369
ReadOnly: True
Top: 376
7. Помістимо на форму об'єкт StringGrid1: TStringGrid, встановивши властивості:
AutoFillColumn: True
Height: 240
Left: 9
Option? goEditing: True
Font? Style: [fsBold, fsItalic]
RowCount: 2
Top: 64
Visible: False
Width: 440
. Кліком правою кнопкою миші по об'єкту StringGrid1 вибираємо пункт редагувати StringGrid1 і заповнюємо фіксовані комірки (рис. 3.4).
Малюнок 3.4 - Результат виконання 8-го пункту
9. Помістимо на формі об'єкт Memo1: TMemo, встановивши властивості:
Height: 59
Left: 16
Lines:
Top: 344
Visible: False
. Помістимо на формі об'єкт MainMenu1: TMainMenu, встановивши Items (рис. 3.5).
Малюнок 3.5 - Результат виконання 10-го пункту
11. Встановимо властивості для створених Items.
MenuItem1:
Caption: Створити
Bitmap: Завантажуване зображення
MenuItem2:
Caption: Зберегти
Bitmap: Завантажуване зображення
MenuItem3:
Caption: Про програму
Bitmap: Завантажуване зображення
MenuItem4:
Caption: Вихід
Bitmap: Завантажуване зображення
RightJustify: True
Інтерфейс програми створений (рис. 3.6)
Малюнок 3.6 - Інтерфейс в кінці розробки
12. Опишемо події, які будуть використовуватися в прграмме.
Button1.Click (кнопка 1):
Очищає вміст об'єкта StringGrid1
Робить об'єкт Image1 - невидимим
Робить видимими наступні об'єкти:
а) Button [3-5]
б) StringGrid1,
в) LabeledEdit [1-4]
MenuItem1.Click (кнопка Створити):
Завантажує файл, який містить результат попередніх обчислень
Викликає метод Button1.Click
Button3.Click (кнопка Додати рядок):
Додає рядок в об'єкт StringGrid1
Button4.Click (кнопка Видалити рядок):
Видаляє рядок з об'єкта StringGrid1.
Кнопка не діє, якщо об'єкт StringGrid1 містить два рядки
