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

Fixes Watch Panel items alignment.

Browse source
This commit is contained in:
FellippeHeitor 2021-09-08 23:24:10 -03:00
parent a37e3801d8
commit 3f64648fc8
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
source/ide/ide_methods.bas
View file

@ -7705,6 +7705,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
IF this.hPos = 0 THEN this.hPos = 1
temp$ = GetBytes$("", 0) 'reset buffer
temp$ = MID$(variableWatchList$, 9)
actualLongestVarName = 0
DO
temp2$ = GetBytes$(temp$, 4)
IF temp2$ <> MKL$(-1) THEN EXIT DO 'no more variables in list
@ -7734,6 +7735,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
tempElementList$ = MID$(usedVariableList(tempIndex&).elements, 5)
thisName$ = thisName$ + getelement$(tempElementList$, tempElement&)
END IF
IF LEN(thisName$) > actualLongestVarName THEN actualLongestVarName = LEN(thisName$)
item$ = thisName$ + SPACE$(longestVarName - LEN(thisName$)) + " = "
IF usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "" THEN
IF tempElement& THEN
@ -7760,6 +7762,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
_ECHO item$
END IF
LOOP
longestVarName = actualLongestVarName 'if these are different, next time it'll be fixed
IF WatchListToConsole = 0 THEN
IF totalVisibleVariables > this.h - 2 THEN