QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 12:21:20 +00:00
Code Issues Releases Wiki Activity

Merge pull request #132 from QB64Team/IdeTweaks

Browse source 
Ide tweaks
This commit is contained in:
Fellippe Heitor 2021-02-10 22:46:27 -03:00 committed by GitHub
parent 41b16cf18c ccb9c2f74f
commit cf433fa629
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 8 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
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
IF VersionInfoHover = 0 THEN
COLOR 13, 6
_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
_PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
updateHover = -1
VersionInfoHover = -1
END IF
@ -1332,7 +1332,7 @@ FUNCTION ide2 (ignore)
'Restore "Find" bg
VersionInfoHover = 0
COLOR 2, 3
_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
_PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
updateHover = -1
END IF
END IF
@ -8576,6 +8576,7 @@ SUB ideshowtext
LSET b$ = c$
END IF
lineNumberStatus$ = a$ + ":" + b$
'_PRINTSTRING (idewx - 21, idewy + idesubwindow), CHR$(179)
_PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$
SCREEN , , 0, 0: LOCATE idecy - idesy + 3, maxLineNumberLength + idecx - idesx + 2: SCREEN , , 3, 0
@ -14347,12 +14348,14 @@ SUB UpdateIdeInfo
COLOR 0, 3
_PRINTSTRING (2, idewy + idesubwindow), a$
COLOR 2, 3
IF LEN(versionStringStatus$) = 0 THEN
versionStringStatus$ = "v" + Version$
versionStringStatus$ = " v" + Version$
IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " "))
versionStringStatus$ = versionStringStatus$ + " "
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
END SUB

7
source/qb64.bas
View file

@ -7138,6 +7138,7 @@ DO
IF UCASE$(n$) <> "AS" THEN
'traditional dim syntax for SHARED
newSharedSyntax = 0
s$ = removesymbol(n$)
IF Error_Happened THEN GOTO errmes
l2$ = s$ 'either symbol or nothing
@ -7738,6 +7739,7 @@ DO
IF e$ <> "AS" THEN
'no "AS", so this is the traditional dim syntax
dimnext:
newDimSyntax = 0
notype = 0
listarray = 0
@ -8259,7 +8261,7 @@ DO
commonarraylisted:
IF LEN(appendtype$) AND newDimSyntax = -1 THEN
IF LEN(appendtype$) > 0 AND newDimSyntax = -1 THEN
IF LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$
IF newDimSyntaxTypePassBack = 0 THEN
newDimSyntaxTypePassBack = -1
@ -8273,7 +8275,7 @@ DO
l$ = l$ + sp2 + getelements$(tlayout$, 2, n2)
END IF
IF LEN(appendtype$) AND newDimSyntax = 0 THEN
IF LEN(appendtype$) > 0 AND newDimSyntax = 0 THEN
IF LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$
l$ = l$ + appendtype$
END IF
@ -14048,6 +14050,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$)
END IF
IF v&& < 1 OR v&& > 9999999999 THEN Give_Error "STRING * out-of-range constant": EXIT FUNCTION
bytes = v&&
dim2typepassback$ = SCase$("String * ") + constcname(i2)
GOTO constantlenstr
END IF