mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-20 21:16:06 +02:00
30 lines
688 B
ObjectPascal
30 lines
688 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.
|
|
{
|
|
$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:02 peter
|
|
* splitted to base and extra
|
|
|
|
}
|