From fa82812d16734166dc56c70f8fec2315f38941f8 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 29 Aug 2016 22:06:35 +0000
Subject: [PATCH] Merged revision(s) 52756 #33b941d450 from trunk:
 ApplicationProperties: fix setting ExceptionDialog in OI. Issue #0030210.
 ........

git-svn-id: branches/fixes_1_6@52888 -
---
 lcl/include/applicationproperties.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/applicationproperties.inc b/lcl/include/applicationproperties.inc
index 66fe12de34..013429e145 100644
--- a/lcl/include/applicationproperties.inc
+++ b/lcl/include/applicationproperties.inc
@@ -71,6 +71,8 @@ procedure TApplicationProperties.SetExceptionDialog(
 begin
   if FExceptionDialogType=AValue then
     Exit;
+  FExceptionDialogType := AValue;
+
   if not (csDesigning in ComponentState) then
     Application.ExceptionDialog := AValue;
 end;