FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour EXPLORERBAR ERROR ON DIALOG
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
EXPLORERBAR ERROR ON DIALOG
Posted: Mon Jul 05, 2010 12:20 PM
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
FWH .. BC582.. xharbour
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: EXPLORERBAR ERROR ON DIALOG
Posted: Mon Jul 05, 2010 11:51 PM

ANY SOLUTION ?

FWH .. BC582.. xharbour
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: EXPLORERBAR ERROR ON DIALOG
Posted: Tue Jul 06, 2010 02:37 AM
Silvio,

These changes are required in Class TExplorerBar:



regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: EXPLORERBAR ERROR ON DIALOG
Posted: Tue Jul 06, 2010 09:25 AM
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
FWH .. BC582.. xharbour
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: EXPLORERBAR ERROR ON DIALOG
Posted: Tue Jul 06, 2010 10:33 AM
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 ?
FWH .. BC582.. xharbour

Continue the discussion