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

Prevents issues when deleting lines in normal mode.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-20 17:11:16 -03:00
parent dfb33206b4
commit 603cc585e8
1 changed files with 22 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
source/ide/ide_methods.bas
View file

@ -7394,15 +7394,17 @@ SUB idedelline (i)
END IF END IF
NEXT NEXT
FOR b = i TO iden - 1 IF vWatchOn THEN
SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1) FOR b = i TO iden - 1
NEXT SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1)
REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE NEXT
REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE
FOR b = i TO iden - 1 FOR b = i TO iden - 1
SWAP IdeSkipLines(b), IdeSkipLines(b - 1) SWAP IdeSkipLines(b), IdeSkipLines(b - 1)
NEXT NEXT
REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE
END IF
idegotoline i idegotoline i
textlen = CVL(MID$(idet$, ideli, 4)) textlen = CVL(MID$(idet$, ideli, 4))
@ -8207,17 +8209,19 @@ SUB ideinsline (i, text$)
END IF END IF
NEXT NEXT
REDIM _PRESERVE IdeBreakpoints(iden + 1) AS _BYTE IF vWatchOn THEN
FOR b = iden + 1 TO i STEP -1 REDIM _PRESERVE IdeBreakpoints(iden + 1) AS _BYTE
SWAP IdeBreakpoints(b), IdeBreakpoints(b - 1) FOR b = iden + 1 TO i STEP -1
NEXT SWAP IdeBreakpoints(b), IdeBreakpoints(b - 1)
IdeBreakpoints(i) = 0 NEXT
IdeBreakpoints(i) = 0
REDIM _PRESERVE IdeSkipLines(iden + 1) AS _BYTE REDIM _PRESERVE IdeSkipLines(iden + 1) AS _BYTE
FOR b = iden + 1 TO i STEP -1 FOR b = iden + 1 TO i STEP -1
SWAP IdeSkipLines(b), IdeSkipLines(b - 1) SWAP IdeSkipLines(b), IdeSkipLines(b - 1)
NEXT NEXT
IdeSkipLines(i) = 0 IdeSkipLines(i) = 0
END IF
text$ = RTRIM$(text$) text$ = RTRIM$(text$)