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