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

IDEIntf: use solid hint window for IDE source editor hint.

Browse Source 
git-svn-id: trunk@52441 -
This commit is contained in:
ondrej 2016-06-05 01:58:05 +00:00
parent 95bf15eea3
commit 432f7cb316
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/ideintf/idehelpintf.pas
View File

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