Помогите с прогой "Бросок игральной кости"

[Gorec]

У меня есть программа работающая через ImageList. Мне нужно сделать так, чтобы при создании кости её размер можно было изменять! Можно ли применить изменение размера к компоненту ImageList или же нужно как-то объеденить несколько компонентов, или ещё каким-то образом??? Мож у кого есть готовая прога??? Помогите пожалуйста чем можете бо курсак горит

Вот исходник программы

[Карась]

Непонял. Зачем менять размер кости?
Какое вообщ задание?

[Gorec]

У меня задание такое! Чтобы в игре менялся размер игральной кости!

[Карась]

Блин.. ну и дурной компанент.. После смены некоторых значений все картинки кудато пропадали.... Незнаю с чем связанно, ну лучше обходиться без нево...

За размер отвечает строка UnDe.Taille := 40;
Это яметодом тыка

[eoln]

Не совсем конечно рационально, но можно так.
Параметр, помечанный комментом можно задавать через edit.

procedure TMainForm.BCreerClick(Sender: TObject);
var
  Index : Integer;
begin
  UnDe := TDice.Create(self);
  UnDe.Parent := Pano;
  UnDe.Tempo  := 5;
  UnDe.Incan  := 5;
  UnDe.Top    := 30;
  UnDe.Left   := 20;
  UnDe.Taille := 80; //размер кости
  UnDe.fPiste := Prec;
  UnDe.Tag    := 0;      
  for Index := 1 to 6 do
  begin
    Listima.GetBitmap(Index,Dima);
    UnDe.ChargerGraphic(Index,Dima);
  end;
  BCreer.Enabled := false;
end;

[Gorec]

Карась, а ты не знаешь какой-либо другой компонент, чтобы по типу imagelist работал, или вообще его другой процедурой как-нить заменить??? Скорей всего нужно ещё одну кнопку, которая будет менять значение строки UnDe.Taille := 40;. Заранее благодарен!

P.S. Спасибо что хоть потыкал! А то мы с другом чёт там и не трогали те значения!

[Gorec]

eoln, можешь создать пример с edit и прислать код пр-мы. Спасибо за помощь!

[Карась]

А что там сложново..
Кидаем на форму едит.

procedure TMainForm.LancerClick(Sender: TObject);
var  nbr : byte;     // nbre de rotations
begin
  UnDe.Taille := StrToInt(Edit1.Text); // Дописать
  if UnDe = nil then exit;
  nbr := Random(10)+10;
  ..........

  ........
  nDe.Incan  := 5;
  UnDe.Top    := 30;
  UnDe.Left   := 20;
  UnDe.Taille := StrToInt(Edit1.Text); // дописать
  UnDe.fPiste := Prec;
  UnDe.Tag    := 0;
  .........

Карась, а ты не знаешь какой-либо другой компонент, чтобы по типу imagelist работал, или вообще его другой процедурой как-нить заменить???

незнаю, яб обошёлся бы без нево заюзав таймер...

[Gorec]

Карась, огромное спасибо за Edit!!!!! А каким образом ты хотел заюзать таймер и 6 имиджей. И не мог бы ты помочь мне разобраться с новыми классами в этой проге. А можно ли как-то упростить эту прогу бо в юните там код просто огромный!