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.
- procedure TformThreaded.IWTimer1Timer(Sender: TObject);
- begin
- if FThread <> nil then begin
- IWProgressBar1.Percent := FThread.PercentComplete;
- lablPercentComplete.Caption := ‘Percent Complete: ‘ + IntToStr(IWProgressBar1.Percent) + ‘%’;
- if FThread.Terminated then begin
- linkStopClick(Sender);
- end;
- end;
- end;