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