окружности,меняющие цвет в случ. порядке

[kate158]

на форме есть 25 окружностей (shape). как сделать что при запуске формы они должны в случайном порядке менять цвет?

[Serge_Bliznykov]

очевидно, что проходиться по шейпам в цикле, получать случайный цвет через Random и задавать каждой окружности полученный случайный цвет...

[kate158]

как выглядит цикл по шейпам?

[Аватар]

Так же, как и для других контролов

for i:=0 to ControlCount-1 do
  if Controls[i] is TShape then TShape(Controls[i]).что-то

[Serge_Bliznykov]

как выглядит цикл по шейпам?

ну, для этого нужно знать, как Вы их создавали, где они находятся (на форме, на панели), какие у них имена и т.д.

так, например (цикл переберёт вообще все имеющиеся на форме Shape-ы):

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  Randomize;
  for i := 0 to ComponentCount-1 do
    if Components[i] is TShape then
       TShape(Components[i]).Brush.Color := Random($7FFFFF)-$7FFF;
end;

ВНИМАНИЕ!!! Процедура получения случайного цвета ЗАВЕДОМА косячная - написал её "на коленке" просто чтобы проиллюстрировать свои слова. Использовать на практике НЕ РЕКОМЕНДУЮ!

[kate158]

мне нужно чтобы не цвет менялся, а менялся выбор шейпа. т.е. есть на форме все белые шейпы, через 5 секунд случайный стал желтым, затем белым; еще через 5 секунд следующий случайный стал желтым, затем белым и т.д.
как изменить код:

  private
   FShapes : array [1..30] of TShape;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i : integer;
begin
   i:=1+Random(30);
   FShapes[i].Color:=clYellow;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FShapes[1]:=Shape1;
   FShapes[2]:=Shape2;
   FShapes[3]:=Shape3;
   FShapes[4]:=Shape4;
   FShapes[5]:=Shape5;
   FShapes[6]:=Shape6;
   FShapes[7]:=Shape7;
   FShapes[8]:=Shape8;
   FShapes[9]:=Shape9;
   FShapes[10]:=Shape10;
   FShapes[11]:=Shape12;
   FShapes[12]:=Shape13;
   FShapes[13]:=Shape14;
   FShapes[14]:=Shape15;
   FShapes[15]:=Shape16;
   FShapes[16]:=Shape17;
   FShapes[17]:=Shape18;
   FShapes[18]:=Shape19;
   FShapes[19]:=Shape20;
   FShapes[20]:=Shape21;
   FShapes[21]:=Shape22;
   FShapes[22]:=Shape23;
   FShapes[23]:=Shape24;
   FShapes[24]:=Shape25;
   FShapes[25]:=Shape26;
   FShapes[26]:=Shape27;
   FShapes[27]:=Shape28;
   FShapes[28]:=Shape29;
   FShapes[29]:=Shape30;
   FShapes[30]:=Shape31;
end;

[Serge_Bliznykov]

во-первых, на создании формы (событие FormCreate) нужен вызов

Randomize;

для иницилизации генератора случайных чисел.

во-вторых,

  FShapes[10]:=Shape10;
   FShapes[11]:=Shape12;

Shape11 потерян не случайно?..

в-третьих, добавьте переменную, где Вы будете сохранять, какой Shape стал жёлтым. его делать белым. а новый случайный - жёлтым.

в коде это будет примерно так выглядеть:

 private
   FShapes : array [1..30] of TShape;
   FRandomYellowIndex : integer;
  public
.....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   FShapes[FRandomYellowIndex].Color:=clWhite;
   FRandomYellowIndex := Low(FShapes) + Random( High(FShapes) - Low(FShapes) + 1 );
   FShapes[FRandomYellowIndex].Color:=clYellow;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
   Randomize;
   FRandomYellowIndex := 1; {в начале у вас все шейпы белые. если захотите сделать при запуске один жёлтым, то не забудьте его номер присвоить переменной!}
   FShapes[1]:=Shape1;
   FShapes[2]:=Shape2;
....

p.s. теоретически может выпасть два раза подряд один и тот же случайный индекс. это легко отследить и предотвратить, если есть в этом необходимость...

[s-andriano]

Самый экономичный метод:
создать BMP в 256-цветном режиме, нарисовать окружности первыми 25-ю цветами, менять только первые 100 байт палитры (25 целых четырехбайтовых чисел по рандому в диапазоне 16777216).