Scrollbar with a Tab Control?

[marcuslee]

I was wondering if it is possible to have a scrollbar with a tab control. I have gotten the scrollbar to show up inside the tab page when the tab page is initialized, but I am not sure how to connect the scrollbar to the contents of the tab page. I would like to be able to scroll through a long list of things under certain tab pages. Other pages will not need a scrollbar (or not much of one).

I thought I could have the position of the scrollbar dictate the yPos of the elements on the page, but I am at a loss as how to do that.

Any clue or better yet a short example would be greatly appreciated. It is one of those things that could make it to the samplescripts folder for future releases ... if it is a practical thing to do.




Mark

[Petr Schreiber]

Hi Mark,

maybe you could create viewport control inside tab to do what you need.

Please have a look at:
SampleScripts/UI/Viewport/Viewport.tBasic

After you launch it, click on Options and you will see nice "dialog in dialog" you can create with it.

The principle is easy - you create huge dialog with viewport as parent, put controls on it and the viewport takes care of scrolling the controls once you use the scrollbars.


Petr

[marcuslee]

maybe you could create viewport control inside tab to do what you need.


I think your suggestion will work. It will also solve another problem I was pondering over yesterday - multiple tabs, a hierarchy of tabs, if you will. That was a nightmare for an amateur like me.

On another note, I did find a way to get the contents of the tab page to move with the scrollbar: Control Set Loc.

Here's how it might work:



'------------------------------------------------------------------
CallBack Function cb_SB_proc() As Long
'------------------------------------------------------------------

Local lID As Long = 2005
Local x, y As Integer

Select Case CBMSG

Case %WM_VSCROLL
Select Case LOWRD(CBWPARAM)
Case %SB_TOP
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetRangeLow(CBHNDL, lID))
Case %SB_BOTTOM
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetRangeHi(CBHNDL, lID))
Case %SB_LINEUP
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetPos(CBHNDL, lID) - 1)
Case %SB_LINEDOWN
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetPos(CBHNDL, lID) + 1)
Case %SB_PAGEUP
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetPos(CBHNDL, lID) - ScrollBar_GetPageSize(CBHNDL, lID))
Case %SB_PAGEDOWN
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetPos(CBHNDL, lID) + ScrollBar_GetPageSize(CBHNDL, lID))
Case %SB_THUMBTRACK
ScrollBar_SetPos(CBHNDL, lID, ScrollBar_GetTrackPos(CBHNDL, lID))
End Select

y = 10
For x = 5 To 10
Control Set Loc CBHNDL, x, 10, y - ScrollBar_GetPos(CBHNDL, lID)
y += 20
Next x

End Select
End Function


The important part is at the bottom of the function when CONTROL SET LOC is used. I also put the CONTROL SET LOC command in a FOR/NEXT loop so that you could go through an entire page of controls with a little amount of code. The control IDs would all have to be either in a row or in a pattern that could be picked up with the STEP keyword.




Mark