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

Moves breakpoints and line skips when deleting lines.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-20 03:11:16 -03:00
parent adf963b007
commit fcc243f902
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/ide/ide_methods.bas
View file

@ -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