FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index To do - WishList / Por hacer - Peticiones TGet no limpia bien caracteres en mayusculas.
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM
TGet no limpia bien caracteres en mayusculas.
Posted: Wed Apr 10, 2019 02:13 PM
buen dia,

usando el codigo :
Code (fw): Select all Collapse
      @ 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 (fw): Select all Collapse
         cText  := if( !Empty( ::cInCaption ), ::cInCaption, ;
                       if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 4 )

reemplazarlo por :
Code (fw): Select all Collapse
         cText  := if( !Empty( ::cInCaption ), ::cInCaption, ;
                       if( !Empty( ::cCueText ), ::cCueText, "" ) ) + Space( 8 )

seria bueno poder agregarlo en la proxima revision.
Gracias.

Continue the discussion