mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Makes Status bar command reference colorized
This commit is contained in:
parent
e799e79012
commit
89f695ea0b
1 changed files with 6 additions and 2 deletions
|
@ -902,7 +902,7 @@ FUNCTION ide2 (ignore)
|
|||
FOR i = 1 TO LEN(a$)
|
||||
IF ASC(a$, i) = 0 THEN
|
||||
idecompilererrormessage$ = LEFT$(a$, i - 1)
|
||||
IF _DEFAULTCOLOR = 7 THEN COLOR 11 ELSE COLOR 7
|
||||
IF _DEFAULTCOLOR <> 11 THEN COLOR 11 ELSE COLOR 7
|
||||
_CONTINUE
|
||||
END IF
|
||||
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
|
||||
|
@ -919,9 +919,13 @@ FUNCTION ide2 (ignore)
|
|||
x = 1
|
||||
y = idewy - 3
|
||||
|
||||
IF l <> 0 AND idecy = l THEN a$ = a$ + " on current line"
|
||||
IF l <> 0 AND idecy = l THEN onCurrentLine = LEN(a$): a$ = a$ + " on current line"
|
||||
|
||||
hasReference = INSTR(a$, " - Reference: ")
|
||||
IF hasReference THEN hasReference = hasReference + 14
|
||||
FOR i = 1 TO LEN(a$)
|
||||
IF hasReference > 0 AND i >= hasReference THEN COLOR 12, 6
|
||||
IF onCurrentLine > 0 AND i > onCurrentLine THEN COLOR 7, 1
|
||||
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
|
||||
IF y > idewy - 1 THEN EXIT FOR
|
||||
_PRINTSTRING (x, y), CHR$(ASC(a$, i))
|
||||
|
|
Loading…
Reference in a new issue