EXPLORERBAR ERROR ON DIALOG

[MdaSolution]

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

[MdaSolution]

ANY SOLUTION ?

[Antonio Linares]

Silvio,

These changes are required in Class TExplorerBar:

[MdaSolution]

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

[MdaSolution]

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 )
::oVScroll: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
::oVScroll:SetRange( 0, 10 )
else
::oVScroll:SetRange( 0, 0 )
endif


endif




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