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