Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

Звезда   Найти похожие ветки 

← →
Serious Sam ©   (2004-05-24 20:11) [0]

Уважаемые мастера, помогите! Мне нужно на Delphi нарисовать правильную звезду. Я предполагаю рисовать ее с помощью polygon"а, подскажите, как найти координаты ее вершин. Слышал, что для этого есть какая-то формула, может кто ее знает?

---

← →
Anatoly Podgoretsky ©   (2004-05-24 20:18) [1]

360/5 и вспоминаем про синусы/косинусы

---

← →
motor   (2004-05-24 20:24) [2]

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 WITH Sender AS TPaintBox, Canvas DO
 begin
   Brush.Color := Color;
   Pen.Color := Font.Color;
   SetPolyFillMode(Handle, WINDING);
   Polygon ([Point(Width DIV 2, 0),
     Point(Width DIV 5, Height),
     Point(Width, 2*(Height DIV 5)),
     Point(0, 2*(Height DIV 5)),
     Point(4*(Width DIV 5), Height)])
 end;
end;

---

← →
motor   (2004-05-24 20:24) [3]

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 WITH Sender AS TPaintBox, Canvas DO
 begin
   Brush.Color := Color;
   Pen.Color := Font.Color;
   SetPolyFillMode(Handle, WINDING);
   Polygon ([Point(Width DIV 2, 0),
     Point(Width DIV 5, Height),
     Point(Width, 2*(Height DIV 5)),
     Point(0, 2*(Height DIV 5)),
     Point(4*(Width DIV 5), Height)])
 end;
end;

---

← →
Serious Sam ©   (2004-05-24 20:38) [4]

Большое спасибо! Я спасен! :-)

---

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

Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх

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