TIWProgressBar

TIWProgressBar

TIWProgressBar

The TIWProgressBar is the IntraWeb equivalent of the TProgressBar from VCL.

TIWProgressBar = class(TIWCustomControl)

Properties

property BGColor: TIWColor

Use this property to set the background color of the control.

property Percent: Integer;

Use this property to indicate the current percentual shown in the progress bar. The value goes from 0 to 100.

property ShowText: Boolean;

Use this property to indicate if the current Percent value will be shown inside the control’s area.

  1. procedure TformThreaded.IWTimer1Timer(Sender: TObject);
  2. begin
  3.   if FThread <> nil then begin
  4.     IWProgressBar1.Percent := FThread.PercentComplete;
  5.     lablPercentComplete.Caption := ‘Percent Complete: ‘ + IntToStr(IWProgressBar1.Percent) + ‘%’;
  6.     if FThread.Terminated then begin
  7.       linkStopClick(Sender);
  8.     end;
  9.   end;
  10. end;