Hello Antonio,
Could you please post an example for:
xBrowser - ARRAY
Add, Del, Select a Item
Thanks in advance
Otto
???? does not work:
@ 300, 25 BUTTON "&Add" OF oChild PIXEL ;
ACTION ( AAdd( aStruc, Time() ), oBrw:Refresh() )
@ 300, 125 BUTTON "&SELECT" OF oChild PIXEL ;
ACTION (oBrw:Select(2) )
# INCLUDE "FiveWin.ch"
# INCLUDE "XBrowse.ch"
//-------------
FUNCTION Main()
//-------------
LOCAL oWnd,aLin:={},i,oBrw
FOR i:=1 TO 6
AAdd(aLin,{i,'DescripciĆ³n '+Str(i)})
NEXT
DEFINE WINDOW oWnd
//--DefiniciĆ³n Objeto TxBrowse
oBrw:=TxBrowse():New(oWnd)
oBrw:SetArray(aLin)
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:aCols[1]:cHeader := 'Cod'
oBrw:aCols[1]:cEditPicture := '@k 99'
oBrw:aCols[1]:bClrEdit := oBrw:bClrStd
oBrw:aCols[1]:bOnPostEdit := {|o,x| aLin[ oBrw:nArrayAt,1] := x }
oBrw:aCols[1]:nEditType := EDIT_GET
oBrw:aCols[1]:bEditValid := {|oGet| Valida( oGet ) } //<========
//--
oBrw:aCols[2]:cHeader := 'DescripciĆ³n'
oBrw:aCols[2]:bClrEdit := oBrw:bClrStd
oBrw:aCols[2]:bOnPostEdit := {|o,x| aLin[ oBrw:nArrayAt,2] := x }
oBrw:aCols[2]:nEditType := EDIT_GET
//--
oBrw:CreateFromCode()
oBrw:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol, oBrw, aLin ) }
oWnd:oClient:=oBrw
ACTIVATE WINDOW oWnd
RETURN NIL
//-----------------------------------
STATIC FUNCTION Valida( oGet )
//-----------------------------------
LOCAL lValRet:=.T.
local bValid := oGet:bValid
local nVal := oGet:Value()
oGet:bValid = nil
IF nVal>6
// MsgAlert('No puede ser mayor que 6')
lValRet:=.f.
ENDIF
oGet:bValid = bValid
RETURN lValRet
function ShowPopup( nRow, nCol, oBrw, aLin )
local oMenu
MENU oMenu POPUP
MENUITEM "Add" ACTION ( AAdd( aLin, { AllTrim( Str( Len( aLin ) + 1 ) ), "New item" } ), oBrw:SetArray( aLin ), oBrw:Refresh() )
MENUITEM "Del" ACTION ( ADel( aLin, oBrw:nArrayAt ), ASize( aLin, Len( aLin ) - 1 ), oBrw:SetArray( aLin ), oBrw:Refresh() )
MENUITEM "Select" ACTION ( oBrw:GoTop(), oBrw:nArrayAt := 3, oBrw:Refresh() )
ENDMENU
ACTIVATE POPUP oMenu WINDOW oBrw AT nRow, nCol
return nilI would like to bring to notice some major problems with inline Edit in TxBrowse. In the above example input of a number greater than 6 is invalid and should be rejected.
Enter 7 in the first column and pess Enter. As expected the valid clause does not accept it. Then press 'Esc' key. The edit accepts 7 and writes 7. Valid clause is not honoured.
Now press any key on any cell. Edit is invoked. If we decide not to modify the value only option as a user for us to press Esc. Now press Esc. Edit writes '0' for numeric and blank for Character fields.
In Case-2, invoke edit, enter partly and click on any other cell or click outside the window. Even an invalid value is written.
As it is, it is not safe to use the inline edit features of xbrowse in real applications.
Nageswararao,
> As it is, it is not safe to use the inline edit features of xbrowse in real applications.
Yes, you are right, we need to fix those wrong behaviors.
oBrw:aCols[1]:bOnPostEdit := {|o,x,n| if ( n == 13, aLin[ oBrw:nArrayAt,1] := x, ) } if oCol:oEditGet != nil
// The nexline should be commented out
// oCol:oEditGet:nLastKey := VK_RETURN
oCol:PostEdit()
endifwhile initializing the Get:
::oEditGet:bLostFous := {|| PostEdit(nil,nil, VK_ESCAPE)} // can be any value to indicate loss of focus.
PostEdit method:
method postedit( xValue, lButton, nLastKey )
...
..
..
case ::nEditType == EDIT_GET
If ::oEditGet != nil
// insert the following 3 lines
if nLastKey != nil
::oEditGet:nLastKey := nLastKey
endifWe'd changed xbrowse' nedittype from 'N' to 'B' type, so to fit dynamic lWhen clause .
Shuming Wang
Mr ShumingWang
Have you modified xbrowse's Edit method to make it reliable? If so can you share your logic please?
Can you please share a latest example for it?
Otto,
Thanks to Rao I made a small class to Filter on Xbrowse , working from the Xbrarray.prg
I hope you need it to Kown how add ,del , an item on array
We don't need anything.
Now xbrowse works the best even on arrays too.
GOOD
