freepascal.compiler/packages/extra/forms/demo/chartall.pp

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

}