1program secretinput;
2{ Demo showing secret input fields }
3
4uses xforms,strings;
5
6var form : PFL_FORM;
7   but, password1, password2, info, ret : PFL_OBJECT;
8   str : string;
9
10begin
11
12  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
13
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');
19  fl_end_form;
20
21  fl_show_form(form, FL_PLACE_MOUSE,FL_NOBORDER,nil);
22  repeat
23    ret := fl_do_forms;
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]);
27  until (ret = but);
28  fl_hide_form(form);
29end.
30