Quiero usar el metodo ScrollDate de la clase Get, pero no logro ubicar un ejemplo de su uso, ni en este foro ni en la documentación de FW; alguien me puede ayudar con un ejemplo de uso tanto de ScrollDate, como de lso metodos ScrollNumber, Inc o Dec.
Saludos
Fernando Espinoza
Perdon por la insistencia, debe haber alguien que tenga experiencia con los citados metodos de la clase GET (ScrollDate, ScrollNumber, Inc, Dec).
function Main()
local oDlg
local dDay := Date()
local oGet
DEFINE DIALOG oDlg TITLE "Just a get"
@ 2, 2 SAY "Date:" OF oDlg
@ 2, 6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;
VALID ! Empty( dDay )
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
oGet:bGotFocus := { || oGet:SelectAll() }
ACTIVATE DIALOG oDlg CENTERED
return nilOK, es un avance pero quiza no me he explicado bien antes. Lo que quiero es que al tener el control Get el focus y al aplastar las techas flecha arriba y flecha abajo se incremente o disminuya el valor de la fecha o número.
Saludos
REDEFINE GET oAnyo VAR nAnyo ID 109 OF oDlg ;
FONT oFont2;
PICTURE "@E 9999";
SPINNER ;
ON UP (nAnyo++,oAnyo:Refresh());
ON DOWN (nAnyo--,oAnyo:Refresh())Gracias Manuel
Tu ejemplo funciona muy bien, pero solamente cuando se hace click con el raton en las flechitas del scroll; pero mi duda es si se puede hacer que también se incremente o disminuya la fecha aplastando las teclas flecha arriba y flecha abajo del teclado; como si se puede hacer con la clase TMPICKER para incrementar una hora.
Saludos
REDEFINE GET oFecha VAR dFecha ID 109 OF oDlg ;
FONT oFont2;
SPINNER ;
ON UP (++dFecha,oFecha:Refresh());
ON DOWN (--dFecha,oFecha:Refresh())
Hola
Porqué no usas el DTPICKER?
REDEFINE DTPICKER dFecha ID 101 OF oDLG
Saludos
Adhemar
Disculpa, pues no había captado con precisión tu pregunta.
Creo que lo que pretendes hacer pasa por la modificación de los métodos KeyDown y KeyUp de la clase TGET. Y hasta aquí llego yo. También me gustaría saber como hacerlo.
OK, ahora lo tengo al asunta más claro, aunque el tema esta dificil. Gracias por sus comentarios y ayudas.
Saludos
Fernnado Espinoza
