mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Moves breakpoints and line skips when deleting lines.
This commit is contained in:
parent
adf963b007
commit
fcc243f902
1 changed files with 10 additions and 1 deletions
|
@ -7394,6 +7394,16 @@ SUB idedelline (i)
|
|||
END IF
|
||||
NEXT
|
||||
|
||||
FOR b = i TO iden - 1
|
||||
SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1)
|
||||
NEXT
|
||||
REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE
|
||||
|
||||
FOR b = i TO iden - 1
|
||||
SWAP IdeSkipLines(b), IdeSkipLines(b - 1)
|
||||
NEXT
|
||||
REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE
|
||||
|
||||
idegotoline i
|
||||
textlen = CVL(MID$(idet$, ideli, 4))
|
||||
idet$ = LEFT$(idet$, ideli - 1) + RIGHT$(idet$, LEN(idet$) - ideli + 1 - 8 - textlen)
|
||||
|
@ -8209,7 +8219,6 @@ SUB ideinsline (i, text$)
|
|||
NEXT
|
||||
IdeSkipLines(i) = 0
|
||||
|
||||
|
||||
text$ = RTRIM$(text$)
|
||||
|
||||
IF i = -1 THEN i = idel
|
||||
|
|
Loading…
Reference in a new issue