Ayuda o ejemplo de Listbox o xBrowse con check box...

[ACC69]

Hola buenas tardes a todos, alguien tendra un ejemplo o que haya usado la clase de Hernan Ceccareli con check box o xBrowse? pasa que necesito listar en un browse toda la numeracion de factura y en ese listbox o xBrowse seleccionar lo que necesito filtrar y que automaticamente me vaya sumando cada factura a seleccionar en un checkbox, espero que me haya entendido mi mensaje, ando que me urge ese sencillo ejemplo de Listbox o xBrowse nativo de fivewin, gracias y se los agradecere mucho.

acc69@hotmail.com

Atte: Adrian C. C.

[Daniel Garcia-Gil]

Adrian...

xbrowse no usa un CheckBox como tal, hace una excelente emulacion del mismo, en mi particular un mejor funcionamiento ya que utilizas la imagen que quieras, pues el mismo hace uso de 2 imagenes, una que se usa para activar y otra para desactivar segun el valor del campo logico...

te dejo un ejemplo usa las imagenes que trae fivewin \fwh\bitmaps\ ... level1.bmp y level2.bmp, te repito puedes usar las imagenes que quieras para mostrar la activacion y desactivacion
la DBF usada es la encontrada en los samples de fivewin
el campo a usar como CheckBox debe ser de tipo logico y lo activas con el metodo de las columnas SetCheck( aBmps, bOnPostEdit )
aBmps = array de 2 posiciones que contienen las imagenes
bOnPostEdit = Bloque que contiene la accion post edicion

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

function main()
local oWnd
local oBrw
local oCol
local lSelection := .f.
local aData := {}
local nTotal := 0

use "customer" alias "customer" via "dbfcdx"
customer->( dbeval( {||aadd( aData,{ first,Last,Salary,.f.} ) } ) )


define window oWnd title "test"
   
   @ 0,0 xbrowse oBrw columns 1,2,3,4;
   headers "Nombre","Apellido","Salario","Seleecion" ;
   sizes 120,120, 100, 60 array aData FOOTERS of oWnd

   oBrw:aCols[ 3 ]:bFooter := {|| transform( nTotal, "999,999,999.99") }

   oBrw:aCols[ 4 ]:SetCheck( { "level1.bmp", "level2.bmp" }, ;
                                          {|o, v| o:Value( v ), ;
                                          if( v, nTotal += oBrw:aRow[ 3 ],nTotal -= oBrw:aRow[ 3 ]),;
                                          oBrw:aCols[ 3 ]:RefreshFooter()  } )
                                          
   oBrw:aCols[ 4 ]:bStrData := { || NIL }
   
   oBrw:createfromcode()
   oWnd:oClient = oBrw
   
   
activate window oWnd

[Ale SB]

Existe una adptaçao da classe multsel.prg do Hernan para usar con la xbrowse, mire aqui :

http://www.toyanet.com.br/arquivos/xmultsel.zip

tene un otimo ejemplo tambiem.

Saluds, ale

[Otto]

Hello Daniel,
Do we need a certain version of FWH for your example?

Thanks in advance

Otto

Code: Select all  Expand view  RUN

Error description: Error BASE/1108  Argument error: AT
   Args:
     [   1] = C   \rtf
     [   2] = U   

Stack Calls
===========
   Called from:  => AT(0)
   Called from: .\source\function\GTF.PRG => ISRTF(0)
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(0)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(0)
   Called from: .\source\classes\CONTROL.PRG => TXBROWSE:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => UPDATEWINDOW(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
   Called from: C:\fwhtests\xBrowser\multisel.prg => MAIN(41)


[Antonio Linares]

Otto,

Please check that you have this code in Class TXBrowse: (search for "isrtf" in xbrowse.prg)

Code: Select all  Expand view  RUN

   if ::bStrData != nil
      cData := Eval( ::bStrData )
      if ValType( cData ) != 'C'
         cData := cValToChar( cData )
      endif
      if ! Empty( ::nDataStrAlign )
         cData := AllTrim( cData )
      endif
      if isrtf( cData )
         cData := "<RichText>"
      endif
   else
      cData := ""
   endif


[ACC69]

Existe una adptaçao da classe multsel.prg do Hernan para usar con la xbrowse, mire aqui :

http://www.toyanet.com.br/arquivos/xmultsel.zip

tene un otimo ejemplo tambiem.

Saluds, ale

Hola amigos del foro gracias por sus respuesta que me dieron idea de como implementarlo en mi listbox, una ayudita mas, de donde puedo descargar el bitmap del check-box, o alguien me la puede enviar a mi correo, gracias y se los agradezco mucho por la ayuda

acc69@hotmail.com

Saludos a todos
Atte: Adrian C. C.

[Ale SB]

Adrian C. C., como estas amigo;

En el ejemplo del xMuilSel, veja el Arquivo Test_xm.Res, estao los Bitmaps ( checks )...ok.

Saluds, Ale

[Daniel Garcia-Gil]

http://www.sitasoft.com/fivewin/bitmap/on.bmp
http://www.sitasoft.com/fivewin/bitmap/off.bmp