summaryrefslogtreecommitdiff
path: root/docview/src/frm_main.pas
diff options
context:
space:
mode:
Diffstat (limited to 'docview/src/frm_main.pas')
-rw-r--r--docview/src/frm_main.pas3
1 files changed, 2 insertions, 1 deletions
diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index 00a192ea..27f2c51a 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -306,7 +306,7 @@ const
procedure TMainForm.MainFormException(Sender: TObject; E: Exception);
begin
- TfpgMessageDialog.Critical('An unexpected error occurred.', E.Message);
+ fpgApplication.ShowException(E);
end;
procedure TMainForm.lbIndexKeyPress(Sender: TObject; var KeyCode: word;
@@ -1747,6 +1747,7 @@ begin
// Now load the various parts of the file(s)
// into the user interface
DisplayFiles( tmpHelpFiles, FirstContentsNode );
+ tmpHelpFiles.Free;
//if CmdLineParameters.getHelpManagerFlag then
// ShowLeftPanel := Settings.ShowLeftPanel_Help