fpc/packages/forms/demo/pushme.pp

Program pushme;

uses forms;

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.2  2000-07-13 11:33:14  michael
  + removed logs
 
}