Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: У меня есть программа, которая рисует круг и мне с его помощью нужно нарисовать пятиконечную звезду(это пятиугольник, в котором соединены внутренние точки) с бликом(просто в середине звезды должен быть маленький круг)? Как это написать?

Приложение:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Math; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Button2: TButton; ColorDialog1: TColorDialog; //procedure FormPaint(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyCanvas=class(TCanvas) procedure Circle(Rad,X,Y:integer); procedure Square(Size,X,Y:integer); end; var Form1: TForm1; ColorRomb: TColor; implementation {$R *.dfm} { TMyCanvas } procedure TMyCanvas.Circle(Rad, X, Y: integer); begin Ellipse(X-Rad,Y-Rad,X+Rad,Y+Rad); end; procedure TMyCanvas.Square(Size, X, Y: integer); begin Rectangle(X,Y,X+Size,Y-Size); end; {procedure TForm1.FormPaint(Sender: TObject); var MC:TMyCanvas; begin MC:=TMyCanvas.Create; MC.Handle:=Form1.Canvas.Handle; MC.Circle(50,200,100); MC.Square(50,100,100); MC.Pen.Width:=3; MC.Pen.Color:=clRed; MC.MoveTo(10,10); MC.LineTo(200,10); MC.Free; end;} procedure TForm1.Button1Click(Sender: TObject); var rl:TRect; rad:integer; x1,y1:integer; lx,ly:integer; xs,ys:integer; begin Canvas.Brush.Color:=Form1.Color; Canvas.FillRect(Canvas.ClipRect); if (Trim(edit1.Text)='') or (Trim(edit2.Text)='') or (Trim(edit3.Text)='') then begin ShowMessage('Введите данные!'); Exit; end; x1:=StrToInt(edit1.Text); y1:=StrToInt(edit2.Text); rad:=StrToInt(edit3.Text); Canvas.Pen.Color:=ColorRomb; if (x1>=ClientWidth) or (y1>=ClientHeight) or ((ClientWidth-x1)<lx) then begin ShowMessage('Введите корректные данные'); edit1.SetFocus; exit; end; Canvas.Ellipse(x1-rad,y1-rad, x1+rad, y1+rad); //Чертит круг xs:=lx div 2; ys:=ly div 2; {Canvas.LineTo(x1+rad+trunc(rad*(sin(36*pi/180))),y1+rad); Canvas.MoveTo(x1,y1); Canvas.LineTo(x1,y1+trunc(rad*cos(72*pi/360))); Canvas.LineTo(x1+xs,y1-trunc(rad*sin(72*pi/360))); Canvas.LineTo(x1+lx,y1-trunc(rad*sin(72*pi/360))); Canvas.LineTo(x1+xs,y1+trunc(rad*cos(72*pi/360))); Canvas.LineTo(x1,y1+trunc(rad*cos(72*pi/360)));} Canvas.Brush.Color:=ColorRomb; Canvas.FloodFill(x1+xs,y1-ys,clGreen,fsBorder); end; procedure TForm1.Button2Click(Sender: TObject); begin if ColorDialog1.Execute then begin ColorRomb:=ColorDialog1.Color; Button1.Click; end; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key in ['0'..'9',#8]=false) then Key:=#0; end; procedure TForm1.FormCreate(Sender: TObject); begin ColorRomb:=clGreen; end; end.

Состояние: Консультация закрыта