home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / USTDDEV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.1 KB  |  51 lines
  1. unit ustddev;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   TeEngine, StatChar, Series, TeeProcs, Chart, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TStdDevForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Memo1: TMemo;
  13.     Button1: TButton;
  14.     CheckBox2: TCheckBox;
  15.     Chart1: TChart;
  16.     Series1: TLineSeries;
  17.     Series2: TLineSeries;
  18.     TeeFunction1: TStdDeviationFunction;
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure CheckBox2Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TStdDevForm.Button1Click(Sender: TObject);
  33. begin
  34.   Close;
  35. end;
  36.  
  37. procedure TStdDevForm.FormCreate(Sender: TObject);
  38. var t:Integer;
  39. begin
  40.   Series1.Clear;
  41.   for t:=1 to 100 do Series1.Add(Random(1000),'',clRed);
  42.   Series2.CheckDataSource;
  43. end;
  44.  
  45. procedure TStdDevForm.CheckBox2Click(Sender: TObject);
  46. begin
  47.   TeeFunction1.Complete:=CheckBox2.Checked;
  48. end;
  49.  
  50. end.
  51.