FiveTech Support Forums

I have on a dialo g 5 Panels
I not see the Vertical scroll bar I cannot scroll each panel



on this application I use a dialog with style nor 4 and at right I use a normal xbrowse

Silvio,

These changes are required in Class TExplorerBar:

Sorry Antonio,
I made your changes on class but it not run ok

Now I seeing a vertical scroll on the window after the xbrowse vertical scroll .. as you can see in this picture



we want the vertical scrollbar where you can see the blue arrows

perhaps i made some changes but it not run also

I add a data

DATA lVScroll

METHOD New( nTop, nLeft, nWidth, nHeight, oWnd,lVScroll )

...
::lVScroll := lVScroll

..

::oVScroll := TScrollBar():WinNew( ,,, .t., self )
::SetRange(0,100)

return Self


METHOD Paint() CLASS TExplorerBar
local nMinTop := int(::nHeight / 2)
local nMaxBottom := int(::nHeight / 2)
local aInfo := ::DispBegin(), n, hBmpPanel

...

If ::lVScroll

if ! Empty( ::aPanels )
....


if nMinTop < 0 .or. nMaxBottom > ::nHeight
::SetRange( 0, 10 )
else
::SetRange( 0, 0 )
endif


endif




IT create a scroll bar but the moviment not run ok
Wich changes we must make also ?