GET password

[byte-one]

I will with a Checkbox change the status of a get from password to clear text and return. Which way i should go? Thanks.

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN( )

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 20 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar PASSWORD

    @ 3, 1 BUTTON "Show/Hide";
           ACTION ( oGet:lPassword := !oGet:lPassword,;
                    oGet:Refresh() )

    ACTIVATE DIALOG oDlg;
           CENTER

    RETURN NIL

EMG

[byte-one]

Thanks, but not functioning. The effect is only, that the variable from the get is showing with the "Points" in lenght from the variable. The get is build from resource.

[Enrico Maria Giordano]

Did you try my sample?

EMG

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view

#include "Fivewin.ch"


#define EM_SETPASSWORDCHAR 0x00CC


FUNCTION MAIN( )

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 20 )

    DEFINE DIALOG oDlg;
           RESOURCE "TEST"

    REDEFINE GET oGet VAR cVar;
             ID 101 OF oDlg

    REDEFINE BUTTON;
             ID 102 OF oDlg;
             ACTION ( oGet:lPassword := !oGet:lPassword,;
                      oGet:SendMsg( EM_SETPASSWORDCHAR, 0, 0 ),;
                      oGet:Refresh() )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

Code: Select all  Expand view

TEST DIALOG 0, 0, 300, 300
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "EDIT", ES_LEFT | ES_PASSWORD | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 10, 10, 114, 13
 CONTROL "Hide/Show", 102, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 10, 35, 41, 16
}

EMG

[byte-one]

Thanks!! This is functioning!