How to update the position of the TIWCGJQProgressBar
in IWCGJQFileUpload.JQFileUploadOptions.onComplete Event ?
- Code: Select all
procedure TFrom.IWCGJQFileUploadJQFileUploadOptionsComplete(Sender: TObject; AParams: TStringList);
begin
if IWCGJQFileUpload.FileNames.Count = fStoredCount then begin
IWCGJQProgressBar1.JQProgressBarOptions.Max := 4;
IWCGJQProgressBar1.JQProgressBarOptions.Value := 1;
{IWCGJQProgressBar1.AjaxReRender(false,true);} //->ProgressBar position refresh
FuncStep1();
IWCGJQProgressBar1.JQProgressBarOptions.Value := 2;
FuncStep2();
IWCGJQProgressBar1.JQProgressBarOptions.Value := 3;
FuncStep3();
IWCGJQProgressBar1.JQProgressBarOptions.Value := 4;
end;
end;
Best regards