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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
program chartall;
{ Showing all different charts }
{ Form definition file generated with fdesign. }
uses xforms;
var
form : PFL_FORM;
barchart,
linechart,
filledchart,
piechart,
specialpiechart,
exitbut,
horbarchart,
spikechart : PFL_OBJECT;
procedure create_form_form;
var
obj : PFL_OBJECT;
begin
form := fl_bgn_form(FL_NO_BOX,940,360);
obj := fl_add_box(FL_UP_BOX,0,0,940,360,'');
obj := fl_add_chart(FL_BAR_CHART,20,20,210,140,'BAR_CHART');
barchart := obj;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj := fl_add_chart(FL_LINE_CHART,250,20,210,140,'LINE_CHART');
linechart := obj ;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj := fl_add_chart(FL_FILL_CHART,250,190,210,140,'FILL_CHART');
filledchart := obj ;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj := fl_add_chart(FL_PIE_CHART,480,190,210,140,'PIE_CHART');
piechart := obj;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj:= fl_add_chart(FL_SPECIALPIE_CHART,710,20,210,140,'SPECIALPIE_CHART');
specialpiechart := obj ;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj := fl_add_button(FL_NORMAL_BUTTON,750,260,140,30,'Exit');
exitbut := obj;
obj:= fl_add_chart(FL_HORBAR_CHART,20,190,210,140,'HORBAR_CHART');
horbarchart := obj;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
obj:= fl_add_chart(FL_SPIKE_CHART,480,20,210,140,'SPIKE_CHART');
spikechart := obj;
fl_set_object_boxtype(obj,FL_RSHADOW_BOX);
fl_end_form();
end;
{---------------------------------------}
procedure fill_in(ob : PFL_OBJECT);
var c : longint;
begin
c := FL_BLACK+1;
fl_add_chart_value(ob,15.0,'item 1',c); inc(c);
fl_add_chart_value(ob,5.0,'item 2',c);inc(c);
fl_add_chart_value(ob,0.0,'item 3',c);inc(c);
fl_add_chart_value(ob,-10.0,'item 4',c);inc(c);
fl_add_chart_value(ob,25.0,'item 5',c);inc(c);
fl_add_chart_value(ob,12.0,'item 6',c);inc(c);
end;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
create_form_form();
fill_in(barchart);
fill_in(horbarchart);
fill_in(linechart);
fill_in(filledchart);
fill_in(spikechart);
fill_in(piechart);
fill_in(specialpiechart);
fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'Charts');
fl_do_forms();
end.
|
