Делфи,полярная роза

[Ильгизуля]

Здравствуйте!
Помогите,пожалуйста разобраться: необходимо вывести на поверхность граф.объекта полярные розы.
написала программу(не совсем корректно),но в ней полярные розы выводятся лишь при нажатии на кнопочку, а необходимо, чтобы они выводились при "ПУСК" и завершались при "СТОП".
Благодарю заранее!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,m,k,x1,y1,gm,cd,l,c,x0,y0,ll:integer;
  h,x,y,a,b,z,f:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 randomize;
 m:=10;
  a:=0;
  b:=2*pi;
for i:=1 to 10 do
  l:=random(5)+1;
  ll:=random(3)+10;
  x0:=random(Width+10);
  y0:=random(Height+30);
  c:=rgb(random(255),random(255),random(255));
  h:=(b-a)/1000;
  for i:=1 to 1000 do
  begin
  f:=a+(i*h);
  z:=ll*(sin(l*f)*cos(l*f));
  x:=z*cos(f);
  y:=z*sin(f);
  x1:=trunc(x0+x*m);
  y1:=trunc(y0-y*m);
  form1.Canvas.Pen.Color:=c;
  form1.Canvas.Ellipse(x1+10,y1,x1,y1+10)
end;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[hon]

Код оформил!

[BDA]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Start1: TButton;
    Stop1: TButton;
    Timer1: TTimer;
    procedure StartClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartClick(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Interval := 100;
  randomize;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i, k, x1, y1, gm, cd, l, c, x0, y0, ll: integer;
  h, x, y, z, f: real;
const
  m = 10;
  a = 0;
  b = 2 * pi;
begin
  for i := 1 to 10 do
    l := random(5) + 1;
  ll := random(3) + 10;
  x0 := random(Width + 10);
  y0 := random(Height + 30);
  c := rgb(random(255), random(255), random(255));
  h := (b - a) / 1000;
  for i := 1 to 1000 do
  begin
    f := a + (i * h);
    z := ll * (sin(l * f) * cos(l * f));
    x := z * cos(f);
    y := z * sin(f);
    x1 := trunc(x0 + x * m);
    y1 := trunc(y0 - y * m);
    Form1.canvas.Pen.Color := c;
    Form1.canvas.Ellipse(x1 + 10, y1, x1, y1 + 10)
  end;
end;

end.

На форму киньте 2 кнопки и таймер. Все события присоедините к нужным кнопкам/таймеру/форме.

UPD
Пожалуйста

[Ильгизуля]

Спасибо большое!!!

[Ильгизуля]

а как можно сделать так, чтобы розочки выводились по спирали?

[BDA]

Добавить уравнение спирали:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t: real;

const
  x00 = 200;
  y00 = 200;
  a1: real = 30;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Interval := 100;
  t := 0;
  randomize;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i, x1, y1, l, c, ll: integer;
  h, x, y, z, f: real;
const
  m = 10;
  a = 0;
  b = 2 * pi;
begin
  t := t + pi / 18; // 10 градусов
  l := random(5) + 1;
  ll := random(3) + 10;
  c := rgb(random(255), random(255), random(255));
  h := (b - a) / 1000;
  for i := 1 to 1000 do
  begin
    f := a + (i * h);
    z := ll * (sin(l * f) * cos(l * f));
    x := z * cos(f);
    y := z * sin(f);
    x1 := x00 + trunc(x * m + a1 * t * cos(t));
    // включает уравнение архимедовой спирали
    y1 := y00 + trunc(-y * m + a1 * t * sin(t));
    Form1.canvas.Pen.Color := c;
    Form1.canvas.Ellipse(x1 + 10, y1, x1, y1 + 10)
  end;
end;

end.

UPD
Пожалуйста

[Ильгизуля]

Как красиво!!!Спасибо, большое!!!!

[Ильгизуля]

Здравствуйте!! Еще один вопрос насчет этой программы: как можно сделать так , чтобы розочки рисовались точками. Применила Pixels, но вроде ничего не получается((((

[s-andriano]

А что значит "рисовались точками"?
На растровом устройстве любое изображение состоит из пикселей, т.е. точек.
А на векторном сама по себе точка никак не отображается.

[Utkin]

Возможно ТС имеет ввиду, что они выводятся слишком быстро. В смысле не виден сам момент рисования.