Подскажите пожалуйста!!!
Я создаю массив координат нажатием курсора мыши по Image
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Inc(count);
p[count].x:=x;
p[count].y:=y;
end;

Каким образом мне построить Polygon по последним 4-м точкам?
Я могу лишь построить по первым 4-м точкам
Image1.Canvas.Polygon(Slice(p,4));

Здравствуйте, Аноним, Вы писали:

А>Каким образом мне построить Polygon по последним 4-м точкам?
А>Я могу лишь построить по первым 4-м точкам
А>Image1.Canvas.Polygon(Slice(p,4));

Я так полагаю, что нужно создать ещё один массив с нужными координатами точек и по ним нарисовать полигон.

Здравствуйте, Аноним, Вы писали:

А>Подскажите пожалуйста!!!
А>Я создаю массив координат нажатием курсора мыши по Image
А>procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
А> Shift: TShiftState; X, Y: Integer);
А>begin
А> Inc(count);
А> p[count].x:=x;
А> p[count].y:=y;
А>end;

А>Каким образом мне построить Polygon по последним 4-м точкам?
А>Я могу лишь построить по первым 4-м точкам
А>Image1.Canvas.Polygon(Slice(p,4));

А почему бы не использовать динамический массив? В момент нажатия мыши увеличиваем его длину и заполняем координаты. Затем этот массив и передаем в Polygon(). И никаких Slice не понадобится.

Здравствуйте, Аноним, Вы писали:


А>Каким образом мне построить Polygon по последним 4-м точкам?
А>Я могу лишь построить по первым 4-м точкам
А>Image1.Canvas.Polygon(Slice(p,4));

Или использовать GDI-функцию Polygon, передавая ей Canvas.Handle и начальную точку
Polygon(Canvas.Handle, P[count — 3], 4);

А если массив динамический, то можно использовать функуию Copy (которая применима не только к строкам)
Canvas.Polygon(Copy(P, Length(P)-4, 4));