Lost compatibility in xBrowse 18.05 **SOLVED **

[Maurizio]

Hello Rao

I use oBrw:lColChangeNotify := .t.

after edit a column when I confirm with Enter oBrw:bChange it was executed .

With last version 18.05 this doesn't works
This is a standard xbrwedit.prg from samples modified to highlight the error

Code: Select all  Expand view  RUN

#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
 

[nageswaragunupudi]

We are looking into this

[nageswaragunupudi]

Fixed in FWH 18.06.

You may make this modification in xbrowse.prg of FWH 18.05:

Insert this line between lines 8540 and 8541

Code: Select all  Expand view  RUN

   ::Change( .f. )
 

[Maurizio]

Ciao RAO

I have in Xbrowse.prg

Code: Select all  Expand view  RUN

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

I changed

Code: Select all  Expand view  RUN

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

but it does not work because I use FASTEDI , so I changed

Code: Select all  Expand view  RUN

 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 )
 

and it works ,but I have to change others too ::nMoveType ?

Thanks Maurizio
www.nipeservice.com

[nageswaragunupudi]

are you using revised build of 18.05?

[Maurizio]

RAO
I downloaded revised build of 18.05
Now the line numbers are OK

Grazie
Maurizio
www.nipeservice.com

[nageswaragunupudi]

Good.
Did you apply the modification?
Is the column change working correctly now?

[Maurizio]

Ciao RAO

Did you apply the modification? Yes
Is the column change working correctly now? Yes

Grazie
Maurizio
www.nipeservice.com