Работа с канвой в Делфи 7 (нарисовать многоугольник по кликам мышкой)

[Foreseen]

Как то так, не претендую на лучшее решение

var
  Form2: TForm2;
  clk: integer=0;
  x0_y0: TPoint;
implementation

{$R *.dfm}

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if clk = 0 then
  Begin
   Image1.Canvas.MoveTo(X, Y);
   x0_y0:=Image1.Canvas.PenPos;
   clk:=clk+1;
  End;
 if Button = mbLeft then
  begin
   Image1.Canvas.LineTo(X,Y);
   Image1.Canvas.MoveTo(X,Y);
  end;
 if Button = mbMiddle then
   Image1.Canvas.LineTo(x0_y0.X, x0_y0.Y);
end;

[indexx]

Халява. Вопросы не задавать. Все равно проигнорирую.

[Аника Янковская]

Foreseen, огромное Вам спасибо, очень помогли

[Foreseen]

На здоровье

[Лиля Максимова]

А как правильно для многоугольника определить площадь? Подскажите пожалуйста.

[indexx]

Называется, смотрю в книгу, вижу фигу. Я писал, как.

[Лиля Максимова]

А каким должен быть тип переменных? Потому что площадь выходит в (-130) степени((

[indexx]

Сообщение от Лиля Максимова

А каким должен быть тип переменных?

real

Сообщение от Лиля Максимова

Потому что площадь выходит в (-130) степени((

Значит ты используешь не мой код, а какую-то фигню. Последняя строка моего кода

s := abs(s/2);

abs, это модуль. Нужно объяснять что такое модуль, и почему он не может быть отрицательным?

[Arigato]

Сообщение от indexx

abs, это модуль. Нужно объяснять что такое модуль, и почему он не может быть отрицательным?

Как связаны между собой отрицательное число и отрицательная степень? Ай-йа-йа такие глупые ошибки делать, модуль уберет знак минус в степени?

[Лиля Максимова]

Если мы пишем модуль в формуле, то числа наверно должно с плюсом быть???

А можно таким образом записать переменные??

var
PArray: Array of TPoint;
i:integer;
s:real.