Как заставить вертется многоугольник?

← →
nevalex (2003-05-02 17:25) [0]

Как заставить вертется многоугольник c возможностью изменения кол.углов.кокой необходим кампонент( возможно Tshape?) помогите плиз вдолгу не останусь

← →
Skyle (2003-05-02 17:30) [1]

Подойдёт любой компонент с канвой (Canvas). На ней и рисуй. Например TPanel или TForm.

← →
Fenik (2003-05-02 20:46) [2]

Рисование правильных многоугольников:

procedure RotPolygon(Canvas: TCanvas; Center: TPoint; Radius, Ends: Word; Angle: Double);
const Rad = Pi/180;
var i: Integer;
p: array of TPoint;
ad: Double;
begin
if Ends < 2 then Exit;
SetLength(p, Ends);
ad := 360/Ends;
for i := 0 to Ends - 1 do begin
p[i].x := Trunc(Cos(Angle*Rad)*Radius) + Center.x;
p[i].y := Trunc(Sin(Angle*Rad)*Radius) + Center.y;
Angle := Angle + ad;
end;
Canvas.Polygon(p);
end;

Ends - количество углов.
Angle - начальный угол поворота.
Center - центр многоугольника.

DrawS(PaintBox1.Canvas, Point(100, 100), 40, 3, 70);

_______________
Fenik (c).

← →
nevalex (2003-05-03 22:45) [3]

Огромное вам СПАСИБО!!!!!!!!!
Вы меня выручили.............

Как заставить вертется многоугольник? Найти похожие ветки