Page 15 - 6370

Рисунок 9 - Побудова різноманітних відрізків і
прямокутників.

procedure TForm2.Button1Click(Sender:
TObject);
begin

form2.Repaint
end;
10. Здійснюють команду RUN. Використовуючи
запрограмовані в попередніх пунктах можливості,
розкреслюють у вікні прикладної програми потрібні лінії і
прямокутники (рисунок 9) і після клацання по кнопці
<витерти все> отримують очищене від будь-яких ліній і
фігур вікно ( рисунок 10 ).

17