Hello,
First of all congrats for this excellent component!
There is a little bug which occurs when creating TfgProgressDialog/TfgActivityDialog after using a MessageDlg, the progress dialog / activity dialog appears for a second then disappears.
here a sample of code:
if not m_obtMgr.IsBLEEnabled then
begin
DoShowMessage(siLang1.GetText('RS_OperationAborted') + #13 + siLang1.GetText('RS_BluetoothDisabled'));
Exit;
end;
gDialogStatus := -1;
MessageDlg(siLang1.GetText('RS_FMWakeUpAllConfirm'), TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
procedure (const AResult: TModalResult)
begin
case AResult of
mrYes : gDialogStatus := 0;
else gDialogStatus := 1;
end;
end);
while (gDialogStatus < 0) do StartYield;
if gDialogStatus = 0 then
begin
gProgressDialog := TfgProgressDialog.Create(self);
gProgressDialog.Title := siLang1.GetText('RS_dialogWakeUpInProgress');
gProgressDialog.Message := siLang1.GetText('RS_DialogPleaseWait');
gProgressDialog.Theme := TfgDialogTheme.Dark;
gProgressDialog.Cancellable := True;
gProgressDialog.OnCancel := AdvCancelButtonClick;
gProgressDialog.Kind := TfgProgressDialogKind.Determinated;
gProgressDialog.ResetProgress;
gProgressDialog.Max := round(Duration/1000);
gProgressDialog.show;
WkUpTimer.OnTimer := OnWkUpTimer;
WkUpTimer.Interval := 1000;
WkUpTimer.Enabled := true;
while (gProgressDialog.Progress < gProgressDialog.Max) do
startYield;
WkUpTimer.Enabled := false;
gProgressDialog.Hide;
ResetScan;
etc....
