Page 1 of 1
xBrowse, se puede poner un Spinn
Posted: Thu Mar 05, 2015 6:58 pm
by 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>
Re: xBrowse, se puede poner un Spinn
Posted: Fri Mar 06, 2015 1:30 pm
by karinha
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 09, 2015 7:06 pm
by 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
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 09, 2015 7:56 pm
by karinha
Re: xBrowse, se puede poner un Spinn
Posted: Tue Mar 10, 2015 4:39 pm
by VitalJavier
Se podría Asi ??
Dentro del xbrowse.
Re: xBrowse, se puede poner un Spinn
Posted: Tue Mar 10, 2015 6:13 pm
by 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.
Re: xBrowse, se puede poner un Spinn
Posted: Mon Mar 13, 2017 4:21 am
by joseluisysturiz
Saludos...retomando este tema, gracias...