home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UDEMOCUM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.3 KB  |  64 lines
  1. unit Udemocum;
  2.  
  3. interface
  4.  
  5. { This unit shows an "Histogram" type of Chart.
  6.  
  7.    There are two Series:
  8.  
  9.      1) The data
  10.      2) The continous accumulated data (using a TCumulative Function)
  11.  
  12.    The Chart can be saved as "Component Template" in Delphi 3.0 for later
  13.      reuse.
  14. }
  15.  
  16. uses
  17.   WinTypes,WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  18.   TeEngine, Series, ExtCtrls, TeeProcs, Chart, teeCumu, TeeFunci,TeeGally,
  19.   StdCtrls;
  20.  
  21. type
  22.   TCummuForm = class(TForm)
  23.     Chart1: TChart;
  24.     Series1: TBarSeries;
  25.     Button1: TButton;
  26.     Series2: TLineSeries;
  27.     Label1: TLabel;
  28.     TeeFunction1: TCumulative;
  29.     Label3: TLabel;
  30.     Button2: TButton;
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure Button2Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   CummuForm: TCummuForm;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46. uses EditChar;
  47.  
  48. procedure TCummuForm.FormCreate(Sender: TObject);
  49. begin
  50.   Series1.AddArray([0,5,4,2,3,1]);
  51. end;
  52.  
  53. procedure TCummuForm.Button1Click(Sender: TObject);
  54. begin
  55.   EditChart(Self,Chart1);
  56. end;
  57.  
  58. procedure TCummuForm.Button2Click(Sender: TObject);
  59. begin
  60.   Close;
  61. end;
  62.  
  63. end.
  64.