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

[Foreseen]

Аника, а каким образом у вас массив вершин многоугольника заполняется?

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

Я не знаю. Ранее скидывали программу для вычисления площади я её и взяла, а понять что там и как не могу. Объясните пожалуйста как правильно записать эту программу.

[Foreseen]

Ох, боюсь это все же во фриланс... Ну или подождать, может кто то захочет поупражняться в матане.

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

Может кто-нибудь и поможет. Очень на это надеюсь)

[indexx]

Аника Янковская Я могу. В отличие от некоторых бесполезных модераторов. Ошибку я написал ещё раньше. Мой код у тебя не работает по тому что разрешение изображения велико, а код работает с квадратными пикселями. Чтоб добиться работоспособности необходимо применить предварительный алгоритм перевода квадратных пикселей в реальные единицы. То есть тебе нужно взять некий минимальный квадрат, площадь которого тебе известна. Вырезать его средствами делфи, и посчитать его площадь в квадратных пикселях. Далее высчитать коэффициент перевода квадратных пикселей в реальные единицы площади. Поделить все входные данные на этот коэффициент, и на выходе моей функции ты получишь площадь в нормальных единицах. Код писать не буду, пусть тебе помогают моды, которые любят поумничать. Весь алго я описал.

[Stilet]

Вот моя программа

Что это?:

var
PArray: Array of TPoint;
i:integer;
s:real;
begin
for i := 0 to Length(PArray) - 1 do

Оно же не будет работать, потому что PArray переописан локально.
Это вообще никуда не годится.

пусть тебе помогают моды, которые любят поумничать.

Злость на весь мир тебе не поможет )
Прекрати на всех смотреть как на какашки и народ к тебе потянется.

что сделать, чтобы правильно считало.

Боюсь, что нужно совсем все переписывать. Может тебе стоит найти фрилансера?

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

Так объясните как надо правильно это записать, если конечно вам не сложно???

[Stilet]

Для начала выкинь из функции var PArray: Array of TPoint;
Совсем. Он у тебя глобально уже прописан.

[Аватар]

На построение многоугольника давал код, добавил расчет площади

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

Спасибо за помощь) Вы использовали paintbox, а как можно сделать, что бы на странице была прокрутка, если на карте надо выделить более мелкие объекты?