mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 09:35:13 +00:00
commit
cf433fa629
|
@ -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
|
||||||
|
|
|
@ -7138,6 +7138,7 @@ DO
|
||||||
|
|
||||||
IF UCASE$(n$) <> "AS" THEN
|
IF UCASE$(n$) <> "AS" THEN
|
||||||
'traditional dim syntax for SHARED
|
'traditional dim syntax for SHARED
|
||||||
|
newSharedSyntax = 0
|
||||||
s$ = removesymbol(n$)
|
s$ = removesymbol(n$)
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
l2$ = s$ 'either symbol or nothing
|
l2$ = s$ 'either symbol or nothing
|
||||||
|
@ -7738,6 +7739,7 @@ DO
|
||||||
IF e$ <> "AS" THEN
|
IF e$ <> "AS" THEN
|
||||||
'no "AS", so this is the traditional dim syntax
|
'no "AS", so this is the traditional dim syntax
|
||||||
dimnext:
|
dimnext:
|
||||||
|
newDimSyntax = 0
|
||||||
notype = 0
|
notype = 0
|
||||||
listarray = 0
|
listarray = 0
|
||||||
|
|
||||||
|
@ -8259,7 +8261,7 @@ DO
|
||||||
|
|
||||||
commonarraylisted:
|
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 LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$
|
||||||
IF newDimSyntaxTypePassBack = 0 THEN
|
IF newDimSyntaxTypePassBack = 0 THEN
|
||||||
newDimSyntaxTypePassBack = -1
|
newDimSyntaxTypePassBack = -1
|
||||||
|
@ -8273,7 +8275,7 @@ DO
|
||||||
l$ = l$ + sp2 + getelements$(tlayout$, 2, n2)
|
l$ = l$ + sp2 + getelements$(tlayout$, 2, n2)
|
||||||
END IF
|
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$
|
IF LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$
|
||||||
l$ = l$ + appendtype$
|
l$ = l$ + appendtype$
|
||||||
END IF
|
END IF
|
||||||
|
@ -14048,6 +14050,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$)
|
||||||
END IF
|
END IF
|
||||||
IF v&& < 1 OR v&& > 9999999999 THEN Give_Error "STRING * out-of-range constant": EXIT FUNCTION
|
IF v&& < 1 OR v&& > 9999999999 THEN Give_Error "STRING * out-of-range constant": EXIT FUNCTION
|
||||||
bytes = v&&
|
bytes = v&&
|
||||||
|
dim2typepassback$ = SCase$("String * ") + constcname(i2)
|
||||||
GOTO constantlenstr
|
GOTO constantlenstr
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue