Re: xbrowse edit columns
Posted: Fri Aug 16, 2019 3:15 am
Friends, how to do this with 2 buttons + -
REGARDS
REGARDS
www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
WITH OBJECT oBrowse:aCols[ 4]
:nWidth := 100
:nDataStrAlign := AL_CENTER
:AddBitmap( { FW_BmpPlus(), FW_BmpMinus() } )
// Right Button
:nEditType := EDIT_BUTTON
:bEditBlock := { |r,c,oCol|IIF(!oBrowse:nArrayAt = 1, oCol:Value + 1,) }
:nBtnBmp := 1
:lBtnTransparent := .t.
// Left Button
:bBmpData := { |v,lSel| If( lSel, 2, 0 ) }
:bBmpAction := { |oCol| IIF(!oBrowse:nArrayAt = 1,IIF( oCol:Value>0,oCol:VarPut( oCol:Value - 1 ),),) }
:bOnChange := bCalcRow
:lBmpTransparent := .T.
END