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

ideintf: hide HTML hint window with ESC key. Issue #30266, patch by Cyrax

Browse Source 
git-svn-id: trunk@52501 -
This commit is contained in:
ondrej 2016-06-13 12:20:35 +00:00
parent 48fe37a204
commit baf3f396bf
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/ideintf/idehelpintf.pas
View File

@ -140,9 +140,14 @@ type
function(Owner: TComponent): TAbstractIDEHTMLProvider; function(Owner: TComponent): TAbstractIDEHTMLProvider;
{ TSolidHintWindowRendered }
TSolidHintWindowRendered = class(THintWindowRendered) TSolidHintWindowRendered = class(THintWindowRendered)
protected protected
procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST; procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public
constructor Create(AOwner: TComponent); override;
end; end;
{ THintWindowManager } { THintWindowManager }
@ -207,6 +212,22 @@ begin
Message.Result := HTCLIENT; Message.Result := HTCLIENT;
end; end;
procedure TSolidHintWindowRendered.KeyDown(var Key: Word; Shift: TShiftState);
Var
AOldKey : Word;
begin
AOldKey := Key;
inherited KeyDown(Key, Shift);
if AOldKey=VK_ESCAPE then
Hide;
end;
constructor TSolidHintWindowRendered.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
KeyPreview := True;
end;
{ THelpDBIRegExprMessage } { THelpDBIRegExprMessage }
constructor THelpDBIRegExprMessage.Create(TheNode: THelpNode; constructor THelpDBIRegExprMessage.Create(TheNode: THelpNode;