From 4d405f5f01a96d688bf667deb72b276129af64f5 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sat, 9 Jul 2016 06:15:13 +0000
Subject: [PATCH] lcl: fix typo

git-svn-id: trunk@52651 -
---
 lcl/comctrls.pp            | 2 +-
 lcl/include/tabcontrol.inc | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 81f9db0ae2..c9e3d2c308 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -713,7 +713,7 @@ type
 
   TNoteBookStringsTabControl = class(TPageControl) // TCustomTabControl, TODO TCustomTabControl, and fix all widgetsets
   protected
-    FHandelCreated: TNotifyEvent;
+    FHandleCreated: TNotifyEvent;
     procedure CreateHandle; override;
     class procedure WSRegisterClass; override;
   end;
diff --git a/lcl/include/tabcontrol.inc b/lcl/include/tabcontrol.inc
index 8f302ef39b..24843c4ea0 100644
--- a/lcl/include/tabcontrol.inc
+++ b/lcl/include/tabcontrol.inc
@@ -144,8 +144,8 @@ end;
 procedure TNoteBookStringsTabControl.CreateHandle;
 begin
   inherited CreateHandle;
-  if FHandelCreated <> nil then
-    FHandelCreated(self);
+  if FHandleCreated <> nil then
+    FHandleCreated(self);
 end;
 
 class procedure TNoteBookStringsTabControl.WSRegisterClass;
@@ -291,7 +291,7 @@ begin
   FNoteBook.OnGetImageIndex := @NBGetImageIndex;
   FNoteBook.OnChanging := @NBChanging;
   FNoteBook.OnChange := @NBPageChanged;
-  TNoteBookStringsTabControl(FNoteBook).FHandelCreated := @NBHandleCreated;
+  TNoteBookStringsTabControl(FNoteBook).FHandleCreated := @NBHandleCreated;
   TabControlBoundsChange;
 end;