Input data but not showing what you done

[tsai8839]

Hi all,
I want to key-in a word through Get VAR and I want the data display ******* instead of my actually key-in word.

Code: Select all  Expand view

FUNCTION Test()
    Local oDlg, oGet
    cName := SPACE(7)
    DEFINE DIALOG oDlg RESOURCE "Test" TITLE "Please key-in your name"
    REDEFINE GET oGet VAR cName PICTURE "NNNNNNN" ID 110 OF oDlg
    REDEFINE BUTTON ID 120 OF oDlg ACTION oDlg:End()
    ACTIVATE DIALOG oDlg CENTERED
RETURN Nil


Above is my normal code, how to modify my Get VAR code in order that I can input a word and it will display ******* ?

Any help will be much appreciated.
Thanks in advance.

[Antonio Linares]

Andy,

Use ES_PASSWORD style for the GET in the resource file, i.e.:

#define ES_PASSWORD 32

EDITTEXT 100, 32, 42, 78, 15, ES_PASSWORD | WS_BORDER | WS_TABSTOP

[tsai8839]

Antonio,

Thank you very much for your help.