Page 51 - 6370

Рисунок 33 – Визначення кута орієнтації точки В
фігури відносно базової точки А цієї фігури за допомогою
вненсених координат точки А(X1,Y1) і точки В(X2,Y2).

4.. Для внесення у програму значень координат X3,Y3
точки В 1 на вікні форми розміщають два додаткових
об’єкти класу TSpinEdit.

5. У розділ декларації глобальних змінних дописують
оголошення x1,y1,x2,y2,x3,y3,alfa : integer, відповідно
прибравши локальне оголошення VAR x1,y1,x2,y2: integer з
процедури TForm3. Button1Click.

6. Додають на вікно форми дві радіокнопки і програмно
узалежнюють доступність кожного з додаткових
об’єктів класу TSpiEdit від стану включення відповідної
радіокнопки. Для цього створюють процедуру
опрацювання події OnPaint:

procedure TForm3.FormPaint(Sender:
TObject);
begin

if radiobutton1.Checked =true then
begin SpinEdit5.Enabled:=true;
SpinEdit6.Enabled :=false; end
else

begin SpinEdit6.Enabled:=true;
SpinEdit5.Enabled :=false; end
53