Hello,
Using xbrowse , i have problems with bPasteof() when the verical scroll bar is used .
This bar can be used to scroll trough the database , and to put the record pointer on the last row.
Now we can append with :
1) Pressing Key Down : ok it works
2) Clicking on the bottom from the vertical scroll bar
WE BECOME A LOOPING FROM EXECUTING bPAstEof !!!!!!!!!!!!
In testxbrw.prg , i changed :
STATIC FUNCTION AutoEdit( oWnd )
local oChild, oBrw, oCol
local nFor
DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd
oBrw := TXBrowse():New( oWnd )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:SetRDD()
for nFor := 1 to len( oBrw:aCols )
oCol := oBrw:aCols[ nFor ]
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }
next
oBrw:CreateFromCode()
oChild:oClient := oBrw
oBrw:bPastEof() := {||msginfo("APND")} // ADDED !!!!!!!!!!!!
ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()
RETURN NIL
CAN IT BE CONFIRMED ???????
Frank