fpc/packages/xforms/examples/pushme.pp
marco 857da2934c * xforms moved
git-svn-id: trunk@10015 -
2008-01-27 09:51:30 +00:00

17 lines
388 B
ObjectPascal

Program pushme;
uses xforms;
var simpleform : PFL_FORM;
{ formname,buttonname : string;
}
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
simpleform := fl_bgn_form(FL_UP_BOX,230,160);
fl_add_button(FL_NORMAL_BUTTON,40,50,150,60,'Pushme');
fl_end_form;
fl_show_form(simpleform, FL_PLACE_MOUSE, FL_NOBORDER, 'Push me');
fl_do_forms;
fl_hide_form(simpleform);
end.