1Program iconify; 2 3Uses x,forms; 4 5{$i crab.xpm} 6 7 8function create_form_form : PFL_FORM; 9 10var 11 obj : PFL_OBJECT; 12 form : PFL_FORM; 13 14begin 15 new(form); 16 form := fl_bgn_form(FL_NO_BOX,151,111); 17 obj := fl_add_pixmapbutton(FL_NORMAL_BUTTON,0,0,151,111, 18 'Iconify Me\nvia Window Manager'); 19 fl_set_object_lalign(obj, FL_ALIGN_BOTTOM or FL_ALIGN_INSIDE); 20 fl_set_object_lstyle(obj,FL_BOLD_STYLE); 21 fl_set_pixmapbutton_data(obj, crab45); 22 fl_end_form; 23 create_form_form:=form; 24end; 25 26Var form0 : PFL_FORM; 27 mask,p : TPixmap; 28 H,W : word; 29 30begin 31 fl_initialize(@argc, argv, 'FormDemo', nil, 0); 32 form0 := create_form_form; 33 p := fl_read_pixmapfile(fl_root, 'crab.xpm', Pword(@w), pword(@h), PPixmap(@mask), nil, nil, 0); 34 fl_set_form_icon(form0, p, mask); 35 fl_show_form(form0,FL_PLACE_CENTER,FL_FULLBORDER, 'IconTest'); 36 fl_do_forms(); 37end. 38