home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UTREND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.3 KB  |  62 lines
  1. unit utrend;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, CurvFitt, Series;
  8.  
  9. type
  10.   TTrendForm = class(TForm)
  11.     Chart1: TChart;
  12.     Series1: TLineSeries;
  13.     Series2: TLineSeries;
  14.     TeeFunction1: TTrendFunction;
  15.     Panel1: TPanel;
  16.     Memo1: TMemo;
  17.     Button1: TButton;
  18.     CheckBox1: TCheckBox;
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure CheckBox1Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   TrendForm: TTrendForm;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TTrendForm.Button1Click(Sender: TObject);
  36. begin
  37.   Close;
  38. end;
  39.  
  40. procedure TTrendForm.FormCreate(Sender: TObject);
  41. var t,tmp:Integer;
  42. begin
  43.   Series1.Clear;
  44.   tmp:=Random(2000);
  45.   for t:=1 to 100 do
  46.   begin
  47.     Series1.Add(tmp,'',clTeeColor);
  48.     tmp:=tmp+Random(500)-249;
  49.   end;
  50.   Series2.CheckDataSource; { <-- re-calc Trend }
  51. end;
  52.  
  53. procedure TTrendForm.CheckBox1Click(Sender: TObject);
  54. begin
  55.   if CheckBox1.Checked then
  56.      TeeFunction1.Period:=25  { <-- every 25 points }
  57.   else
  58.      TeeFunction1.Period:=0   { <-- all points }
  59. end;
  60.  
  61. end.
  62.