xBrowse, se puede poner un Spinn

[VitalJavier]

Que tal Saludos a Todos

Pues eso, quiero saber si se puede poner un <Spinn> en una columna del xBrowse
para poder incrementar o disminuir unos contadores que tengo.

He visto que se puede poner el GET normal, el BOTTON, LISTBOX, pero no encuentro un <Spinn>

[karinha]

http://wiki.fivetechsoft.com/doku.php?i ... ds_xbrowse

http://forums.fivetechsupport.com/viewt ... =3&t=24961

[VitalJavier]

Karinha, gracias por responder

Pero ya leei lo que me mandaste y no veo alguna forma de
poner el <SPINNER> en una celda del xbrowse

[karinha]

Algo asi, no és mejor?

http://forums.fivetechsupport.com/viewt ... =3&t=15652

Saludos.

[VitalJavier]

Se podría Asi ??



Dentro del xbrowse.

[karinha]

Mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?p=76308

Code: Select all

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

Function main()
local oWnd, oBrw, oBrw2, oFld
local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }


    set date format to "mm/dd/yyyy"

    use customer alias customer new

    define window oWnd title "Test DatePick and TimePick on xBrwose" 
    
  
    @ 0,0 FOLDER oFld OF oWnd size 300,300;
      PROMPTS "Array", "Dbf" 

    @ 0,0 xbrowse oBrw columns {1,2,3} array aArray of oFld:aDialogs[ 1 ] fastedit
    
    oBrw:nRowHeight := 25
    
    oBrw:aCols[ 1 ]:nEditType := EDIT_GET
    
    oBrw:aCols[ 2 ]:nEditType := EDIT_TIME
    oBrw:aCols[ 2 ]:nWidth := 130
    
    oBrw:aCols[ 3 ]:nEditType := EDIT_DATE
    oBrw:aCols[ 3 ]:nWidth := 130

    oBrw:lAutoappend := .f.
    oBrw:CreateFromCode()
    
    @ 0,0 xbrowse oBrw2 columns "first", "last", "hiredate" alias "customer" of oFld:aDialogs[ 2 ] fastedit
    
    oBrw2:nRowHeight := 25
    
    
    oBrw2:aCols[ 3 ]:nEditType := EDIT_DATE
    oBrw2:aCols[ 3 ]:nWidth := 130

    oBrw2:lAutoappend := .f.
    oBrw2:CreateFromCode()

    oWnd:oClient := oFld
    oFld:aDialogs[ 1 ]:oClient := oBrw
    oFld:aDialogs[ 2 ]:oClient := oBrw2
    
    activate window oWnd on init (oFld:aDialogs[ 1 ]:resize())
    
    
return nil
 

Saludos.

[joseluisysturiz]

Saludos...retomando este tema, gracias...