HMGforum.com

Is there any way to implement the feature in many web sites that let you click on an icon at right of the password
to show what you have typed so far without actually entering the password. On may log-ins it looks like an eyeball icon.

Thanks

Hello everyone

I will use this. I hope it helps possibly serve as an inspiration.

......

DEFINE LABEL LBL_pswd
ROW 150
COL 190
WIDTH 180
VALUE Msg_004
FONTNAME "verdana"
FONTSIZE 9
FONTCOLOR BLACK
FONTBOLD .T.
END LABEL

DEFINE TEXTBOX Txt_Pswd
ROW 170
COL 190
WIDTH 180
PASSWORD .T.
BACKCOLOR WHITE
ONGOTFOCUS frm_Login.Txt_Pswd.BACKCOLOR:={255, 255, 128}
ONLOSTFOCUS frm_Login.Txt_Pswd.BACKCOLOR:={255,255,255}
MAXLENGTH 10
ONENTER Confirm_Login()
END TEXTBOX

DEFINE IMAGE IMG_spsw
ROW 170
COL 190+180+20
WIDTH 24
HEIGHT 24
ONCLICK ukaz_psw(.t.)
PICTURE "okoo"
TOOLTIP 'Show'
END IMAGE

DEFINE IMAGE IMG_hpsw
ROW 170
COL 190+180+20
WIDTH 24
HEIGHT 24
ONCLICK ukaz_psw(.f.)
PICTURE "okoz"
TOOLTIP 'Hide'
END IMAGE


DEFINE BUTTON BT_OK
ROW 220
COL 170
CAPTION "Ok"
PICTURE "KEYS02"
FLAT .T.
WIDTH 90+30
HEIGHT 40
FONTNAME "verdana"
FONTSIZE 9
FONTBOLD .T.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
BACKCOLOR NIL
TOOLTIP Msg_005
ACTION Confirm_Login()
MULTILINE .F.
PICTALIGNMENT LEFT
END BUTTON

DEFINE BUTTON BT_ZRUS
ROW 220
COL 270+35
CAPTION Msg_006
PICTURE "logout"
FLAT .T.
WIDTH 120
HEIGHT 40
FONTNAME "verdana"
FONTSIZE 9
FONTBOLD .T.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
BACKCOLOR NIL
TOOLTIP Msg_007
ACTION Cancel_Login()
MULTILINE .F.
PICTALIGNMENT LEFT
END BUTTON


END WINDOW
frm_Login.IMG_hpsw.hide

if login_pri > 1 //prisnost prihlasenia
frm_Login.Txt_Login.SetFocus
else
frm_Login.Txt_pswd.SetFocus
endif
CENTER WINDOW frm_Login
ACTIVATE WINDOW frm_Login

RETURN NIL

......

function ukaz_psw(ako)
LOCAL lShowPass := ako
if ako=.t.
frm_Login.IMG_hpsw.show
frm_Login.IMG_spsw.hide
//frm_Login.Txt_Pswd.REDRAW
//SendMessage(frm_Login.Txt_Pswd.HANDLE, 0x00CC /*EM_SETPASSWORDCHAR*/, If(lShowPass, 0, 0x25CF), 0)
//RedrawWindow(frm_Login.Txt_Pswd.HANDLE)

else
frm_Login.IMG_hpsw.hide
frm_Login.IMG_spsw.show

endif
SendMessage(frm_Login.Txt_Pswd.HANDLE, 0x00CC /*EM_SETPASSWORDCHAR*/, If(lShowPass, 0, 0x25CF), 0)
RedrawWindow(frm_Login.Txt_Pswd.HANDLE)
return

Many thanks for sharing

I think this is what you mean

local view
window win_emp
define textbox text_12
password
define button
ACTION {|| {view:=win_emp.Text_12.value} ,{msgbox(view) }}

With this you have not hit enter to create a count of wrong password.
Franco

Hello friends

3 Samples

Sample_1.prg
Sample_2.prg
Sample_3.prg

Username = "admin"
Password = "admin"

Regards
Mustafa