FiveTech Support Forums

#include "FiveWin.ch" 
#include "XBrowse.ch" 

function Main() 

   local oWnd, oBrw, oCol 

   USE Customer 
   //ZAP

   DEFINE WINDOW oWnd 
    
   @ 0, 0 XBROWSE oBrw OF oWnd ALIAS "Customer" 
    
   oBrw:lFastEdit = .T. 
    
   oCol = oBrw:AddCol() 
   oCol:bStrData    = { || Customer->First } 
   oCol:cHeader     = "First" 
   oCol:nEditType   = EDIT_GET 
   oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),), If( nKey == VK_RETURN, Customer->First := xVal,) } 

   oCol = oBrw:AddCol() 
   oCol:bStrData    = { || Customer->Last } 
   oCol:cHeader     = "Last" 
   oCol:nEditType   = EDIT_GET 
   oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, DbAppend(),), If( nKey == VK_RETURN, ( Customer->Last := xVal, DbAppend(), oBrw:Refresh() ),) } 
    
   oBrw:CreateFromCode() 
   oBrw:lColChangeNotify  := .t.
   oBrw:bChange  := {|| MyChange()}
    
   oWnd:oClient = oBrw 

   ACTIVATE WINDOW oWnd 

return nil 

Function MyChange()
  Msginfo('Change')
REturn nil

   ::Change( .f. )

8538               CASE ::nMoveType == MOVE_RIGHT
8539                  nNextPos    := ::nColSel + 1
8540                  if !::IsDisplayPosVisible( nNextPos, .t. )
8541                     ::GoLeftMost()

8538               CASE ::nMoveType == MOVE_RIGHT
8539                  nNextPos    := ::nColSel + 1
8540                  if !::IsDisplayPosVisible( nNextPos, .t. )
                             ::Change( .f. )
8541                      ::GoLeftMost()

 8495     CASE ::nMoveType == MOVE_FAST_RIGHT
                  // This is the standard default post cursor movement behavior in Fast Edit Mode
                  ::Change( .f. )
 8496           nNextPos    := 0
 8497           if ::nColSel < Len( ::aDisplay )