Помогите с графикой (Простой вопрос)

[niva622]

Например как создать картинку в виде звезды, но несоздовая Image;Как создать картинку любой формы с кодом Delphi.

[Virtson]

картинку любой формы ?
и что имеено ты подразумеваешь под картинкой
(залитый контур или кусок рисунка)..

[niva622]

Картинку в Форме звезды (залитую красным цветом).Подскажи пожалуйста.Или простой крест.

[AVer]

Картинку в Форме звезды (залитую красным цветом).Подскажи пожалуйста.Или простой крест.

Ну тут стандартные графические функции. Пример креста:

Procedure Krest(X,Y:Integer);
Begin
Form1.Canvas.MoveTo(X,Y);
Form1.Canvas.LineTo(X+10,Y);
Form1.Canvas.LineTo(X+10,Y+10);
Form1.Canvas.LineTo(X+20,Y+10);
Form1.Canvas.LineTo(X+20,Y+20);
Form1.Canvas.LineTo(X+10,Y+20);
Form1.Canvas.LineTo(X+10,Y+30);
Form1.Canvas.LineTo(X,Y+30);
Form1.Canvas.LineTo(X,Y+20);
Form1.Canvas.LineTo(X-10,Y+20);
Form1.Canvas.LineTo(X-10,Y+10);
Form1.Canvas.LineTo(X,Y+10);
Form1.Canvas.LineTo(X,Y);
End;

[Virtson]

 setlength(a,8) ;
a[0].x:=x0;  a[0].y:=y0-20;
a[1].x:=x0+5; a[1].y:=y0-5;
a[2].x:=x0+20; a[2].y:=y0;
a[3].x:=x0+5; a[3].y:=y0+5;
a[4].x:=x0; a[4].y:=y0+20;
a[5].x:=x0-5; a[5].y:=y0+5;
a[6].x:=x0-20;  a[6].y:=y0;
a[7].X:=x0-5;     a[7].Y:=y0-5;
// остается вызвать :
with form1.Canvas do
begin
  pen.Color:=clblack;
  brush.Color:=clRed;
  polygon(a);
end;

[niva622]

Мужики я понимаю вам это всё очень просто а я непонял:Вопрос про крест:Ты немог бы мне скинуть готовый код Delphi (Крест).Пожалуйста я очень хочу научиться многому в Delphi.Я мучился минут 40 нечего неполучилось.

[Virtson]

да без базару !