freepascal.compiler/packages/extra/forms/demo/pushme.pp

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

}