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

Fine tunes status bar links.

Browse source
This commit is contained in:
Fellippe Heitor 2021-02-10 20:16:44 -03:00
parent a08d90bd65
commit ccb9c2f74f
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
source/ide/ide_methods.bas
View file

@ -1318,11 +1318,11 @@ FUNCTION ide2 (ignore)
END IF END IF
END IF END IF
IF mY = idewy + idesubwindow AND mX >= idewx - 22 - LEN(versionStringStatus$) AND mX < idewx - 22 THEN IF mY = idewy + idesubwindow AND mX >= idewx - 21 - LEN(versionStringStatus$) AND mX < idewx - 21 THEN
'Highlight Version Number 'Highlight Version Number
IF VersionInfoHover = 0 THEN IF VersionInfoHover = 0 THEN
COLOR 13, 6 COLOR 13, 6
_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
updateHover = -1 updateHover = -1
VersionInfoHover = -1 VersionInfoHover = -1
END IF END IF
@ -1332,7 +1332,7 @@ FUNCTION ide2 (ignore)
'Restore "Find" bg 'Restore "Find" bg
VersionInfoHover = 0 VersionInfoHover = 0
COLOR 2, 3 COLOR 2, 3
_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
updateHover = -1 updateHover = -1
END IF END IF
END IF END IF
@ -8576,6 +8576,7 @@ SUB ideshowtext
LSET b$ = c$ LSET b$ = c$
END IF END IF
lineNumberStatus$ = a$ + ":" + b$ lineNumberStatus$ = a$ + ":" + b$
'_PRINTSTRING (idewx - 21, idewy + idesubwindow), CHR$(179)
_PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$ _PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$
SCREEN , , 0, 0: LOCATE idecy - idesy + 3, maxLineNumberLength + idecx - idesx + 2: SCREEN , , 3, 0 SCREEN , , 0, 0: LOCATE idecy - idesy + 3, maxLineNumberLength + idecx - idesx + 2: SCREEN , , 3, 0
@ -14347,12 +14348,14 @@ SUB UpdateIdeInfo
COLOR 0, 3 COLOR 0, 3
_PRINTSTRING (2, idewy + idesubwindow), a$ _PRINTSTRING (2, idewy + idesubwindow), a$
COLOR 2, 3
IF LEN(versionStringStatus$) = 0 THEN IF LEN(versionStringStatus$) = 0 THEN
versionStringStatus$ = "v" + Version$ versionStringStatus$ = " v" + Version$
IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " ")) IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " "))
versionStringStatus$ = versionStringStatus$ + " "
END IF END IF
_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ '_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), CHR$(179)
COLOR 2, 3
_PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
PCOPY 3, 0 PCOPY 3, 0
END SUB END SUB