Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.15;
Скачать: 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 вся ветка

Текущий архив: 2003.05.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-46749
Lamerr
2003-05-05 09:57
2003.05.15
Работа с TChart


14-46901
Knight
2003-04-14 00:27
2003.05.15
Кто знает как избавиться от артикуляции?


1-46808
Semen
2003-05-02 16:54
2003.05.15
Сравнить два списка. Как?


14-46958
KA-87
2003-04-26 20:34
2003.05.15
Нужен хороший текстовый движок..


14-46926
Дмитрий К.К.
2003-04-25 07:54
2003.05.15
Именинники 25 апреля