Page 33 - 6370

Рисунок 23 - Процес «стирання» сітки колон.

Приклад № 3
СТВОРЕННЯ ТА РОЗМІЩЕННЯ НА ВИРОБНИЧІЙ
ПЛОЩІ ГРАФІЧНИХ ПРОЕКЦІЙ НЕРУХОМОГО
ОБЛАДНАННЯ І ОБМЕЖУВАЛЬНИХ ЛІНІЙ
ЧЕРВОНОГО КОЛЬОРУ.

1. Відкривають вікно коду нового модуля File > New > Unit
і зберігають його під запланованим іменем, наприклад:
Equipments.

2. В розділі interface задекларовують процедуру
figura1_show (sender:TObject), яка б мала слугувати
графічному відтворенню певної геометричної двовимірної
побудови на тлі форми, ім’я якої визначатиметься згодом,
тобто під-час використання цієї підпрограми, як вкладеної
в тіло деякої певної процедури – що відтворюватиме
конкретну подію .

unit Equipments;

interface

procedure figura1.show
(sender:TObject);

implementation

end.

3 У розділі implementation описують код цієї процедури,
використовуючи у ньому оператор класу as у конструкції
sender as TForm, оскільки «винуватцем події» може, за
задумом розробника застосунку стати будь-який
представник класу TForm. Для того, щоб уможливити
35