mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-20 14:16:11 +02:00
51 lines
1.2 KiB
ObjectPascal
51 lines
1.2 KiB
ObjectPascal
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.
|
|
{
|
|
$Log$
|
|
Revision 1.3 2003-10-27 15:48:13 peter
|
|
* renamed forms unit to xforms to prevent conflict with Forms
|
|
from the LCL
|
|
|
|
Revision 1.2 2002/09/07 15:42:57 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
Revision 1.1 2002/01/29 17:55:01 peter
|
|
* splitted to base and extra
|
|
|
|
}
|