Page 84 - 6370
P. 84
Приклад № 7
АВТОМАТИЧНЕ ОТРИМАННЯ МАСИВУ ТОЧОК
ПОБУДОВАНОГО З ДОПОМОГОЮ МИШКИ БАГАТОКУТНИКА
1. Додають на форму два об’єкти класу TListBox. Один для
розміщення масиву координати Х будованого з допомогою
мишки багатокутника, а інший для масиву Y того ж
багатокутника.
2. Дописують до коду процедури FormMouseUp нові
рядки пов’язані із записом масиву координат Х та масиву
координат Y. Тепер тіло підпрограми виглядатиме
наступним чином (нові рядки є підкреслені):
begin
if (((x>(x1-10))and
(x<(x1+10)))and((y<(y1+10))and (y>(y1-
10)))) then
begin
canvas.LineTo(x1,y1);
memo1.Lines.Add(IntToStr(x1) +'
'+ IntToStr (Y1) );
listbox1.Items.Add(IntToStr(x1));
listbox2.Items.Add(IntToStr (y1));
end
else
begin
canvas.LineTo(x,y);
memo1.Lines.Add(IntToStr (x) +'
'+ IntToStr (Y) );
listbox1.Items.Add(IntToStr x));
86
