1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Program yesno;
{
A box with two buttons and a string. Simple boxes like this
are very useful 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.
|
