Page 9 - 6370

Рисунок 4 - Побудова нового прямокутника з
координатами лівого верхнього кута, що співпадають з
верхнім лівим кутом попереднього прямокутника.

нижнього кутка прямокутника. При цьому не слід
клопотатися про початкове розміщення курсору – він
співпадатиме із координатами правого верхнього кута
отриманого наперед прямокутника. Це стається тому, що
на цьому етапі проектування ( пункт 5) не виконується
подія FormMouseDown і парметри sx та sy процедури
Rectangle (sx,sy,x,y) зберігають свої значення отримані на
попередньому етапі побудови з пункту 4.

6. На цьому етапі запрограмовують можливість створення
прямолінійних відрізків. Дописують в тіла процедур
FormMouseDown і FormMouseUp фрагменти, які нижче є
підкресленими. Серед фрагментів вказують також умову if
(ssShift in Shift) для створення прямокутника і умову if
(ssAlt in Shift) для створення прямолінійних відрізків.

11