Стр. 238 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
238
begin
//строим от правого горизонтального луча
a:=18;
//вычисление координат лучей и впадин
for i:=1 to 10 do
begin
//впадина
if i mod 2 =0 then
begin
p[i].X:=x0+round(r/3*cos(a*2*pi/360));
p[i].Y:=y0-round(r/3*sin(a*2*pi/360));
end
//луч
else
begin
p[i].X:=x0+round(r*cos(a*2*pi/360));
p[i].Y:=y0-round(r*sin(a*2*pi/360));
end;
//увеличение угла
a:=a+36;
end;
p[11].X:=p[1].X;
p[11].Y:=p[1].Y;
//отрисовка звезды
Form1.Canvas.Polyline(p);
end;
5. В инспекторе объектов для формы Form1 создайте обработчик события
OnCreate – процедуру FormCreate.
//происходит при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//инициализация генератора случайных чисел
randomize;
//заголовок формы
Form1.Caption:='Звезда';
//стиль границ формы
Form1.BorderStyle:=bsDialog;
//контекстное меню формы
Form1.PopupMenu:=PopupMenu1;
//начальное значение цвета звезды
Form1.Canvas.Pen.Color:=random(65536);
end;
6. В инспекторе объектов для формы Form1 создайте обработчик события