Ёлка рисована в Delphi

[azemrug]

мне нужно зделать процедуру ёлка треугольной формы. Параметры процедуры x0,y0 начальноя точка основания ствола ёлки,высота ёлки,число секций на которые она делится,ширина основания самого большой секции.

[azemrug]

[IMG]C:\Documents and Settings\Inga\Desktop\11.03.10\elka .gif[/IMG]

[Google2010]

мне нужно зделать процедуру ёлка треугольной формы. Параметры процедуры x0,y0 начальноя точка основания ствола ёлки,высота ёлки,число секций на которые она делится,ширина основания самого большой секции.

C:\Documents and Settings\Inga\Desktop\11.03.10\elka .gif

эт конечно все интересно, а как она должна хоть выглядеть?

[ZARO]

Через Canvas делай, MoveTo(x,y) потом LineTo(x,y), и так постепенно нарисуешь

[azemrug]

так ано должно быти только без игрушки

[W0LF]

На тебе елку) Если что не нравиться - исправляй сам...

Begin
With Form1.Canvas do // к каждой последующей строке добавлять 
 Begin
 Pen.Width:=1; //установка полщины пера
 Pen.Color:=clGreen; //установка цвета пера
 Brush.Color:=clGreen; //установка цвета заливки
 {Рисование елки}
 PolyGon([Point(350,90),Point(330,90),Point(400,160),Point(380,160),
          Point(470,250),Point(130,250),Point(220,160),Point(200,160),
          Point(270,90),Point(250,90),Point(300,40)]);
 Pen.Color:=RGB(128,64,0); //установка цвета пера (оттенок коричневого)
 Brush.Color:=RGB(128,64,0); //установка цвета заливки (оттенок коричневого)
 {Рисование ствола}
 PolyGon([Point(350,251),Point(350,301),Point(250,301),Point(250,251)]);
 End;

[azemrug]

должен сделать процедуру

[azemrug]

спосибо!!
мне нужно сделать процедуру для рисования ёлки с различными разделами

[helpprogram]

Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.

[semenovmixan]

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru