topic-35626

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: xbrowse edit columns
Posted: Fri Aug 16, 2019 03:15 AM

Friends, how to do this with 2 buttons + -

REGARDS

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: xbrowse edit columns
Posted: Sat Aug 17, 2019 03:55 PM

hello

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowse edit columns
Posted: Mon Aug 19, 2019 07:50 AM

please search Rao's sample test
from 18.04:

Code: Select all Collapse

   
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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion