FiveTech Support Forums

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

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

REQUEST SIX

static cDbf := "SAMPLE.DBF"  // change this line for your path

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

function Main()

   MsgInfo( TestDialog() )

return (0)

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

init procedure PrgInit

    SET DATE ITALIAN
    SET CENTURY ON
    SET TIME FORMAT TO "HH:MM:SS"
    SET EPOCH TO YEAR(DATE())-50

    SET DELETED ON
    SET EXCLUSIVE OFF

    RDDSETDEFAULT( "DBFCDX" )

    XbrNumFormat( 'A', .t. )
    SetGetColorFocus()

return

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

static function TestDialog()

   local oDlg, oBrw, oFont, cRet
   local bSeek

   USE (cDbf) NEW SHARED
   SET ORDER TO TAG ORDER1
   GO TOP

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 637,600 PIXEL ;
      TITLE "Sample Records" ;
      FONT oFont

   @ 10,10 XBROWSE oBrw SIZE 300,230 PIXEL OF oDlg ;
      COLUMNS "Name",     "LastName", "Sup_no" ;
      HEADERS "Header 1", "Name", "Supplier No." ;
      ALIAS "Sample" AUTOSORT LINES CELL NOBORDER


   @ 250,10 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 280,10 PIXEL OF oDlg ;
      COLOR CLR_BLACK, CLR_YELLOW

   // Next two lines are a Small work around for case insensitive seek
   bSeek      := oBrw:bSeek
   oBrw:bSeek := { |c| Eval( bSeek, Upper( c ) ) }
   // The above two lines will not needed from FWH 11.1 onwards


   SETKEY( VK_RETURN, { || cRet := FIELD->NAME, oDlg:end() } )
   SETKEY( Asc("Y"),  { || If( GetKeyState( VK_CONTROL ), oBrw:Seek(), nil ) } )


   WITH OBJECT oBrw
      :bClrSelFocus     := { || { CLR_WHITE, CLR_GREEN } }
//      :nHeadStrAligns   := AL_CENTER
      :nStretchCol      := STRETCHCOL_WIDEST
      :nMarqueeStyle    := 5
   END

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )
   RELEASE FONT oFont

return cRet