mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-20 09:04:44 +00:00
Highlights "Find" button when hovered.
This commit is contained in:
parent
4760383e5e
commit
c1b7db777c
1 changed files with 26 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue