Re: OPO questions
Date: 1996/04/29
Message-ID: <318465B0.33DC_at_student.uu.se>#1/1
I used this code in OPO 1.0.16:
'In focus leaving method:
self.ReadOnly=False
inherited.FocusLeaving()
'In OnKey() method:
If KeyCode=KEYCODE_RETURN THEN
btnConfirm.MouseDown(x, y, shift)
End If
fldPassword.ReadOnly=True
frmLogin.forceupdate()
IF KEYCODE=0 Then
vPassword=vPassword & keychar
fldPassword.value=fldPassword.value & "*"
elseif keycode=1 Then
fldPassword.value=Null
vPassword=""
elseif keycode=14 Then
fldPassword.value=Null
vPassword=""
elseif keycode>42 Then
if keycode=43 Then
vcode=0
elseif keycode=44 Then
vcode=1
elseif keycode=45 Then
vcode=2
elseif keycode=46 Then
vcode=3
elseif keycode=47 Then
vcode=4
elseif keycode=48 Then
vcode=5
elseif keycode=49 Then
vcode=6
elseif keycode=50 Then
vcode=7
elseif keycode=51 Then
vcode=8
elseif keycode=52 Then
vcode=9
end if
vPassword=vPassword & vcode
fldPassword.value=fldPassword.value & "*"
end if
inherited.OnKey(keychar, keycode, shift)
This works both in 3.1 and 95.
Thomas Holjo
Student
Uppsala University
Sweden
Eric Therrien wrote:
>
> In article <simmianDqHD9q.2Mw_at_netcom.com>, simmian_at_netcom.com (Mark
> Morgan) wrote:
>
> > I've found 2 workarounds for this. Neither a perfect, but they work for
> > now: 1) Place a rectangle object over the password entry field, so the
> > field can't be seen. 2) Use a Symbol or other non-text font, so the
> > characters aren't legible.
> > Li Hao (hao_at_ct.med.ge.com) wrote:
> > : Hi,
> > : I am using OPO to create a login form. But I cannot make the passwd
> > : invisible when it is typed. Does anyone know how to make it invisible or
> > : make some "XXX" appear when it is typed.
> > : Thanks a lot.
>
> Well, there is a simpler solution, that I can't recall but you can find in
> a article of Oracle Informant. You can acess to the PDF file of that
> article on their Web site at
> <http://www.informant.com/oracle/oi_index.htm>. Basically, you "catch" all
> the keystroke, and display something else (like a star "*").
>
> Also, I belive tat in 1.0.16 there is a easier way to do this...
>
> --
> _____________________________________________________________________
> Eric Therrien Internet: ericth_at_montrealnet.ca
> Club Informatique Longueuil: http://www.connectmmic.net/users/cil
> Président du Club Informatique longueuil inc Montreal, PQ
> _____________________________________________________________________
Received on Mon Apr 29 1996 - 00:00:00 CEST