Page 20 - 6370

2. Запускають команду RUN і отримують запрограмовану
вертикальну лінію (рисунок 13) .

3. Здійснюють спробу «витерти» лінію з допомогою
кнопки <ґумка> (рисунок 14), рухаючи нею по вікні
застосунку. Переконуються про неможливість цього
прийому, оскільки програмно відображена вертикаль
прописана в тілі процедури FormPaint (вона є
оброблювачем події OnPaint ), яка автоматично
відбувається за будь - яких візуальних змін на формі, а
значить і під-час переміщення підлеглого формі об’єкту –
Button2.

4.З допомогою мишки виконують розтягування вікна
прикладної програми з відображеною на ній вертикальною
лінією (рисунок15) і переконуються у тому, що вказана
пряма продовжує існувати в межах від верху до низу
форми оскільки це забезпечено параметром Y=0 процедури
moveto(x,0) і параметром Y= height (Y отримав значення
висоти форми) процедури lineto(x,height).

Рисунок 13 - На вікні застосунку відображається
вертикальна лінія відразу з появою вікна програми .

5. Доповнюють програмний код оброблювача події
FormPaint, так щоб кількість вертикальних ліній
задавалося у тілі програми, як змінна величина. У нижче

22