paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 00:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 52756 #33b941d450 from trunk:

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

git-svn-id: branches/fixes_1_6@52888 -
This commit is contained in:
maxim 2016-08-29 22:06:35 +00:00
parent 26047b704a
commit fa82812d16
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;