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

Fix compile, for mouse over hint

Browse Source 
git-svn-id: trunk@37139 -
This commit is contained in:
martin 2012-05-02 16:41:17 +00:00
parent 7eb5fa6c4a
commit 3b43d6d9d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -7779,8 +7779,8 @@ begin
if PtInRect(FHintWindow.BoundsRect, Mouse.CursorPos) then begin // ignore any action over Hint if PtInRect(FHintWindow.BoundsRect, Mouse.CursorPos) then begin // ignore any action over Hint
if FHintWindow.Active then if FHintWindow.Active then
exit; exit;
if (Msg = WM_MOUSEMOVE) {$IFDEF WINDOWS} or (Msg = WM_NCMOUSEMOVE){$ENDIF} or if (Msg = WM_MOUSEMOVE) {$IFDEF WINDOWS} or (Msg = WM_NCMOUSEMOVE)or
((Msg >= WM_MOUSEFIRST) and (Msg <= WM_MOUSELAST)) ((Msg >= WM_MOUSEFIRST) and (Msg <= WM_MOUSELAST)) {$ENDIF}
then then
exit; exit;
end; end;