From: Dmitry D. Chernov <blackdoomer@yandex.ru>
Date: Thu, 28 Sep 2017 16:16:18 +0000 (+1000)
Subject: Set Delphi-like default exception handler (without 'Cancel' button)
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=438122dd9fd890a6eb4692a1bc07e8bd498fb109;p=d2df-editor.git

Set Delphi-like default exception handler (without 'Cancel' button)
---

diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index f1a9c30..91df01a 100644
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -52,6 +52,7 @@ uses
 {$R *.res}
 
 begin
+  Application.ExceptionDialog := aedOkMessageBox;
   Application.Initialize();
 
   Application.CreateForm(TMainForm, MainForm);