home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / URADAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.8 KB  |  79 lines
  1. unit uradar;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   TeEngine, Series, TeePolar, TeeProcs, Chart, StdCtrls, ExtCtrls, TeeComma;
  8.  
  9. type
  10.   TRadarForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Button1: TButton;
  13.     Memo1: TMemo;
  14.     CheckBox1: TCheckBox;
  15.     CheckBox2: TCheckBox;
  16.     CheckBox3: TCheckBox;
  17.     CheckBox5: TCheckBox;
  18.     Chart1: TChart;
  19.     Series1: TRadarSeries;
  20.     Series2: TRadarSeries;
  21.     Series3: TRadarSeries;
  22.     TeeCommander1: TTeeCommander;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure CheckBox5Click(Sender: TObject);
  26.     procedure CheckBox3Click(Sender: TObject);
  27.     procedure CheckBox2Click(Sender: TObject);
  28.     procedure CheckBox1Click(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   RadarForm: TRadarForm;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TRadarForm.Button1Click(Sender: TObject);
  43. begin
  44.   Close;
  45. end;
  46.  
  47. procedure TRadarForm.FormCreate(Sender: TObject);
  48. begin
  49.   Series1.FillSampleValues(5);
  50.   Series2.FillSampleValues(5);
  51.   Series2.FillSampleValues(5);
  52.   Series3.FillSampleValues(5);
  53.   Series3.FillSampleValues(5);
  54. end;
  55.  
  56. procedure TRadarForm.CheckBox5Click(Sender: TObject);
  57. begin
  58.   Chart1.RightAxis.Visible:=CheckBox5.Checked
  59. end;
  60.  
  61. procedure TRadarForm.CheckBox3Click(Sender: TObject);
  62. begin
  63.   Series1.Pen.Visible:=CheckBox3.Checked;
  64.   Series2.Pen.Visible:=CheckBox3.Checked;
  65.   Series3.Pen.Visible:=CheckBox3.Checked;
  66. end;
  67.  
  68. procedure TRadarForm.CheckBox2Click(Sender: TObject);
  69. begin
  70.   Series1.CircleLabels:=CheckBox2.Checked;
  71. end;
  72.  
  73. procedure TRadarForm.CheckBox1Click(Sender: TObject);
  74. begin
  75.   Series1.Circled:=CheckBox1.Checked;
  76. end;
  77.  
  78. end.
  79.