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

Skip syntax highlighter if current line is an InValidLine()

Browse source
This commit is contained in:
FellippeHeitor 2020-01-10 01:58:38 -03:00
parent 6c779ca798
commit 0701364fb2
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
source/ide/ide_methods.bas
View file

@ -8572,6 +8572,10 @@ SUB ideshowtext
END IF
IF l <= iden THEN
DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT ' to the end of a program before the IDE has finished
LOOP ' verifying the code and growing the array during the IDE passes.
a$ = idegetline(l)
link_idecx = 0
rgb_idecx = 0
@ -8729,6 +8733,8 @@ SUB ideshowtext
COLOR 13
IF InValidLine(l) AND 1 THEN COLOR 7: GOTO SkipSyntaxHighlighter
IF (LEN(oldChar$) > 0 OR m = 1) AND inquote = 0 AND isKeyword = 0 THEN
IF INSTR(initialNum.char$, thisChar$) > 0 AND oldChar$ <> ")" AND (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") THEN
'a number literal
@ -8803,6 +8809,11 @@ SUB ideshowtext
COLOR 14
END IF
SkipSyntaxHighlighter:
IF l = idecy AND ((link_idecx > 0 AND m > link_idecx) OR _
(rgb_idecx > 0 AND m > rgb_idecx)) THEN COLOR 10
IF l = idecy AND (m = bracket1 OR m = bracket2) THEN
COLOR , 5
ELSEIF multiHighlightLength > 0 AND multihighlight = -1 THEN
@ -8812,14 +8823,6 @@ SUB ideshowtext
COLOR , prevBG%
END IF
IF l = idecy AND ((link_idecx > 0 AND m > link_idecx) OR _
(rgb_idecx > 0 AND m > rgb_idecx)) THEN COLOR 10
DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT ' to the end of a program before the IDE has finished
LOOP ' verifying the code and growing the array during the IDE passes.
IF InValidLine(l) AND 1 THEN COLOR 7
IF ShowLineNumbers THEN
IF (2 + m - idesx) + maxLineNumberLength >= 2 + maxLineNumberLength AND (2 + m - idesx) + maxLineNumberLength < idewx THEN
LOCATE y + 3, (2 + m - idesx) + maxLineNumberLength