#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX


static lAdd

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oBmp, oBrw, oCol, oBrowse
   local cAlias, n



   // Driver CDX----------------------------------------------------------------
   REQUEST DBFCDX, DBFFPT

   RDDSETDEFAULT( "DBFCDX")

   SET( _SET_INSERT, .T. )








   USE CUSTOMER NEW





   DEFINE DIALOG oDlg RESOURCE "INVOICES" ;
      TITLE "Ttest xBrowse in Alias: "+Alias()





   REDEFINE XBROWSE oBrowse ID 210 OF oDlg ;
          ALIAS "CUSTOMER" ;
          FIELDS CUSTOMER->FIRST, CUSTOMER->LAST, CUSTOMER->SALARY ;
          HEADERS "First Name", "Last Name", "Salary" ;
          SIZES  250, 250, 100 ;
          PICTURES nil, nil, c_pictxBrowse()




   oBrowse:nColDividerStyle    := LINESTYLE_BLACK
   oBrowse:lColDividerComplete := .T.
   oBrowse:nHeaderLines        := 1.5
   oBrowse:lRecordSelector     := .F.
   oBrowse:nStretchCol         := STRETCHCOL_LAST
   oBrowse:lAllowColHiding     := .F.


   oBrowse:blDblClick := { || ( oBrowse:Refresh() ) }


  // oBrowse:SwapCols(3,2, .T.)





   REDEFINE BTNBMP oBmp NAME "B_OK" ID 100 OF oDlg  ACTION (oDlg:End())

   ACTIVATE DIALOG oDlg CENTERED

   CLOSE DATA

return (0)

//-----------------------------------------------------------------------------



// ---------------------------------------------------------------------------
FUNCTION c_pictxBrowse()

 LOCAL cRet := "@E 999,999,999,999,999.9999"


RETURN ( cRet   )
// -------------------------------------------------------------------------

INVOICES DIALOG 33, 36, 530, 375
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test Dialog FWH"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 210, "TxBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 22, 173, 483, 95
 CONTROL "", 100, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 280, 49, 47, 13
}


B_OK BITMAP 
{
 '42 4D 6E 02 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 46 00 00 00 0E 00 00 00 01 00 04 00 00 00'
 '00 00 F8 01 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 84 F8 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 88 88'
 '44 4F 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 88 84 44 4F 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 44 4F 44 F8 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 84 44 F8 84 4F 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 44 4F'
 '88 88 4F 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 84 F8 88 88 84 F8 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 88 88 88 88 4F 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 88 88 88 84'
 'F8 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 88 88'
 '88 88 88 88 4F 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 88 88 88 88 88 88 84 F8 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 88 88 88 88 88 88 4F 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 88 88 88 88'
 '88 84 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00'
}

   Compiler version: Harbour 3.1.0dev (Rev. 17114)
   FiveWin  Version: FWH 11.10
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 01/14/12, 03:48:46
   Error description: Error BASE/1004  No exported method: EVAL
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => (b)EVAL( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 407 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1181 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 437 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11628 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3160 )
   Called from:  => SETSCROLLRANGE( 0 )
   Called from: .\source\classes\SCRLLBAR.PRG => (b)TSCROLLBAR( 93 )
   Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:SETRANGE( 0 )
   Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:WINNEW( 203 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 831 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 210 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 178 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 622 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 862 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 266 )
   Called from: demo3.prg => MAIN( 77 )

MsgInfo( oBrowse:cAlias )
MsgInfo( Select( oBrowse:cAlias ) )
MsgInfo( ValType( oBrowse:bKeyCount ) )

#include "fivewin.ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

function main()

   RDDSETDEFAULT( "DBFCDX" )
   XBROWSER "CUSTOMER.DBF"

return nil