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
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
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 nilsurGom 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.
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. ::Type == "C"
#ifdef __CLIPPER__
SetWindowText( ::hWnd, Replicate( "*", Len( Trim ( ::buffer ) ) ) )
#else
SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), CHR ( 149 ) ),;
Len( Trim( ::buffer ) ) ) )
#endif
else
SetWindowText( ::hWnd, ::buffer )
endif
return nil