How can I show a progressbar from 1..100%

[jorgo]

Hi,
I want to implement a progressbar.
I tested following:

************************
Comonents on Form:
- IWCGJQButton1: TIWCGJQButton;
- CGJQContainer: TIWCGJQRegion;

Progressbar on CGJQContainer:
IWCGJQProgressBar: TIWCGJQProgressBar;

************************
procedure TFORM_Login.IWCGJQButton1JQButtonOptionsClick(Sender: TObject; AParams: TStringList);
var
i : integer;

begin
for i := 1 to 100 do
begin
CGCallBackDisableAjaxResponse;
IWCGJQProgressBar.ResetJSonProps;
IWCGJQProgressBar.JQProgressBarOptions.Value:= i;
IWCGJQProgressBar.JQProgressBarOptions.CaptionType:= pbctPercentage;
IWCGJQProgressBar.JQProgressBarOptions.Animation.Enable:= False;
CGCallBackEnableAjaxResponse;
RenderRegionAsync(CGJQContainer, rramLazyLoadMethod, True);

Sleep(50);
end;
end;
************************
After 5 seconds the progressbar shows only the last value (100%).
How can I show all values from 1% to 100% ?

Kind regards

[Alexander Bulei]

Hi,

Little search, and: https://www.cgdevtools.com/cgforum/viewtopic.php?f=3&t=1464&p=7279&hilit=ProgressBar#p7275

Best Regards.

[jorgo]

Hi,

as alternative we found https://forums.embarcadero.com/thread.jspa?messageID=847524

But handling a separate thread is an extra effort.

Kind regards

[assapan]

With Delphi XE ( i don't remember from which version it starts) there is a much more easy way of handling temporary threads like

TTask.Run(
procedure
begin
// do what you have to do
end);

[assapan]

See an example of how to use it