@@ -124,22 +136,22 @@
list_expand_keyboard_
-
+
list_close_keyboard_
- location.href='keyman:package_uninstall?id=';event.cancelBubble=true;return false;
+ location.href='keyman:package_uninstall?id=';event.cancelBubble=true;return false;
list_help_keyboard_
- location.href='keyman:package_welcome?id=';event.cancelBubble=true;return false;
+ location.href='keyman:package_welcome?id=';event.cancelBubble=true;return false;
list_close_keyboard_
- location.href='keyman:keyboard_uninstall?id=';event.cancelBubble=true;return false;
+ location.href='keyman:keyboard_uninstall?id=';event.cancelBubble=true;return false;
diff --git a/windows/src/global/delphi/general/UfrmScriptError.dfm b/windows/src/global/delphi/general/UfrmScriptError.dfm
index f33ac2a89c..706452ebad 100644
--- a/windows/src/global/delphi/general/UfrmScriptError.dfm
+++ b/windows/src/global/delphi/general/UfrmScriptError.dfm
@@ -73,7 +73,7 @@ object frmScriptError: TfrmScriptError
object chkTellKeymanSupport: TCheckBox
Left = 16
Top = 138
- Width = 185
+ Width = 225
Height = 17
Caption = 'Tell Keyman Support about this error'
Checked = True
diff --git a/windows/src/global/delphi/ui/UfrmWebContainer.dfm b/windows/src/global/delphi/ui/UfrmWebContainer.dfm
index 20f7765745..d8435dec0a 100644
--- a/windows/src/global/delphi/ui/UfrmWebContainer.dfm
+++ b/windows/src/global/delphi/ui/UfrmWebContainer.dfm
@@ -18,6 +18,7 @@ inherited frmWebContainer: TfrmWebContainer
Height = 286
Align = alClient
TabOrder = 0
+ Silent = False
OnBeforeNavigate2 = webBeforeNavigate2
OnDocumentComplete = webDocumentComplete
OnNewWindow3 = webNewWindow3
diff --git a/windows/src/global/delphi/ui/UfrmWebContainer.pas b/windows/src/global/delphi/ui/UfrmWebContainer.pas
index db0b47d569..91c300a3c7 100644
--- a/windows/src/global/delphi/ui/UfrmWebContainer.pas
+++ b/windows/src/global/delphi/ui/UfrmWebContainer.pas
@@ -79,7 +79,8 @@ type
private
FDialogName: WideString;
FXMLRenderers: TXMLRenderers;
- FXMLFileName: TTempFile; // I4181
+ FXMLFileName: TTempFile;
+ FNoMoreErrors: Boolean; // I4181
procedure WMUser_FormShown(var Message: TMessage); message WM_USER_FormShown;
procedure WMUser_FireCommand(var Message: TMessage); message WM_USER_FireCommand;
procedure WMUser_ContentRender(var Message: TMessage); message WM_USER_ContentRender;
@@ -390,9 +391,17 @@ var
FAborting: Boolean;
begin
FAborting := False;
+
+ if FNoMoreErrors then
+ begin
+ ScriptErrorAction := eaContinue;
+ Exit;
+ end;
+
case ShowScriptErrorDialog(Self, ErrorMessage, FTellKeymanSupport) of // I2992 // I3544
mrYes: ScriptErrorAction := eaContinue;
- mrNo: ScriptErrorAction := eaCancel;
+ mrCancel: begin ScriptErrorAction := eaContinue; FNoMoreErrors := True; end;
+ mrNo: ScriptErrorAction := eaCancel;
mrAbort: begin ScriptErrorAction := eaCancel; FAborting := True; end;
end;