Re: xbrowse edit columns
Posted: Fri Aug 16, 2019 3:15 amFriends, how to do this with 2 buttons + -
REGARDS
REGARDS
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
xbrowse edit columns
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=35626
Page 2 of 2
Posted: Fri Aug 16, 2019 3:15 amRe: xbrowse edit columns
Posted: Sat Aug 17, 2019 3:55 pmhello
Re: xbrowse edit columns
Posted: Mon Aug 19, 2019 7:50 amplease search Rao's sample test
from 18.04:
from 18.04:
- Code: Select all Expand view
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