1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
{ This demo shows the use of choice objects. }
program choice;
uses xforms;
var form : PFL_FORM;
sexobj,childobj,licenceobj,marriedobj,readyobj : PFL_OBJECT;
procedure cb( ob : PFL_OBJECT; data : longint);cdecl;
begin
Writeln ('CallBack: ', fl_get_choice(ob));
end;
procedure create_form;
begin
form := fl_bgn_form(FL_NO_BOX,420,360);
fl_add_box(FL_UP_BOX,0,0,420,360,'');
fl_add_input(FL_NORMAL_INPUT,70,300,320,30,'Name');
fl_add_input(FL_NORMAL_INPUT,70,260,320,30,'Address');
fl_add_input(FL_NORMAL_INPUT,70,220,320,30,'City');
fl_add_input(FL_NORMAL_INPUT,70,180,320,30,'Country');
sexobj := fl_add_choice(FL_NORMAL_CHOICE,70,130,110,30,'Sex');
childobj := fl_add_choice(FL_NORMAL_CHOICE,280,130,110,30,'Children');
licenceobj := fl_add_choice(FL_NORMAL_CHOICE,280,80,110,30,'Licence');
marriedobj := fl_add_choice(FL_DROPLIST_CHOICE,70,80,110,30,'Married');
fl_set_object_callback(marriedobj, PFL_CALLBACKPTR(@cb),0);
readyobj := fl_add_button(FL_NORMAL_BUTTON,150,20,140,30,'Ready');
fl_end_form;
end;
var obj : PFL_OBJECT;
begin
fl_flip_yorigin;
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
create_form;
fl_addto_choice(sexobj,'Male');
fl_addto_choice(sexobj,'Female');
fl_addto_choice(childobj,'Zero|One|Two|Three|Many');
fl_addto_choice(licenceobj,'Yes');
fl_addto_choice(licenceobj,'No');
fl_addto_choice(marriedobj,'Yes');
fl_addto_choice(marriedobj,'No');
fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,Nil);
while (obj <> readyobj) do obj := fl_do_forms;
fl_hide_form(form);
end.
|
