mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Makes possible to edit/navigate with line numbers turned on (keyboard).
This commit is contained in:
parent
e5b7327533
commit
867f62bcc7
1 changed files with 16 additions and 13 deletions
|
@ -8175,9 +8175,11 @@ SUB ideshowtext
|
||||||
|
|
||||||
cc = -1
|
cc = -1
|
||||||
|
|
||||||
|
IF ShowLineNumbers THEN l1$ = SPACE$(LEN(STR$(iden)) + 1) ELSE l1$ = ""
|
||||||
|
|
||||||
IF idecx < idesx THEN idesx = idecx
|
IF idecx < idesx THEN idesx = idecx
|
||||||
IF idecy < idesy THEN idesy = idecy
|
IF idecy < idesy THEN idesy = idecy
|
||||||
IF idecx - idesx >= (idewx - 2) THEN idesx = idecx - (idewx - 3)
|
IF (idecx + LEN(l1$)) - idesx >= (idewx - 2) THEN idesx = (idecx + LEN(l1$)) - (idewx - 3)
|
||||||
IF idecy - idesy >= (idewy - 8) THEN idesy = idecy - (idewy - 9)
|
IF idecy - idesy >= (idewy - 8) THEN idesy = idecy - (idewy - 9)
|
||||||
|
|
||||||
sy1 = ideselecty1
|
sy1 = ideselecty1
|
||||||
|
@ -8233,15 +8235,16 @@ SUB ideshowtext
|
||||||
FOR y = 0 TO (idewy - 9)
|
FOR y = 0 TO (idewy - 9)
|
||||||
LOCATE y + 3, 1
|
LOCATE y + 3, 1
|
||||||
COLOR 7, 1
|
COLOR 7, 1
|
||||||
l$ = SPACE$(LEN(STR$(iden)) + 1)
|
|
||||||
PRINT CHR$(179); 'clear prev bookmarks from lhs
|
PRINT CHR$(179); 'clear prev bookmarks from lhs
|
||||||
IF l = idecy THEN COLOR , 6
|
|
||||||
PRINT l$;
|
|
||||||
|
|
||||||
IF l <= iden AND ShowLineNumbers THEN
|
IF ShowLineNumbers THEN
|
||||||
l$ = STR$(l)
|
IF l = idecy THEN COLOR , 6
|
||||||
LOCATE y + 3, POS(1) - (LEN(l$) + 1)
|
PRINT l1$;
|
||||||
PRINT l$;
|
IF l <= iden THEN
|
||||||
|
l2$ = STR$(l)
|
||||||
|
LOCATE y + 3, POS(1) - (LEN(l2$) + 1)
|
||||||
|
PRINT l2$;
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF l = idefocusline AND idecy <> l THEN
|
IF l = idefocusline AND idecy <> l THEN
|
||||||
|
@ -8378,7 +8381,6 @@ SUB ideshowtext
|
||||||
|
|
||||||
a2$ = SPACE$(idesx + (idewx - 3))
|
a2$ = SPACE$(idesx + (idewx - 3))
|
||||||
MID$(a2$, 1) = a$
|
MID$(a2$, 1) = a$
|
||||||
'a2$ = RIGHT$(a2$, (idewx - 2))
|
|
||||||
ELSE
|
ELSE
|
||||||
a2$ = SPACE$((idewx - 2))
|
a2$ = SPACE$((idewx - 2))
|
||||||
END IF
|
END IF
|
||||||
|
@ -8565,15 +8567,16 @@ SUB ideshowtext
|
||||||
IF InValidLine(l) AND 1 THEN COLOR 7
|
IF InValidLine(l) AND 1 THEN COLOR 7
|
||||||
|
|
||||||
IF ShowLineNumbers THEN
|
IF ShowLineNumbers THEN
|
||||||
IF 2 + m - idesx >= 2 AND (2 + m - idesx) + LEN(STR$(iden)) + 1 < idewx - 1 THEN
|
IF (2 + m - idesx) + LEN(l1$) >= 2 + LEN(l1$) AND (2 + m - idesx) + LEN(l1$) < idewx THEN
|
||||||
LOCATE y + 3, (2 + m - idesx) + LEN(STR$(iden)) + 1
|
LOCATE y + 3, (2 + m - idesx) + LEN(l1$)
|
||||||
|
PRINT thisChar$;
|
||||||
END IF
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN
|
IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN
|
||||||
LOCATE y + 3, 2 + m - idesx
|
LOCATE y + 3, 2 + m - idesx
|
||||||
END IF
|
|
||||||
END IF
|
|
||||||
PRINT thisChar$;
|
PRINT thisChar$;
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
|
||||||
'Restore BG color in case a matching bracket was printed with different BG
|
'Restore BG color in case a matching bracket was printed with different BG
|
||||||
IF l = idecy THEN COLOR , 6
|
IF l = idecy THEN COLOR , 6
|
||||||
|
@ -8651,7 +8654,7 @@ SUB ideshowtext
|
||||||
LOCATE idewy + idesubwindow, (idewx - 10) - LEN(a$)
|
LOCATE idewy + idesubwindow, (idewx - 10) - LEN(a$)
|
||||||
PRINT a$;
|
PRINT a$;
|
||||||
|
|
||||||
SCREEN , , 0, 0: LOCATE idecy - idesy + 3, idecx - idesx + 2: SCREEN , , 3, 0
|
SCREEN , , 0, 0: LOCATE idecy - idesy + 3, LEN(l1$) + idecx - idesx + 2: SCREEN , , 3, 0
|
||||||
|
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
FindQuoteComment:
|
FindQuoteComment:
|
||||||
|
|
Loading…
Reference in a new issue