usando el codigo :
- Code: Select all Expand view
@ 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"
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 :
- Code: Select all Expand view
cText := if( !Empty( ::cInCaption ), ::cInCaption, ;
if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 4 )
reemplazarlo por :
- Code: Select all Expand view
cText := if( !Empty( ::cInCaption ), ::cInCaption, ;
if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 8 )
seria bueno poder agregarlo en la proxima revision.
Gracias.