From b56160fe1328efad54caf1f86e8307ecf28688b8 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 6 Feb 2012 07:58:27 +0000
Subject: [PATCH] lcl: cleanup hintwindow

git-svn-id: trunk@35171 -
---
 lcl/include/hintwindow.inc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc
index 1d9ebfa98f..f6db3e655b 100644
--- a/lcl/include/hintwindow.inc
+++ b/lcl/include/hintwindow.inc
@@ -41,6 +41,7 @@ begin
   with GetControlClassDefaultSize do
     SetInitialBounds(0, 0, CX, CY);
   FHideInterval := 3000;
+  FAutoHide := False;
   FAutoHideTimer := TCustomTimer.Create(self);
   FAutoHideTimer.Interval := HideInterval;
   FAutoHideTimer.Enabled := False;
@@ -56,7 +57,7 @@ end;
 procedure THintWindow.SetHideInterval(Value : Integer);
 Begin
   FHideInterval := Value;
-  if FAutoHideTimer<>nil then
+  if Assigned(FAutoHideTimer) then
     FAutoHideTimer.Interval := FHideInterval;
 end;
 
@@ -126,13 +127,13 @@ end;
 procedure THintWindow.SetAutoHide(Value : Boolean);
 Begin
   FAutoHide := Value;
-  if not (value) and (FAutoHideTimer<>nil) then
+  if not Value and Assigned(FAutoHideTimer) then
     FAutoHideTimer.Enabled := False;
 end;
 
 procedure THintWindow.AutoHideHint(Sender : TObject);
 begin
-  if FAutoHideTimer <> nil then
+  if Assigned(FAutoHideTimer) then
     FAutoHideTimer.Enabled := False;
   if Visible then
     Visible := False;