2
{ Demo showing secret input fields }
7
but, password1, password2, info, ret : PFL_OBJECT;
12
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
14
form := fl_bgn_form( FL_FLAT_BOX,400,300);
15
password1 := fl_add_input(FL_SECRET_INPUT,140,40,160,40,'Password 1:');
16
password2 := fl_add_input(FL_SECRET_INPUT,140,100,160,40,'Password 2:');
17
info := fl_add_box(FL_SHADOW_BOX,20,160,360,40,'');
18
but := fl_add_button( FL_NORMAL_BUTTON,280,240,100,40,'Quit');
21
fl_show_form(form, FL_PLACE_MOUSE,FL_NOBORDER,nil);
24
str:='Password 1 is: '+strpas(fl_get_input(password1));
25
str:=str+' , Password 2 is: '+strpas(fl_get_input(password2))+#0;
26
fl_set_object_label(info,@str[1]);
31
$Log: secretinput.pp,v $
32
Revision 1.3 2003/10/27 15:48:13 peter
33
* renamed forms unit to xforms to prevent conflict with Forms
36
Revision 1.2 2002/09/07 15:42:57 peter
37
* old logs removed and tabs fixed
39
Revision 1.1 2002/01/29 17:55:02 peter
40
* splitted to base and extra