Нарисовать четырехугольник Delphi
Нужно нарисовать четырехугольник с изменяющимися длинами сторон. То есть линии могут быть ломаными. Пример моего кода, где сторона (d - верхняя не изменяется ).
Image2.Canvas.MoveTo(30,30); // начало
Image2.Canvas.LineTo(30,h1); // вниз
Image2.Canvas.LineTo(w1,h1); // в право
Image2.Canvas.LineTo(h2,30); // вверх
Image2.Canvas.LineTo(30,30);
Ответы (1 шт):
Автор решения: fagodbear01
→ Ссылка
Использовал метод Polygon
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clTeal;
Canvas.Polygon([Point(10, 10), Point(30, 10),
Point(130, 30), Point(240, 120)]);
end;