paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 16:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

ApplicationProperties: fix setting ExceptionDialog in OI. Issue #0030210.

Browse Source 
git-svn-id: trunk@52756 -
This commit is contained in:
bart 2016-07-31 14:11:37 +00:00
parent 5f55a00ead
commit 33b941d450
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/applicationproperties.inc
View File

@ -71,6 +71,8 @@ procedure TApplicationProperties.SetExceptionDialog(
begin begin
if FExceptionDialogType=AValue then if FExceptionDialogType=AValue then
Exit; Exit;
FExceptionDialogType := AValue;
if not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.ExceptionDialog := AValue; Application.ExceptionDialog := AValue;
end; end;