Task Dialog - AV

FNC TMS FNC UI Pack
1

The code below gives an AV on IsOpen := False in Android. After replacings it with ClosePopUp it's working fine.

procedure TTMSFNCTaskDialogForm.BtnClickHandler(Sender: TObject);
begin
ModalResult := (Sender as TTMSFNCCustomTaskDialogButton).Tag;
if Assigned(FTaskDialog) then
begin
if Assigned(FTaskDialog.OnDialogButtonClick) then
FTaskDialog.OnDialogButtonClick(FTaskDialog, (Sender as TTMSFNCCustomTaskDialogButton).Tag);
DoResult(ModalResult);
end;

{$IFDEF FMXMOBILE}
ClosePopUp;
// IsOpen := False;
{$ENDIF}
end;

3

Hi,

What are your steps to reproduce this? Do you just drop the component onto the form or do you create it programmatically? Which IDE and Android version are you using?

4

Delphi 11.1 + patch
Android 10

Component on the form.

procedure TOrderPickingForm.AllesVerwerkt;
begin
PlayAudio(mmrError);

ourTaskDialog.Icon := tdiInformation;
ourTaskDialog.Instruction := 'Alle bestellingen zijn verwerkt voor:';
ourTaskDialog.Content := PickingWijzeButton.Text;

{$IFDEF ANDROID}
ourTaskDialog.Execute(
procedure(ModalResult: TModalResult)
begin
try
finally
end;
end);
{$ELSE}
ourTaskDialog.Execute;
{$ENDIF}
end;

After clicking Ok the applications closes because of AV on Android (which closes the application)

5

Thank you. We've applied an improvement. The next update will contain the changes.