TGet no limpia bien caracteres en mayusculas.
Posted: Wed Apr 10, 2019 2:13 pm
buen dia,
usando el codigo :
al escribir y un dato y perder el foco quedan rastros del texto en MAYUSCULAS,
Solucion 1:
en la clase TGet.prg metodo PAINT() el texto :
reemplazarlo por :
seria bueno poder agregarlo en la proxima revision.
Gracias.
usando el codigo :
Code: Select all
@ 110, 50 GET aTabla["101"] VAR aTabla["key1"] OF oWnd ;
COLOR Rgb( 128, 128, 128 ), CLR_WHITE;
CUEBANNER "Contraseña" PASSWORD SIZE 290, 40 PIXEL BOTTOMBORDER ;
UPDATE;
INFIELD INFONT oFontI INCLRTXT CLR_GRAY INCLRBORDER Rgb( 204, 204, 204 ) INCLRLINE CLR_RED DYNAMIC ;
FONT oFontBtn ;
PICTURE "@30"
Solucion 1:
en la clase TGet.prg metodo PAINT() el texto :
Code: Select all
cText := if( !Empty( ::cInCaption ), ::cInCaption, ;
if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 4 )
Code: Select all
cText := if( !Empty( ::cInCaption ), ::cInCaption, ;
if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 8 )
Gracias.