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

LCL, fixed typo in TApplicationProperties field

Browse Source 
git-svn-id: trunk@46582 -
This commit is contained in:
jesus 2014-10-17 19:17:49 +00:00
parent 7f23c55be1
commit 4101822a9d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/forms.pp
View File

@ -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;

2
lcl/include/applicationproperties.inc
View File

@ -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;