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
|
{ Form definition file generated with fdesign. }
program flclock;
uses xforms;
var
fclock : PFL_FORM;
procedure exit_cb (ob : PFL_OBJECT; q : longint);cdecl;
begin
halt(0);
end;
procedure create_form_clock;
var
obj : PFL_OBJECT;
begin
if (fclock<>nil) then exit;
fclock := fl_bgn_form(FL_NO_BOX,500,350);
obj := fl_add_box(FL_UP_BOX,0,0,500,350,'');
obj := fl_add_clock(FL_DIGITAL_CLOCK,190,20,140,30,'');
fl_set_object_boxtype(obj,FL_ROUNDED_BOX);
fl_set_object_color(obj,FL_COL1,FL_BLACK);
fl_set_object_lsize(obj,FL_MEDIUM_SIZE);
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
obj := fl_add_clock(FL_ANALOG_CLOCK,30,70,220,200,'');
fl_set_object_boxtype(obj,FL_UP_BOX);
obj := fl_add_clock(FL_ANALOG_CLOCK,260,70,220,200,'');
fl_set_object_boxtype(obj,FL_OVAL_BOX);
obj := fl_add_button(FL_NORMAL_BUTTON,380,300,100,30,'Exit');
fl_set_object_callback(obj, PFL_CALLBACKPTR(@exit_cb), 0);
fl_end_form;
end;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
create_form_clock();
fl_set_form_dblbuffer(fclock, 1);
fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks');
fl_do_forms();
end.
|
