In the following example, click on "Show password" CheckBox:
Code: Select all
#include 'hmg.ch'
FUNCTION Main()
DEFINE WINDOW Main_WA;
MAIN;
ROW 100;
COL 100;
WIDTH 225;
HEIGHT 150;
TITLE 'TextBox Password Test';
NOSIZE;
NOMAXIMIZE;
NOMINIMIZE
DEFINE LABEL Pass_LA
ROW 10
COL 10
WIDTH 200
HEIGHT 13
VALUE 'Type password:'
END LABEL
DEFINE TEXTBOX Pass_TE
ROW 26
COL 10
WIDTH 200
HEIGHT 21
VALUE 'my password'
PASSWORD .T.
END TEXTBOX
DEFINE CHECKBOX Pass_CBO
ROW 55
COL 10
WIDTH 200
HEIGHT 16
CAPTION 'Show password'
ONCHANGE ShowPassword()
END CHECKBOX
DEFINE BUTTON OK_BU
ROW 85
COL 25
WIDTH 80
HEIGHT 25
CAPTION 'OK'
ACTION Main_WA.RELEASE
END BUTTON
DEFINE BUTTON Cancel_BU
ROW 85
COL 115
WIDTH 80
HEIGHT 25
CAPTION 'Cancel'
ACTION Main_WA.RELEASE
END BUTTON
ON KEY ESCAPE ACTION Main_WA.RELEASE
END WINDOW
Main_WA.ACTIVATE
RETURN NIL
FUNCTION ShowPassword()
LOCAL lShowPass := Main_WA.Pass_CBO.VALUE
SendMessage(Main_WA.Pass_TE.HANDLE, 0x00CC /*EM_SETPASSWORDCHAR*/, If(lShowPass, 0, 0x25CF), 0)
Main_WA.Pass_TE.REFRESH
//solution:
//RedrawWindow(Main_WA.Pass_TE.HANDLE)
RETURN NIL