mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 09:15:45 +02:00
24 lines
612 B
ObjectPascal
24 lines
612 B
ObjectPascal
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.
|