From c43527063e36c67e69b891f1ccae9543dcfe2ff2 Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Thu, 1 Nov 2018 19:22:10 +0100
Subject: [PATCH] Further work on issue #770 * Removed no longer used protected
 property TVirtualTreeHintWindow.HintData * It does not seem to be necessery
 to override TVirtualTreeHintWindow.WMEraseBkgnd()

---
 Source/VirtualTrees.pas | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
index 63157d3e0..bccec4ca0 100644
--- a/Source/VirtualTrees.pas
+++ b/Source/VirtualTrees.pas
@@ -864,12 +864,9 @@   TVirtualTreeHintWindow = class(THintWindow)
     FHintData: TVTHintData;
     FTextHeight: Integer;
     procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
-    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
   strict protected
     procedure CreateParams(var Params: TCreateParams); override;
     procedure Paint; override;
-
-    property HintData: TVTHintData read FHintData;
   public
     function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
     function IsHintMsg(var Msg: TMsg): Boolean; override;
@@ -5581,17 +5578,6 @@ procedure TVirtualTreeHintWindow.CMTextChanged(var Message: TMessage);
   // swallow this message to prevent the ancestor from resizing the window (we don't use the caption anyway)
 end;
 
-//----------------------------------------------------------------------------------------------------------------------
-
-procedure TVirtualTreeHintWindow.WMEraseBkgnd(var Message: TWMEraseBkgnd);
-
-// The control is fully painted by own code so don't erase its background as this causes flickering.
-
-begin
-  Message.Result := 1;
-end;
-
-
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TVirtualTreeHintWindow.CreateParams(var Params: TCreateParams);