progressBar(накопление по одному кубику)

[Siluet]

Здрасьте..
RLed1 тоже самое что и progressBar
у меня в progressBar за раз увеличивает на 5 кубиков, а как сделать так чтобы увеличивалось по одному и плавно?
Ы

  with zastavka do begin
   Timer1.Enabled:=true;

   GradText1.Width:=290;
   GradText1.Caption:='Открытие программы';
   GradText1.Update;
   for i:=1 to 50 do
   RLed1.Position:=RLed1.Position+1;
    Sleep(500);
     update;
  end;

[mihali4]

Задайте параметр МАХ не 100, а ваше максимальное значение.
Судя по вопросу - 20. Вернее, в пять раз меньше того, что у вас установлено...

[Siluet]

with zastavka do begin
   Timer1.Enabled:=true;

   GradText1.Width:=290;
   GradText1.Caption:='Открытие программы';
   GradText1.Update;
   for i:=1 to 50 do
   RLed1.Position:=RLed1.Position+1;
    Sleep(500);
     update;
  end;

этот цикл у меня повторяется 9 раз.. максимальное значение стоит 450

[BOBAH13]

Меня вот смущает один фактор, ширина прогрессбара разве этот фактор не влияет на то, в каком отношении (сколько "кубиков") будет рисоваться линия загрузки ?

[Siluet]

йа не знаю

21:17

Подскажите народ! как мне быть ?

21:23

Сообщение от mihali4

Вернее, в пять раз меньше того, что у вас установлено...

это ж ничего не даст.. он прост быстро загрузиться и всё..

21:30

with zastavka do begin
   Timer1.Enabled:=true;

   GradText1.Width:=290;
   GradText1.Caption:='Открытие программы';
   GradText1.Update;
   for i:=1 to 50 do begin  Sleep(5);
   RLed1.Position:=RLed1.Position+1;end;
        update;
  end;

Все сделал.. вот код..

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор