From 4101822a9daebf116b9d9c9eb8e79cbbdf3c0682 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Fri, 17 Oct 2014 19:17:49 +0000
Subject: [PATCH] LCL, fixed typo in TApplicationProperties field

git-svn-id: trunk@46582 -
---
 lcl/forms.pp                          | 4 ++--
 lcl/include/applicationproperties.inc | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 885695dd71..8884b6aeb5 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -1569,7 +1569,7 @@ type
   TApplicationProperties = class(TLCLComponent)
   private
     FCaptureExceptions: boolean;
-    FExceptionDialotType: TApplicationExceptionDlg;
+    FExceptionDialogType: TApplicationExceptionDlg;
     FHelpFile: string;
     FHint: string;
     FHintColor: TColor;
@@ -1639,7 +1639,7 @@ type
   published
     property CaptureExceptions: boolean read FCaptureExceptions
                                         write SetCaptureExceptions default True;
-    property ExceptionDialog: TApplicationExceptionDlg read FExceptionDialotType
+    property ExceptionDialog: TApplicationExceptionDlg read FExceptionDialogType
                                                        write SetExceptionDialog default aedOkCancelDialog;
     property HelpFile: string read FHelpFile write SetHelpFile;
     property Hint: string read FHint write SetHint;
diff --git a/lcl/include/applicationproperties.inc b/lcl/include/applicationproperties.inc
index 02e10ad1a1..66fe12de34 100644
--- a/lcl/include/applicationproperties.inc
+++ b/lcl/include/applicationproperties.inc
@@ -69,7 +69,7 @@ end;
 procedure TApplicationProperties.SetExceptionDialog(
   AValue: TApplicationExceptionDlg);
 begin
-  if FExceptionDialotType=AValue then
+  if FExceptionDialogType=AValue then
     Exit;
   if not (csDesigning in ComponentState) then
     Application.ExceptionDialog := AValue;