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

LCL: Reshow an application hint correctly. Issue #37053

Browse Source 
git-svn-id: branches/fixes_2_0@63474 -
This commit is contained in:
mattias 2020-06-28 16:59:33 +00:00
parent 824f8ec4a3
commit 2d62ff2977
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/application.inc
View File

@ -211,7 +211,7 @@ begin
if (FHintTimerType = ahttNone) or (FHintWindow = nil) or not FHintWindow.Visible then
StartHintTimer(HintPause, ahttShowHint);
end;
ahttShowHint:
ahttShowHint, ahttReshowHint:
StartHintTimer(HintPause, ahttShowHint);
end;
end
@ -765,10 +765,8 @@ procedure TApplication.DoOnMouseMove;
var
CursorPos: TPoint;
begin
if not GetCursorPos(CursorPos) then
Exit;
ActivateHint(CursorPos, True);
if GetCursorPos(CursorPos) then
ActivateHint(CursorPos, True);
end;
{------------------------------------------------------------------------------