Poner 2 Botones + -

[jbrita]

como haceresto
http://forums.fivetechsupport.com/viewt ... =0#p212106

[cnavarro]

Prueba esto

Code: Select all

#include "Fivewin.ch"

Function Main()
   XbrSpinner()
Return nil

Function XbrSpinner()

   local oDlg, oFont, oBrw

   USE CUSTOMER

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 500,400 PIXEL TRUEPIXEL FONT oFont

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST", "AGE", "SALARY" ;
      LINES NOBORDER

   WITH OBJECT oBrw
      :nRowHeight    := 30
      :nStretchCol   := 3
      WITH OBJECT :Age
         :nWidth          := 100
         :nDataStrAlign   := AL_CENTER
         :AddBitmap( { FW_BmpPlus(), FW_BmpMinus() } )

         // Right Button
         :nEditType       := EDIT_BUTTON
         :bEditBlock      := { |r,c,oCol| oCol:Value + 1 }
         :nBtnBmp         := 1
         :lBtnTransparent := .t.

         // Left Button
         :bBmpData      := { | v, lSel | if( lSel, 2, 0 ) }
         :bBmpAction    := { | oCol | oCol:VarPut( oCol:Value - 1 ) }
      END
      WITH OBJECT :Salary
         :cEditPicture  := "9,999,999,999.99"
      END

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

Return nil

//----------------------------------------------------------------------------//