home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Chart_Axes.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  2.8 KB  |  118 lines
  1. unit Chart_Axes;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;
  8.  
  9. type
  10.   TChartAxesForm = class(TBaseForm)
  11.     Series1: TLineSeries;
  12.     CheckBox1: TCheckBox;
  13.     CheckBox2: TCheckBox;
  14.     CheckBox4: TCheckBox;
  15.     CheckBox5: TCheckBox;
  16.     CheckBox6: TCheckBox;
  17.     Label1: TLabel;
  18.     ComboBox1: TComboBox;
  19.     Label2: TLabel;
  20.     ComboBox2: TComboBox;
  21.     Button1: TButton;
  22.     procedure CheckBox1Click(Sender: TObject);
  23.     procedure CheckBox2Click(Sender: TObject);
  24.     procedure CheckBox4Click(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure CheckBox5Click(Sender: TObject);
  27.     procedure CheckBox6Click(Sender: TObject);
  28.     procedure ComboBox1Change(Sender: TObject);
  29.     procedure ComboBox2Change(Sender: TObject);
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure FormShow(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. Uses EditChar;
  43.  
  44. procedure TChartAxesForm.CheckBox1Click(Sender: TObject);
  45. begin
  46.   Chart1.AxisVisible:=CheckBox1.Checked
  47. end;
  48.  
  49. procedure TChartAxesForm.CheckBox2Click(Sender: TObject);
  50. var t : Integer;
  51. begin
  52.   With Chart1 do
  53.   for t:=0 to Axes.Count-1 do
  54.      Axes[t].Grid.Visible:=CheckBox2.Checked;
  55.  
  56.   CheckBox5.Enabled:=CheckBox2.Checked;
  57. end;
  58.  
  59. procedure TChartAxesForm.CheckBox4Click(Sender: TObject);
  60. begin
  61.   Chart1.DepthAxis.Visible:=CheckBox4.Checked;
  62.   if CheckBox4.Checked then Chart1.MarginRight:=15
  63.                        else Chart1.MarginRight:=3;
  64. end;
  65.  
  66. procedure TChartAxesForm.FormCreate(Sender: TObject);
  67. begin
  68.   inherited;
  69.   Series1.FillSampleValues(10);
  70. end;
  71.  
  72. procedure TChartAxesForm.CheckBox5Click(Sender: TObject);
  73. begin
  74.   Chart1.AxisBehind:=CheckBox5.Checked;
  75. end;
  76.  
  77. procedure TChartAxesForm.CheckBox6Click(Sender: TObject);
  78. begin
  79.   Chart1.View3D:=CheckBox6.Checked;
  80. end;
  81.  
  82. procedure TChartAxesForm.ComboBox1Change(Sender: TObject);
  83. begin
  84.   Case ComboBox1.ItemIndex of
  85.     0: Series1.HorizAxis:=aTopAxis;
  86.     1: Series1.HorizAxis:=aBottomAxis;
  87.   else
  88.     Series1.HorizAxis:=aBothHorizAxis;
  89.   end;
  90. end;
  91.  
  92. procedure TChartAxesForm.ComboBox2Change(Sender: TObject);
  93. begin
  94.   inherited;
  95.   Case ComboBox2.ItemIndex of
  96.     0: Series1.VertAxis:=aLeftAxis;
  97.     1: Series1.VertAxis:=aRightAxis;
  98.   else
  99.     Series1.VertAxis:=aBothVertAxis;
  100.   end;
  101. end;
  102.  
  103. procedure TChartAxesForm.Button1Click(Sender: TObject);
  104. begin
  105.   EditChartAxis(Self,Chart1.LeftAxis);
  106. end;
  107.  
  108. procedure TChartAxesForm.FormShow(Sender: TObject);
  109. begin
  110.   inherited;
  111.   ComboBox1.ItemIndex:=1;
  112.   ComboBox2.ItemIndex:=0;
  113. end;
  114.  
  115. initialization
  116.   RegisterClass(TChartAxesForm);
  117. end.
  118.