1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00

First attempt at line numbers.

So far:
- Line numbers show (they still get stuck if you create a new empty file).
- Text is shifted right accordingly.
This commit is contained in:
FellippeHeitor 2017-10-26 10:20:19 -02:00
parent 1da1687633
commit ce9a0c07c6

View file

@ -8203,6 +8203,15 @@ SUB ideshowtext
LOCATE y + 3, 1
COLOR 7, 1
PRINT CHR$(179); 'clear prev bookmarks from lhs
IF l <= iden THEN
LOCATE y + 3, 2
l$ = SPACE$(LEN(STR$(iden)) + 2)
MID$(l$, 1) = STR$(l)
PRINT l$;
END IF
IF l = idefocusline AND idecy <> l THEN
COLOR 7, 4 'Line with error gets a red background
ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN
@ -8523,8 +8532,8 @@ SUB ideshowtext
LOOP ' verifying the code and growing the array during the IDE passes.
IF InValidLine(l) AND 1 THEN COLOR 7
IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN
LOCATE y + 3, 2 + m - idesx
IF 2 + m - idesx >= 2 AND (2 + m - idesx) + LEN(STR$(iden)) + 2 < idewx - 1 THEN
LOCATE y + 3, (2 + m - idesx) + LEN(STR$(iden)) + 2
PRINT thisChar$;
END IF