[futurebasic] Re: [FB] Password with DLOG

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 1999 : Group Archive : Group : All Groups

From: AlStaff@...
Date: Sun, 4 Apr 1999 23:11:22 EDT
>I want to make a password dialog, but i'm not sure how to trap
>the keyboard to only show 'bullets' in the text field.


Quickie sample program:

gPassword$ = ""
gProgramEnd = 0
END GLOBALS

LOCAL FN doEdit
 X$ = TEKEY$
 gPassword$ = gPassword$ + X$
 TEKEY$ = "•"
END FN

LOCAL FN doDialog
 evnt = DIALOG(0)
 id = DIALOG(evnt)
 LONG IF evnt = _btnClick
  gProgramEnd = 1
 END IF
END FN

ON EDIT FN doEdit
ON DIALOG FN doDialog
WINDOW 1, "Password Test", (3,41)-(509,338)
EDIT FIELD 1, "", (10,10)-(110,26)
BUTTON 1,1, "OK", (10,35)-(90,60),1

WHILE gProgramEnd = 0
 HANDLEEVENTS
WEND

CALL MOVETO (10,100)
PRINT "password = " gPassword$
DELAY 1000
END


Al Staffieri Jr.

AlStaff@...
http://members.aol.com/AlStaff/index.html