***** EN PASSWORD COM WORKSHOP.EXE

[karinha]

Code: Select all

//-> Maestro Antonio, Que Falta Hacer, Para Que Siempre Que Jo Tenga un

//-> GET CON PASSWORD en WORKSHOP.EXE O PELLESC.EXE, Venga Siempre un *** ??

// De Esta Forma, Sole Viene en la Entrada de la Window Principal,
// en los DIALOGOS, Vienes ||||| (chr(149)) y No ****(chr(42)) Ayuda-me!
//
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

Muchas Gracias,

Regards, saludos.

[surGom]

Hola Karina yo utilizo un get y en el código pongo:

REDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.)

oGet:lpassword := .t.

Espero sea la respuest a tu consulta

Utilizó workshop y fwh26 y xharbour 9.61

Luis

[karinha]

Hola Karina yo utilizo un get y en el código pongo:

REDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.)

oGet:lpassword := .t.

Espero sea la respuest a tu consulta

Utilizó workshop y fwh26 y xharbour 9.61

Luis

Gracias Luis, Voy intentar y Reporto.

Regards, saludos.

[Ramon Paredes]

Karina,

Desde el workshop te permite definir en tu dialogo los get como pasword asi te convierte lo que digites durante la captura en ******, en las propiedades de text style puedes definie password, con un check y listo.

y en la aplicacion no tienes mas que hacer un get normal

REDEFINE GET oPass Var mPass ID 101 of oDlg

Ojala te ayude,

Ramon Paredes
Managua, Nicaragua

[karinha]

Karina,

Desde el workshop te permite definir en tu dialogo los get como pasword asi te convierte lo que digites durante la captura en ******, en las propiedades de text style puedes definie password, con un check y listo.

y en la aplicacion no tienes mas que hacer un get normal

REDEFINE GET oPass Var mPass ID 101 of oDlg

Ojala te ayude,

Ramon Paredes
Managua, Nicaragua

Gracias Ramon...

Hago asi:

Está correcto?

DLG_SENHAS_USUARIOS DIALOG 94, 94, 288, 74
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_OVERLAPPED | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME
CAPTION "Senhas de Acessos"
FONT 8, "MS Sans Serif"
{
EDITTEXT 103, 169, 12, 100, 14, ES_CENTER | ES_PASSWORD | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Gravar Dados", 301, 67, 46, 90, 17
PUSHBUTTON "&Cancelar", 302, 160, 46, 60, 17
CTEXT "Senha do Operador:", 405, 18, 12, 148, 14, SS_CENTER | WS_BORDER | WS_GROUP
}

[Ramon Paredes]

Karina,

Asi te debe funcionar bien con sus asteriscos,


Ramon Paredes
Managua, Nicaragua

[karinha]

Karina,

Asi te debe funcionar bien con sus asteriscos,


Ramon Paredes
Managua, Nicaragua

Ramon, en WINDOWS XP, NO!

Regards, saludos.

[Ramon Paredes]

Karina,

Yo trabajo con XP profesional SP 2 y me funciona bien, que problemas te presenta, o que no funciona ?

Ramon Paredes
Managua, Nicaragua

[karinha]

Karina,

Yo trabajo con XP profesional SP 2 y me funciona bien, que problemas te presenta, o que no funciona ?

Ramon Paredes
Managua, Nicaragua

Ramon, si és un DIALOGO en el Window Principal, el GET devuelve asi:

****, se és en un DIALOGO normal de otra funcion, me devuelve asi: |||

Mi gusta asi: ***

Comprende?

[Ramon Paredes]

Karina,

Te envie un correo con un ejemplo practico, en uno de los menu, presento un dialogo con pasword, independiente de la pantalla principal y me devuelve ****** ojala te sirva, te envie el fuente y el recurso para que lo revises ok,

Saludes

Ramon Paredes
Managua, Nicaragua

[karinha]

Gracias Ramon... Mas és lo que lo dice, en una VENTANA PRINCIPAL, funciona perfecto, cuando estoy en UNA DIALOG de Otra funcion, retorna: |||||, entonces, para que se tenga el efecto de WINDOWS XP, usa-se una FUENTE TAHOMA. Asi, WINDOWS XP, retorna una PELOTA, bien bonita.

Regards, saludos.

[Vital]

Karina, prueba cambiandole el tipo de letra al Dialogo, yo le pongo TAHOMA 10

[karinha]

Karina, prueba cambiandole el tipo de letra al Dialogo, yo le pongo TAHOMA 10

Gracias VITAL, és lo que hago. Creo, no és Posible retorno con: ****.

Muchas gracias.

Regards, saludos.