mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +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:
parent
1da1687633
commit
ce9a0c07c6
1 changed files with 11 additions and 2 deletions
|
@ -8203,6 +8203,15 @@ SUB ideshowtext
|
||||||
LOCATE y + 3, 1
|
LOCATE y + 3, 1
|
||||||
COLOR 7, 1
|
COLOR 7, 1
|
||||||
PRINT CHR$(179); 'clear prev bookmarks from lhs
|
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
|
IF l = idefocusline AND idecy <> l THEN
|
||||||
COLOR 7, 4 'Line with error gets a red background
|
COLOR 7, 4 'Line with error gets a red background
|
||||||
ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN
|
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.
|
LOOP ' verifying the code and growing the array during the IDE passes.
|
||||||
IF InValidLine(l) AND 1 THEN COLOR 7
|
IF InValidLine(l) AND 1 THEN COLOR 7
|
||||||
|
|
||||||
IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN
|
IF 2 + m - idesx >= 2 AND (2 + m - idesx) + LEN(STR$(iden)) + 2 < idewx - 1 THEN
|
||||||
LOCATE y + 3, 2 + m - idesx
|
LOCATE y + 3, (2 + m - idesx) + LEN(STR$(iden)) + 2
|
||||||
PRINT thisChar$;
|
PRINT thisChar$;
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue