No se si a algun usuario le incomoda el hecho que cuando se completa el contenido de un get, es decir, que se llegue hasta el final del mismo, el "cursor" no pasa el ultimo caracter y a la hora de borrar caracter por caracter, empezando desde este ultimo, se torna algo fastidioso el usar primero DELETE ( para borrar el ultimo caracter ) y despues BACKSPACE ( para el resto del contenido )
Para muestra una imagen
he hecho algunas modificaciones a la clase TGET para que el cursor pase este ultimo caracter despues de completado el get, como muestra la imagen, les deje un ejemplo ejecutable con el cambio si es posible prueben de la forma actual, compilando el mismo ejemplo
me gustaria saber alguna opinion o sugerencia de este cambio
http://www.sitasoft.com/fivewin/test/testget1.rar
Gracias de antemano a los interesados
- Code: Select all Expand view RUN
- #Include "FiveWin.Ch"
Function Main()
Local oDlg
Local oGet1, oGet2, oGet3, oGet4
local cVar1 := space(11)
local nVar2 := 0
local nVar3 := 0
local dVar4 := date()
DEFINE DIALOG oDlg from 0,0 to 400,400 pixel
@ 15,15 get oGet1 var cVar1 picture "@!" ;
size 50,12 of oDlg pixel
@ 30,15 get oGet2 var nVar2 picture "9999" ;
size 50,12 of oDlg pixel
@ 45,15 get oGet3 var nVar3 picture "9999.99" ;
size 50,12 of oDlg pixel
@ 60,15 get oGet4 var dVar4 size 50,12 of oDlg pixel
ACTIVATE DIALOG oDlg
return nil
