From 432f7cb316d16b65fbd0cd476cdbe163af45cdce Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 5 Jun 2016 01:58:05 +0000
Subject: [PATCH] IDEIntf: use solid hint window for IDE source editor hint.

git-svn-id: trunk@52441 -
---
 components/ideintf/idehelpintf.pas | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/components/ideintf/idehelpintf.pas b/components/ideintf/idehelpintf.pas
index 1a90ee1376..587f855f4e 100644
--- a/components/ideintf/idehelpintf.pas
+++ b/components/ideintf/idehelpintf.pas
@@ -18,7 +18,7 @@ interface
 
 uses
   Classes, SysUtils, types, LCLProc, Forms, Controls, HelpIntfs, LazHelpIntf,
-  TextTools;
+  LMessages, LCLType, TextTools;
 
 type
   { THelpDBIRegExprMessage
@@ -140,6 +140,11 @@ type
     function(Owner: TComponent): TAbstractIDEHTMLProvider;
 
 
+  TSolidHintWindowRendered = class(THintWindowRendered)
+  protected
+    procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
+  end;
+
   { THintWindowManager }
 
   THintWindowManager = class
@@ -195,6 +200,13 @@ var
 
 implementation
 
+{ TSolidHintWindowRendered }
+
+procedure TSolidHintWindowRendered.WMNCHitTest(var Message: TLMessage);
+begin
+  Message.Result := HTCLIENT;
+end;
+
 { THelpDBIRegExprMessage }
 
 constructor THelpDBIRegExprMessage.Create(TheNode: THelpNode;
@@ -289,7 +301,7 @@ function THintWindowManager.HintRenderWindow: THintWindowRendered;
 begin
   if FHintRenderW = nil then
   begin
-    FHintRenderW := THintWindowRendered.Create(Nil);
+    FHintRenderW := TSolidHintWindowRendered.Create(Nil);
     FHintRenderW.AutoHide := FAutoHide;
     FHintRenderW.HideInterval := FHideInterval;
     FHintRenderW.OnMouseDown := FOnMouseDown;