TGet no limpia bien caracteres en mayusculas.

[Ariel]

buen dia,

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"

 

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

         cText  := if( !Empty( ::cInCaption ), ::cInCaption, ;
                       if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 4 )
 

reemplazarlo por :

Code: Select all

         cText  := if( !Empty( ::cInCaption ), ::cInCaption, ;
                       if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 8 )
 

seria bueno poder agregarlo en la proxima revision.
Gracias.