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 ?
FWH .. BC582.. xharbour