Click above to get retro games delivered to your door ever month!

BROWSEDBF AT [<top>], [<left>], [<bottom>], [<right>] ;
       [COLUMNS <columns>] [TITLE <title>] [FOOTERS <footers>] ;
       [TOPBLOCK <topblock>] [BOTTOMBLOCK <bottomblock>] ;
       [SCOPEBLOCK <scopeblock>] [EDIT <edit>] ;
       [ACTIONKEYS <actionkeys>] [COLOR <color>] [SHADOW <shadow>]
       ; [FRAME <frame>] [FRAMECOLOR <framecolor>] ; [SCROLLBAR
       <scrollbar>] [MESSAGES <messages>] ; [AUTOLITE <autolite>] 
       [FREEZE <freeze>] ; [STABILIZE <stabilize>] ; 
 ----------------------------------------------------------------------------

Purpose: Display and handle keystrokes for a TBrowse defined on
         the currently selected database file. All parameters have
         defaults. By allowing the function to set them,
         twDBrowse() operates similarly to DBedit(), but with
         superior keystroke defaults.

         Record scoping is supported in twDBrowse().

         The TBrowse processes the following keys:

           Up Arrow ---------+
           Down Arrow        |
           Left Arrow        |
           Right Arrow       |
           Page Down         |- Scroll the Highlight Bar in
           Page Up           |  the normal way.
           Ctrl Page Down    |
           Ctrl Page Up      |
           Ctrl Left Arrow   |
           Ctrl Right Arrow  |
           Ctrl Home         |
           Ctrl End ---------+

           Escape         - Exit with no choice.
           Enter          - If EditFlag is .T., allow editing of
                            the current field in the current
                            record, otherwise, exit the browse.
           Delete         - Mark the current record for deletion.
           Alpha Keys     - Speed Search with display of key.
           F1             - Display default keystroke handling.
           F8             - Swap current column with the one on
                            the left.
           F7             - Delete the current column from the
                            display.
           F9             - Subtract one to the count of columns
                            on the left which are frozen. The
                            freeze value defaults to 0.
           F10            - Add one to the count of columns
                            on the left which are frozen. The
                            freeze value defaults to 0.

Parameters: SEE twDBrowse()

Example: LOCAL TopBlock, BotBlock, ScopeBlock
         LOCAL wT := 3, wL := 10, wB := 20, wR := 60
         LOCAL wColor := "w+/rb,b/w,,gr+/rb,bg+/b"
         LOCAL sType := 3, fType := 4, Editflag := .T.
         LOCAL wfColor := "gr+/rb"
         LOCAL columns := NIL, ActionKeys := NIL, Footers := NIL
         FIELD codekey, codeshort, continent

         USE windemo INDEX windemo ALIAS test NEW
         TopBlock   := {|| codekey = "B" }
         BotBlock   := {|| codekey = "P" }
         ScopeBlock := {|| codekey >= "B" .AND. codekey <= "P" }

         // position record pointer within scope
         GO TOP
         SEEK "B"

         columns := {}
         AADD( Columns, TBColumnNew( "Code;Key", ;
                  FIELDBLOCK( "codekey" ) ))
         AADD( Columns, TBColumnNew( "Code;Description", ;
                  FIELDBLOCK( "codeshort" ) ))

         BROWSEDBF AT 0,0,MAXROW(),MAXCOL() ;
           COLUMNS columns TITLE "Header File Test" ;
           FOOTERS footers ;
           TOPBLOCK TopBlock BOTTOMBLOCK BotBlock ;
           SCOPEBLOCK ScopeBlock EDIT EditFlag ;
           ACTIONKEYS Actionkeys COLOR "n/w,gr+/r,,,n/b" SHADOW 7 ;
           FRAME 7 FRAMECOLOR "gr+/bg" SCROLLBAR .T. ;
           MESSAGES .T. AUTOLITE .T. FREEZE 1 STABILIZE .F.