FiveTech Software tech support forums

Code: Select all

#include 'fivewin.ch'
#include 'xbrowse.ch'

#define ORDREL

REQUEST DBFCDX

function main()

	OpenData()
	if alert( 'Choose Browse', { 'XBrowse', 'WBrowse' } ) == 1
   	testxbrw()
   else
   	testwbrw()
   endif
	close data

return nil

function testxbrw

local odlg, obrwSt, oBrw, ocol


	define dialog odlg size 800,340 pixel title 'TXBROWSE'

	@ 15,100 say 'XBROWSE CHILD TABLE' size 290,10 pixel of odlg center

	obrwSt := txbrowse():new(odlg)
	obrwSt:ntop 		:= 30
	obrwSt:nleft		:= 10
	obrwSt:nright		:= 80
	obrwSt:nbottom	   := 150
	obrwSt:calias 	:= 'state'

	ocol				:= obrwSt:addcol()
	ocol:cheader   := 'State'
	ocol:bstrdata	:= {||state->State}

   oBrwSt:SetRDD()
	obrwSt:createfromcode()


	obrw				:= txbrowse():new(odlg)
	obrw:ntop 		:= 30
	obrw:nleft		:= 100
	obrw:nright		:= 390
	obrw:nbottom	:= 150
	obrw:calias 	:= 'cust'

	ocol				:= obrw:addcol()
	ocol:cheader   := 'No'
	ocol:bstrdata	:= {||str( cust->(ordkeyno()),4)}


	ocol				:= obrw:addcol()
	ocol:cheader   := 'First'
	ocol:bstrdata	:= {||cust->first}

	ocol				:= obrw:addcol()
	ocol:cheader   := 'Last'
	ocol:bstrdata	:= {||cust->last}

	ocol				:= obrw:addcol()
	ocol:cheader   := 'City'
	ocol:bstrdata	:= {||cust->City}


	obrw:setRDD()
	obrw:CreateFromCode()


	@ 160,100 SAY eval( obrw:bKeyNo ) picture '9999' size 40,10 pixel of odlg right update
	@ 160,160 SAY eval( obrw:bKeyCount ) picture '9999' size 40,10 pixel of odlg right update

	oBrwSt:bChange	:= {||RowChange(oBrwSt, oBrw)}
	oBrw:bChange   := {||oDlg:update() }

	activate dialog odlg centered ;
		on init oBrwSt:SetFocus()

return nil


function testwbrw

local odlg, obrwSt, oBrw, ocol


	define dialog odlg size 800,340 pixel title 'TWBROWSE'

	@ 15,100 say 'XBROWSE CHILD TABLE' size 290,10 pixel of odlg center

	@ 30,10 LISTBOX oBrwSt ;
		FIELDS state->state ;
		HEADERS 'State' ;
		SIZE 50,120 PIXEL OF oDlg ;
		ALIAS 'STATE'

	@ 30,100 LISTBOX oBrw ;
		FIELDS str(cust->(Ordkeyno()),4), cust->first, cust->last, cust->city ;
		HEADERS 'No', 'First', 'Last', 'City' ;
		SIZE 290,120 PIXEL OF odlg ;
		ALIAS 'CUST'

	obrw:bLogicLen	:= {||cust->(ordkeycount())}

//	@ 160,100 SAY eval( obrw:bKeyNo ) picture '9999' size 40,10 pixel of odlg right update
	@ 160,160 SAY eval( obrw:blogiclen ) picture '9999' size 40,10 pixel of odlg right update


	oBrwSt:bChange	:= {||RowChange(oBrwSt, oBrw)}
	oBrw:bChange   := {||oDlg:update() }

	activate dialog odlg centered ;
		on init oBrwSt:SetFocus()

return nil



static function RowChange( oBrwSt, oBrw )

#ifndef ORDREL

	cust->(OrdScope(0,state->state))
	cust->(ordscope(1,state->state))

#endif

	cust->(dbgotop())
	oBrw:gotop()
	oBrw:Refresh(.t.)

	oBrw:oWnd:update()

return nil


static function OpenData

field state, city, first

local cfile	:= '\fwh\samples\customer'

	ferase( cfile + '.cdx' )
	use (cfile) exclusive via 'DBFCDX'
	index on state tag state unique
	index on state + city + first tag city
	use

	use (cfile) new alias state shared via 'DBFCDX'
	set order to tag state
	go top

	use (cfile) new alias cust shared via 'DBFCDX'
	set order to tag city
	go top

#ifdef ORDREL
//	state->( ordsetrelation( 'cust', {||state}, 'state' ) )
//      state->( dbgotop() )
//      scoped relation can be set either way

	state->( dbsetrelation( 'cust', { || State }, 'State', .t. ) )
	state->( dbgotop() )

#else

	cust->( ordscope( 0, state->state ) )
	cust->( ordscope( 1, state->state ) )
	cust->( dbgotop() )

#endif

return nil

Code: Select all

METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TXBrowse
  < ... code .. >
     if nRowPos > 0 .or. nColPos > 0

      if ::nMarqueeStyle == MARQSTYLE_HIGHLROWMS
         if !GetKeyState( VK_CONTROL ) .and. !GetKeyState( VK_SHIFT )
            ::Select( 0 )
         endif
      endif
      ::DrawLine()
      if nRowPos > 0
//msginfo( str(nrowpos) + str(::nrowsel) ) // for debug
sysrefresh()  // for debug

         Eval( ::bSkip, nRowPos - ::nRowSel )
         ::nRowSel := nRowPos
         if ::bChange != nil
            Eval( ::bChange, Self )
         endif
      endif
      < ... code ... >
      ::DrawLine( .t. )
       < ...code .. >