FiveTech Software tech support forums

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?

Manuel,

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

Antonio Linares wrote: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.

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

//-> Hola, intente con esta modificacion

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

surGom wrote: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

Manuel Valdenebro wrote:

surGom wrote: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.