mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-21 14:16:04 +02:00
38 lines
914 B
ObjectPascal
38 lines
914 B
ObjectPascal
Program yesno;
|
|
{
|
|
A box with two buttons and a string. Simple boxes like this
|
|
are very usefull for asking questions
|
|
}
|
|
|
|
Uses xforms;
|
|
|
|
var
|
|
form : PFL_FORM;
|
|
yes,no : PFL_OBJECT;
|
|
|
|
begin
|
|
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
|
|
form := fl_bgn_form(FL_UP_BOX,320,120);
|
|
fl_add_box(FL_NO_BOX,160,40,0,0,'Do you want to quit ?');
|
|
yes := fl_add_button(FL_NORMAL_BUTTON,40,70,80,30,'Yes');
|
|
no := fl_add_button(FL_NORMAL_BUTTON,200,70,80,30,'No');
|
|
fl_end_form;
|
|
fl_show_form(form,FL_PLACE_MOUSE,FL_TRANSIENT,'Question : ');
|
|
while (fl_do_forms <> yes) do;
|
|
fl_hide_form(form);
|
|
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
|
|
|
|
}
|