FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xBrowse, se puede poner un Spinn
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
xBrowse, se puede poner un Spinn
Posted: Thu Mar 05, 2015 06:58 PM

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>

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xBrowse, se puede poner un Spinn
Posted: Fri Mar 06, 2015 01:30 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 09, 2015 07:06 PM

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

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 09, 2015 07:56 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: xBrowse, se puede poner un Spinn
Posted: Tue Mar 10, 2015 04:39 PM
Se podría Asi ??



Dentro del xbrowse.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xBrowse, se puede poner un Spinn
Posted: Tue Mar 10, 2015 06:13 PM
Mira se ayuda:

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

Code (fw): Select all Collapse
#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 13, 2017 04:21 AM

Saludos...retomando este tema, gracias... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion