home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Function_ExpAve.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.4 KB  |  63 lines
  1. unit Function_ExpAve;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ComCtrls, StdCtrls, TeEngine, StatChar, Series, ExtCtrls, TeeProcs,
  8.   Chart;
  9.  
  10. type
  11.   TExpAveForm = class(TBaseForm)
  12.     TeeFunction1: TExpAverageFunction;
  13.     Series2: TLineSeries;
  14.     Series1: TLineSeries;
  15.     Label1: TLabel;
  16.     TrackBar1: TTrackBar;
  17.     Label2: TLabel;
  18.     CheckBox1: TCheckBox;
  19.     Timer1: TTimer;
  20.     procedure TrackBar1Change(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure CheckBox1Click(Sender: TObject);
  23.     procedure Timer1Timer(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.     Delta: Integer;
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TExpAveForm.TrackBar1Change(Sender: TObject);
  36. begin
  37.   TeeFunction1.Weight:=TrackBar1.Position/100.0;
  38.   Label2.Caption:=FormatFloat('0.00',TeeFunction1.Weight);
  39. end;
  40.  
  41. procedure TExpAveForm.FormCreate(Sender: TObject);
  42. begin
  43.   inherited;
  44.   Delta:=2;
  45.   Series1.FillSampleValues(30);
  46. end;
  47.  
  48. procedure TExpAveForm.CheckBox1Click(Sender: TObject);
  49. begin
  50.   Timer1.Enabled:=CheckBox1.Checked;
  51. end;
  52.  
  53. procedure TExpAveForm.Timer1Timer(Sender: TObject);
  54. begin
  55.   TrackBar1.Position:=TrackBar1.Position+Delta;
  56.   if (TrackBar1.Position<2) or (TrackBar1.Position>98) then
  57.      Delta:=-Delta;
  58. end;
  59.  
  60. initialization
  61.   RegisterClass(TExpAveForm);
  62. end.
  63.