Форум: "Основная";
Текущий архив: 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.033 c