mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-23 07:56:05 +02:00
96 lines
2.5 KiB
ObjectPascal
96 lines
2.5 KiB
ObjectPascal
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.
|
|
{
|
|
$Log$
|
|
Revision 1.3 2003-10-27 15:48:13 peter
|
|
* renamed forms unit to xforms to prevent conflict with Forms
|
|
from the LCL
|
|
|
|
Revision 1.2 2002/09/07 15:42:54 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
Revision 1.1 2002/01/29 17:55:00 peter
|
|
* splitted to base and extra
|
|
|
|
}
|