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

SourceEditor: Hide hint, when mouse moves (even if outside IDE, or IDE is not active). Issue #0022016

Browse Source 
git-svn-id: trunk@37378 -
This commit is contained in:
martin 2012-05-21 15:59:20 +00:00
parent d4d543a5bb
commit a66b293fd8
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/sourceeditor.pp
View File

@ -662,6 +662,7 @@ type
// hintwindow stuff
FHintWindow: THintWindow;
FMouseHintTimer: TIdleTimer;
FMouseHideHintTimer: TTimer;
FHintMousePos: TPoint;
procedure Activate; override;
@ -706,6 +707,7 @@ type
procedure NotebookEndDrag(Sender, Target: TObject; X,Y: Integer);
// hintwindow stuff
procedure HintTimer(Sender: TObject);
procedure HideHintTimer(Sender: TObject);
procedure OnApplicationUserInput(Sender: TObject; Msg: Cardinal);
procedure ShowSynEditHint(const MousePos: TPoint);
@ -5190,6 +5192,15 @@ begin
OnTimer := @HintTimer;
end;
// Track mouse movements outside the IDE, if hint is visible
FMouseHideHintTimer := TTimer.Create(Self);
with FMouseHideHintTimer do begin
Name:=Self.Name+'_MouseHintHideTimer';
Interval := 500;
Enabled := False;
OnTimer := @HideHintTimer;
end;
// HintWindow
FHintWindow := THintWindow.Create(Self);
with FHintWindow do begin
@ -5229,6 +5240,7 @@ begin
Application.RemoveOnUserInputHandler(@OnApplicationUserInput);
FreeThenNil(FMouseHintTimer);
FreeThenNil(FMouseHideHintTimer);
FreeThenNil(FHintWindow);
FreeAndNil(FNotebook);
@ -6735,6 +6747,7 @@ begin
FHintMousePos := Mouse.CursorPos;
if LazarusHelp.CreateHint(FHintWindow,ScreenPos,BaseURL,AHint,HintWinRect) then
FHintWindow.ActivateHint(HintWinRect,aHint);
FMouseHideHintTimer.Enabled := True;
end;
procedure TSourceNotebook.HideHint;
@ -6745,6 +6758,8 @@ begin
FMouseHintTimer.AutoEnabled := false;
FMouseHintTimer.Enabled:=false;
end;
if FMouseHideHintTimer <> nil then
FMouseHideHintTimer.Enabled := False;
if SourceCompletionTimer<>nil then
SourceCompletionTimer.Enabled:=false;
if FHintWindow<>nil then begin
@ -6766,6 +6781,7 @@ var
Cur: TPoint;
OkX, OkY: Boolean;
begin
FMouseHideHintTimer.Enabled := False;
if (FHintWindow <> nil) and (FHintWindow.Visible) then begin
Cur := Mouse.CursorPos; // Desktop coordinates
OkX := ( (FHintMousePos.x <= FHintWindow.Left) and
@ -6802,8 +6818,10 @@ begin
(Cur.y < FHintMousePos.y + MaxJitter) and (Cur.y >= FHintWindow.Top - MaxJitter)
);
if (OkX and OkY) then
if (OkX and OkY) then begin
FMouseHideHintTimer.Enabled := True;
exit;
end;
end;
HideHint;
end;
@ -7759,6 +7777,17 @@ begin
ShowSynEditHint(MousePos);
end;
procedure TSourceNotebook.HideHintTimer(Sender: TObject);
begin
if (FHintWindow = nil) or (not FHintWindow.Visible) then begin
FMouseHideHintTimer.Enabled := false;
exit;
end;
if ComparePoints(FHintMousePos, Mouse.CursorPos) <> 0 then
MaybeHideHint;
end;
{------------------------------------------------------------------------------
procedure TSourceNotebook.OnApplicationUserInput(Sender: TObject;
Msg: Cardinal);