Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c