mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-30 05:10:37 +00:00
Fixes Watch Panel items alignment.
This commit is contained in:
parent
a37e3801d8
commit
3f64648fc8
|
@ -7705,6 +7705,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
|
||||||
IF this.hPos = 0 THEN this.hPos = 1
|
IF this.hPos = 0 THEN this.hPos = 1
|
||||||
temp$ = GetBytes$("", 0) 'reset buffer
|
temp$ = GetBytes$("", 0) 'reset buffer
|
||||||
temp$ = MID$(variableWatchList$, 9)
|
temp$ = MID$(variableWatchList$, 9)
|
||||||
|
actualLongestVarName = 0
|
||||||
DO
|
DO
|
||||||
temp2$ = GetBytes$(temp$, 4)
|
temp2$ = GetBytes$(temp$, 4)
|
||||||
IF temp2$ <> MKL$(-1) THEN EXIT DO 'no more variables in list
|
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)
|
tempElementList$ = MID$(usedVariableList(tempIndex&).elements, 5)
|
||||||
thisName$ = thisName$ + getelement$(tempElementList$, tempElement&)
|
thisName$ = thisName$ + getelement$(tempElementList$, tempElement&)
|
||||||
END IF
|
END IF
|
||||||
|
IF LEN(thisName$) > actualLongestVarName THEN actualLongestVarName = LEN(thisName$)
|
||||||
item$ = thisName$ + SPACE$(longestVarName - LEN(thisName$)) + " = "
|
item$ = thisName$ + SPACE$(longestVarName - LEN(thisName$)) + " = "
|
||||||
IF usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "" THEN
|
IF usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "" THEN
|
||||||
IF tempElement& THEN
|
IF tempElement& THEN
|
||||||
|
@ -7760,6 +7762,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
|
||||||
_ECHO item$
|
_ECHO item$
|
||||||
END IF
|
END IF
|
||||||
LOOP
|
LOOP
|
||||||
|
longestVarName = actualLongestVarName 'if these are different, next time it'll be fixed
|
||||||
|
|
||||||
IF WatchListToConsole = 0 THEN
|
IF WatchListToConsole = 0 THEN
|
||||||
IF totalVisibleVariables > this.h - 2 THEN
|
IF totalVisibleVariables > this.h - 2 THEN
|
||||||
|
|
Loading…
Reference in a new issue