tcbrowse horizontal scroll

[MarcoBoschi]

Hi,
there is a problem in this little sample.

If I click in scrollbar in this point (plase see figure)



First two columns disappear and remains only the third one
How can I disable horizontal scroll bar?

Bye and many thanks

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Tcbrowse.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw
    LOCAL oCol

    USE Customer ALIAS Test

    DEFINE DIALOG oDlg SIZE 200 , 400

    @ 0, 0 BROWSE oBrw

    oCol := TcColumn():New( "First" , { || TEST->first } , ,  , , 0 ,  60 , , , , , , , )
    oBrw:addcolumn( oCol )

    oCol := TcColumn():New( "Last" , { || TEST->last }  , ,  , , 0 ,  60 , , , , , , , )
    oBrw:addcolumn( oCol )

    oCol := TcColumn():New( "Age" , { || TEST->age } , ,  , , 2 ,  60 , , , , , , , )
    oBrw:addcolumn( oCol )

//     oCol := TcColumn():New( "" ,  , ,  , , 0 , 10 , , , , , , , )
//     oBrw:addcolumn( oCol )

    oBrw:lCellStyle = .T.

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER ;
             VALID MsgYesNo( "Want to exit ?" )

    CLOSE

    RETURN NIL

 

[StefanHaupt]

Marco,

you can try to freeze the most left colums

Code: Select all  Expand view

oBrw:nFreeze := 2

or disable the the scrollbar

Code: Select all  Expand view

oBrw:lNoHScroll := .t.

[MarcoBoschi]

Ok,
oBrw:nFreeze := 2
this line it's ok

Other solution
oBrw:lNoHScroll := .t.
creates this problem

Application
===========
Path and name: C:\Fwh\samples\test.exe (32 bits)
Size: 1,997,312 bytes
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 06/26/12, 09:51:05
Error description: Error BASE/1004 Class: 'NIL' has no exported method: SETPOS
Args:
[ 1] = U
[ 2] = N 3

Stack Calls
===========
Called from: => SETPOS(0)
Called from: wbrowse.prg => TCBROWSE:HSCROLL(1696)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: control.prg => TCONTROL:HANDLEEVENT(1469)
Called from: wbrowse.prg => TCBROWSE:HANDLEEVENT(1651)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: test.prg => MAIN(34)



but no matter I will use the other
Many thanks

marco

[MarcoBoschi]

errata:
In the real sotuation this
oBrw:nFreeze := 2
or other differen value
does not work

Is it possible to hide Horiz scroll bar?
Other error persists
bye marco

[MarcoBoschi]

I hope I don't create other problems in this way

wbrowse.prg

case nScrollCode == SB_PAGEDOWN
while nCol < Len( ::GetColSizes() ) .and. ;
(::IsColVisible( nCol ) .or. ::nColPos == nCol)
nCol++
end
IF ::lNoHScroll <> .T.
::nColPos := nCol
::nColAct := nCol
::oHScroll:SetPos( nCol )
::Refresh( .f. )
ENDIF

[StefanHaupt]

::lNoHScroll is an enhancement of tcbrowse, it does not exist in wbrowse. The problem is the HScroll() method of wbrowse, which is not overwritten in tcbrowse. As a workaround you can try to define your own method hscroll() in tcbrowse.

maybe like this (not tested)

Code: Select all  Expand view

METHOD HScroll (nWParam, nLParam) INLINE IIF (!::lNoScroll, super:HScroll(nWParam, nLParam), nil)