QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Highlights "Find" button when hovered.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-05 15:48:41 -03:00
parent 4760383e5e
commit c1b7db777c
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
source/ide/ide_methods.bas
View file

@ -131,6 +131,7 @@ FUNCTION ide2 (ignore)
STATIC wholeword.selectx1, wholeword.idecx
STATIC wholeword.selecty1, wholeword.idecy
STATIC ForceResize, IDECompilationRequested AS _BYTE
STATIC QuickNavHover AS _BYTE, FindFieldHover AS _BYTE
ignore = ignore 'just to clear warnings of unused variables
@ -1274,7 +1275,7 @@ FUNCTION ide2 (ignore)
_FINISHDROP
END IF
'Hover/click (QuickNav)
'Hover/click (QuickNav, "Find" field)
IF QuickNavTotal > 0 THEN
DO UNTIL QuickNavHistory(QuickNavTotal) <= iden
'make sure that the line number in history still exists
@ -1327,6 +1328,30 @@ FUNCTION ide2 (ignore)
END IF
END IF
IF mY = idewy - 4 AND mX > idewx - (idesystem2.w + 10) AND mX < idewx - 1 THEN 'inside text box
IF mX <= idewx - (idesystem2.w + 8) + 2 THEN
'Highlight "Find"
LOCATE idewy - 4, idewx - (idesystem2.w + 9)
COLOR 1, 3
PRINT "Find";
PCOPY 3, 0
FindFieldHover = -1
ELSE
GOTO RestoreFindButton
END IF
ELSE
RestoreFindButton:
IF FindFieldHover = -1 THEN
'Restore "Find" bg
FindFieldHover = 0
LOCATE idewy - 4, idewx - (idesystem2.w + 9)
COLOR 3, 1
PRINT "Find";
PCOPY 3, 0
END IF
END IF
IF os$ = "WIN" OR MacOSX = 1 THEN
IF _WINDOWHASFOCUS THEN
LOCATE , , 1