OpenEuphoria

Re: Password Prompt - How?

• Posted by Derek Parnell <ddparnell at bigpond.com> Sep 30, 2003
• 586 views

On Tue, 30 Sep 2003 01:11:48 -0400 (09/30/03 15:11:48)
, <Louis at cwshop.com> wrote:

>
>
> Thanks all for your previous help.
>
> I'm stumped again.  Here is a program I made out of example 07.
> What I want is for the characters typed to display as blanks or 
> asterisks because it is a password entry field.

I forgot to mention that in the new v59.2 this can also be written as ...

include win32lib.ew
without warning

createForm({
    "Window, Enter Password, width=400, height=200, bar=status",
    "EditText, name=Password, left=10, top=40, width=10char, height=1char, 
flag=ES_PASSWORD",
    "Button, Check Value...,left=180, top=10"
    })

procedure Click_CheckValue(integer self, integer event, sequence parms)
       sequence msg
       msg = getText(getNameId("Password"))
       showMessage(0, msg)
end procedure

procedure AppCallback(integer self, integer event, sequence parms)
     if event = w32HGetHandler then
         returnValue(routine_id(parms[1]))
     end if
end procedure
startApp(routine_id("AppCallback"))

-- 

cheers,
Derek Parnell