mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Adds horizontal scroll bar to Watch List panel.
This commit is contained in:
parent
c3c2a7e374
commit
bad61fd840
1 changed files with 73 additions and 8 deletions
|
@ -6289,9 +6289,10 @@ SUB DebugMode
|
|||
SCREEN , , 3, 0
|
||||
|
||||
TYPE vWatchPanelType
|
||||
AS INTEGER x, y, w, h, firstVisible, vBarElevator
|
||||
AS INTEGER x, y, w, h, firstVisible, hPos, vBarThumb, hBarThumb
|
||||
AS INTEGER draggingVBar, draggingHBar
|
||||
AS LONG contentWidth
|
||||
AS _BYTE draggingPanel, resizingPanel, closingPanel
|
||||
AS _BYTE draggingVBar, draggingHBar
|
||||
END TYPE
|
||||
STATIC vWatchPanel AS vWatchPanelType
|
||||
|
||||
|
@ -6556,8 +6557,28 @@ SUB DebugMode
|
|||
vWatchPanel.closingPanel = -1
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x + vWatchPanel.w - 1) AND _
|
||||
(mY = vWatchPanel.vBarElevator) THEN
|
||||
vWatchPanel.draggingVBar = -1
|
||||
(mY = vWatchPanel.vBarThumb) THEN
|
||||
vWatchPanel.draggingVBar = 1 'thumb
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x + vWatchPanel.w - 1) AND _
|
||||
(mY = vWatchPanel.y + 1) THEN
|
||||
vWatchPanel.draggingVBar = 2 'up arrow
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x + vWatchPanel.w - 1) AND _
|
||||
(mY = vWatchPanel.y + vWatchPanel.h - 2) THEN
|
||||
vWatchPanel.draggingVBar = 3 'down arrow
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.hBarThumb) AND _
|
||||
(mY = vWatchPanel.y + vWatchPanel.h - 1) THEN
|
||||
vWatchPanel.draggingHBar = 1 'thumb
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x) AND _
|
||||
(mY = vWatchPanel.y + vWatchPanel.h - 1) THEN
|
||||
vWatchPanel.draggingHBar = 2 'left arrow
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x + vWatchPanel.w - 2) AND _
|
||||
(mY = vWatchPanel.y + vWatchPanel.h - 1) THEN
|
||||
vWatchPanel.draggingHBar = 3 'right arrow
|
||||
ELSEIF LEN(variableWatchList$) > 0 AND _
|
||||
(mX = vWatchPanel.x + vWatchPanel.w - 1) AND _
|
||||
(mY = vWatchPanel.y + vWatchPanel.h - 1) THEN
|
||||
|
@ -6578,6 +6599,7 @@ SUB DebugMode
|
|||
vWatchPanel.resizingPanel = 0
|
||||
vWatchPanel.closingPanel = 0
|
||||
vWatchPanel.draggingVBar = 0
|
||||
vWatchPanel.draggingHBar = 0
|
||||
END IF
|
||||
|
||||
IF mX = idewx THEN
|
||||
|
@ -6665,13 +6687,20 @@ SUB DebugMode
|
|||
mouseDownOnX = mX
|
||||
mouseDownOnY = mY
|
||||
GOSUB UpdateDisplay
|
||||
ELSEIF vWatchPanel.draggingVBar THEN
|
||||
ELSEIF vWatchPanel.draggingVBar = 1 THEN
|
||||
vWatchPanel.firstVisible = INT(map(mY, vWatchPanel.y + 2, vWatchPanel.y + vWatchPanel.h - 2, 1, totalVisibleVariables))
|
||||
IF vWatchPanel.firstVisible < 1 THEN vWatchPanel.firstVisible = 1
|
||||
IF vWatchPanel.firstVisible > totalVisibleVariables THEN
|
||||
vWatchPanel.firstVisible = totalVisibleVariables
|
||||
END IF
|
||||
GOSUB UpdateDisplay
|
||||
ELSEIF vWatchPanel.draggingHBar = 1 THEN
|
||||
vWatchPanel.hPos = INT(map(mX, vWatchPanel.x, vWatchPanel.x + vWatchPanel.w - 2, 1, vWatchPanel.contentWidth))
|
||||
IF vWatchPanel.hPos < 1 THEN vWatchPanel.hPos = 1
|
||||
IF vWatchPanel.hPos > vWatchPanel.contentWidth THEN
|
||||
vWatchPanel.hPos = vWatchPanel.contentWidth
|
||||
END IF
|
||||
GOSUB UpdateDisplay
|
||||
END IF
|
||||
END IF
|
||||
ELSE
|
||||
|
@ -6686,7 +6715,34 @@ SUB DebugMode
|
|||
NEXT
|
||||
GOSUB UpdateDisplay
|
||||
END IF
|
||||
IF vWatchPanel.draggingVBar THEN vWatchPanel.draggingVBar = 0: mouseDown = 0
|
||||
IF vWatchPanel.draggingVBar THEN
|
||||
IF vWatchPanel.draggingVBar = 2 THEN
|
||||
vWatchPanel.firstVisible = vWatchPanel.firstVisible - 1
|
||||
IF vWatchPanel.firstVisible < 1 THEN vWatchPanel.firstVisible = 1
|
||||
GOSUB UpdateDisplay
|
||||
ELSEIF vWatchPanel.draggingVBar = 3 THEN
|
||||
vWatchPanel.firstVisible = vWatchPanel.firstVisible + 1
|
||||
IF vWatchPanel.firstVisible > totalVisibleVariables THEN
|
||||
vWatchPanel.firstVisible = totalVisibleVariables
|
||||
END IF
|
||||
GOSUB UpdateDisplay
|
||||
END IF
|
||||
vWatchPanel.draggingVBar = 0: mouseDown = 0
|
||||
END IF
|
||||
IF vWatchPanel.draggingHBar THEN
|
||||
IF vWatchPanel.draggingHBar = 2 THEN
|
||||
vWatchPanel.hPos = vWatchPanel.hPos - 1
|
||||
IF vWatchPanel.hPos < 1 THEN vWatchPanel.hPos = 1
|
||||
GOSUB UpdateDisplay
|
||||
ELSEIF vWatchPanel.draggingHBar = 3 THEN
|
||||
vWatchPanel.hPos = vWatchPanel.hPos + 1
|
||||
IF vWatchPanel.hPos > vWatchPanel.contentWidth THEN
|
||||
vWatchPanel.hPos = vWatchPanel.contentWidth
|
||||
END IF
|
||||
GOSUB UpdateDisplay
|
||||
END IF
|
||||
vWatchPanel.draggingHBar = 0: mouseDown = 0
|
||||
END IF
|
||||
IF mouseDown THEN
|
||||
mouseDown = 0
|
||||
draggingVThumb = 0
|
||||
|
@ -6759,6 +6815,7 @@ SUB DebugMode
|
|||
vWatchPanel.resizingPanel = 0
|
||||
vWatchPanel.closingPanel = 0
|
||||
vWatchPanel.draggingVBar = 0
|
||||
vWatchPanel.draggingHBar = 0
|
||||
END IF
|
||||
END IF
|
||||
|
||||
|
@ -7260,6 +7317,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$)
|
|||
COLOR , bg
|
||||
|
||||
y = 0
|
||||
this.contentWidth = 0
|
||||
IF LEN(variableWatchList$) THEN
|
||||
longestVarName = CVL(LEFT$(variableWatchList$, 4))
|
||||
temp$ = MID$(variableWatchList$, 5)
|
||||
|
@ -7280,13 +7338,20 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$)
|
|||
COLOR 2
|
||||
END IF
|
||||
END IF
|
||||
_PRINTSTRING (this.x + 2, this.y + y), LEFT$(item$, this.w - 4)
|
||||
IF LEN(item$) > this.contentWidth THEN this.contentWidth = LEN(item$)
|
||||
_PRINTSTRING (this.x + 2, this.y + y), MID$(item$, this.hPos, this.w - 4)
|
||||
LOOP
|
||||
END IF
|
||||
|
||||
y = idevbar(this.x + this.w - 1, this.y + 1, this.h - 2, this.firstVisible, totalVisibleVariables)
|
||||
IF this.draggingVBar = 0 THEN
|
||||
this.vBarElevator = y
|
||||
this.vBarThumb = y
|
||||
END IF
|
||||
|
||||
IF this.hPos = 0 THEN this.hPos = 1
|
||||
x = idehbar(this.x, this.y + this.h - 1, this.w - 1, this.hPos, this.contentWidth)
|
||||
IF this.draggingHBar = 0 THEN
|
||||
this.hBarThumb = x
|
||||
END IF
|
||||
END SUB
|
||||
|
||||
|
|
Loading…
Reference in a new issue