[GrabbeR]

Добрый день, форумчане.
Как сделать, чтобы по указанному числу секунд в SpinEdit заполнялся Gauge?

[Alegun]

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

...Как сделать, чтобы по указанному числу секунд в SpinEdit заполнялся Gauge?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Gauge1.AddProgress(1);
 if Gauge1.Progress = SpinEdit1.Value then
  Timer1.Enabled:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Gauge1.MaxValue:= SpinEdit1.Value;
 Timer1.Interval:= 1000;
 Timer1.Enabled:= true;
end;

[GrabbeR]

А чтобы шаг = 1%? Получается прогресс скачет кусками большими.

[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=False;
  Timer1.Interval:=50;
  Gauge1.MinValue:=0;
  Gauge1.MaxValue:=MulDiv(SpinEdit1.Value, 1000, Timer1.Interval);
  Gauge1.Progress:=0;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Gauge1.AddProgress(1);
  if Gauge1.Progress=Gauge1.MaxValue then Timer1.Enabled:=False;
end;

[GrabbeR]

Оно, только почему-то по окончании интервала в 10 секунд прогресс только на 80 с чем-то %.