home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / WindRose_AngleInc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.1 KB  |  54 lines
  1. unit WindRose_AngleInc;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, TeEngine, Series, TeePolar, TeeRose, ExtCtrls, TeeProcs, Chart,
  8.   StdCtrls;
  9.  
  10. type
  11.   TWindAngleInc = class(TBaseForm)
  12.     Series1: TWindRoseSeries;
  13.     Label1: TLabel;
  14.     ComboBox1: TComboBox;
  15.     Label2: TLabel;
  16.     procedure FormCreate(Sender: TObject);
  17.     procedure ComboBox1Change(Sender: TObject);
  18.     procedure FormShow(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TWindAngleInc.FormCreate(Sender: TObject);
  30. begin
  31.   inherited;
  32.   Series1.FillSampleValues(20);
  33. end;
  34.  
  35. procedure TWindAngleInc.ComboBox1Change(Sender: TObject);
  36. begin
  37.   Case ComboBox1.ItemIndex of
  38.     0: Series1.AngleIncrement:=15;
  39.     1: Series1.AngleIncrement:=30;
  40.     2: Series1.AngleIncrement:=45;
  41.     3: Series1.AngleIncrement:=90;
  42.   end;
  43. end;
  44.  
  45. procedure TWindAngleInc.FormShow(Sender: TObject);
  46. begin
  47.   inherited;
  48.   ComboBox1.ItemIndex:=1;
  49. end;
  50.  
  51. initialization
  52.   RegisterClass(TWindAngleInc);
  53. end.
  54.