GET Y PASSWORD

[Manuel Valdenebro]

Cuando uso un GET-PASSWORD desde recursos, cada una de las entradas se sustituyen por un "punto grueso" que queda bonito. En cambio, cuando realizo el mismo GET-PASSWORD desde código, me sustituye las entradas por "estrellitas".
¿Hay alguna manera que se vean "puntos gruesos" desde código?

[Antonio Linares]

Manuel,

Tienes que usar la fuente Tahoma para ese diálogo para que se vea igual

[Manuel Valdenebro]

Manuel,

Tienes que usar la fuente Tahoma para ese diálogo para que se vea igual

Antonio,

Estoy usando esa fuente, pero me sale la estrellita.

[surGom]

Manuel a mi el mismo programa con el get con fuente tahoma en las pc que esta configurado con los themes de xp me aparecen con los puntitos negros y en aquellos que hay win98, millenium, o xp con apariencia win98 me aparecen las estrellitas.

Luis

[karinha]

//-> Hola, intente con esta modificacion

//----------------------------------------------------------------------------//

Code: Select all

METHOD DispText() CLASS TGet

   if ::lPassword .and. ::oGet:Type == "C"
      #ifdef __CLIPPER__
         SetWindowText( ::hWnd, Replicate( "*", Len( Trim( ::oGet:buffer ) ) ) )
      #else

         /*  //-> Modifiquei em 26/08/2007 - Para Aparecer um * no PASSWORD-WS
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )
         */

         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr(  42 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )
      #endif
   else
      SetWindowText( ::hWnd, ::oGet:buffer )
   endif

return nil

[Manuel Valdenebro]

Manuel a mi el mismo programa con el get con fuente tahoma en las pc que esta configurado con los themes de xp me aparecen con los puntitos negros y en aquellos que hay win98, millenium, o xp con apariencia win98 me aparecen las estrellitas.

Ese es el problema. Sistema XP con apariencia win98.

La solución ha sido la aportada por Karinha (modificar TGet), pero cambiando la estrellita por chr(149) tambien:

METHOD DispText() CLASS TGet

if ::lPassword .and. ::oGet:Type == "C"
#ifdef __CLIPPER__
SetWindowText( ::hWnd, Replicate( "*", Len( Trim ( ::oGet:buffer ) ) ) )
#else

SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), CHR ( 149 ) ),;
Len( Trim( ::oGet:buffer ) ) ) )
#endif
else
SetWindowText( ::hWnd, ::oGet:buffer )
endif

return nil

[karinha]

Manuel a mi el mismo programa con el get con fuente tahoma en las pc que esta configurado con los themes de xp me aparecen con los puntitos negros y en aquellos que hay win98, millenium, o xp con apariencia win98 me aparecen las estrellitas.

Ese es el problema. Sistema XP con apariencia win98.

La solución ha sido la aportada por Karinha (modificar TGet), pero cambiando la estrellita por chr(149) tambien:

METHOD DispText() CLASS TGet

if ::lPassword .and. ::oGet:Type == "C"
#ifdef __CLIPPER__
SetWindowText( ::hWnd, Replicate( "*", Len( Trim ( ::oGet:buffer ) ) ) )
#else

SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), CHR ( 149 ) ),;
Len( Trim( ::oGet:buffer ) ) ) )
#endif
else
SetWindowText( ::hWnd, ::oGet:buffer )
endif

return nil

EXCELENTE MANUEL. MUI BUENA IDEA. Gracias.