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

IDE: fix regression: make code context hint window clickable

Browse Source 
git-svn-id: trunk@52561 -
This commit is contained in:
ondrej 2016-06-22 17:04:18 +00:00
parent 36b72c350c
commit ec0a83c728
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codecontextform.pas
View File

@ -41,7 +41,7 @@ uses
Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds, Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds,
BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool, BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool,
IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager, IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager,
SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts; SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts, LMessages;
type type
@ -89,6 +89,7 @@ type
protected protected
procedure Notification(AComponent: TComponent; Operation: TOperation); procedure Notification(AComponent: TComponent; Operation: TOperation);
override; override;
procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -367,6 +368,11 @@ begin
end; end;
end; end;
procedure TCodeContextFrm.WMNCHitTest(var Message: TLMessage);
begin
Message.Result := HTCLIENT;
end;
procedure TCodeContextFrm.CreateHints(const CodeContexts: TCodeContextInfo); procedure TCodeContextFrm.CreateHints(const CodeContexts: TCodeContextInfo);
function FindBaseType(Tool: TFindDeclarationTool; Node: TCodeTreeNode; function FindBaseType(Tool: TFindDeclarationTool; Node: TCodeTreeNode;