TXBrowse -> Se ejecuta 2 veces ::bEditValid ?
Posted: Tue Jun 23, 2009 10:12 am
Hola,
Pues eso, parece ser q se me ejecuta 2 veces o hago algo mal, no se....
Alguna idea ?
Pues eso, parece ser q se me ejecuta 2 veces o hago algo mal, no se....
- Code: Select all Expand view
- # INCLUDE "FiveWin.ch"
# INCLUDE "XBrowse.ch"
FUNCTION MAIN()
local oWnd, aLin := {}, i, oBrw
for i := 1 TO 6
AAdd( aLin, { "Description " + Str( i ) } )
next
DEFINE WINDOW oWnd
oBrw := TxBrowse():New( oWnd )
oBrw:SetArray( aLin )
oBrw:aCols[1]:cHeader := 'Description'
oBrw:aCols[1]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) }
oBrw:aCols[1]:bEditValid := { | oGet, oCol | ( MsgInfo( oGet:VarGet(), 'bEditValid'), oCol:PostEdit(), .t. ) }
oBrw:aCols[1]:nEditType := EDIT_GET
oBrw:CreateFromCode()
oWnd:oClient:=oBrw
ACTIVATE WINDOW oWnd
RETU NIL
Alguna idea ?