home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UCOMMA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.4 KB  |  100 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Commander Toolbar Demo                      }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit ucomma;
  8.  
  9. interface
  10.  
  11. uses
  12.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   TeeSurfa, TeePoin3, ErrorBar, CandleCh, Series, TeEngine, TeeProcs,
  14.   Chart, TeeComma, StdCtrls, ExtCtrls;
  15.  
  16. type
  17.   TCommanderForm = class(TForm)
  18.     Panel1: TPanel;
  19.     Memo1: TMemo;
  20.     Button1: TButton;
  21.     TeeCommander1: TTeeCommander;
  22.     Chart1: TChart;
  23.     Series1: TLineSeries;
  24.     Series2: TPointSeries;
  25.     Series3: TBarSeries;
  26.     Series4: TAreaSeries;
  27.     Series5: TFastLineSeries;
  28.     Series6: TVolumeSeries;
  29.     Series7: TErrorSeries;
  30.     CheckBox1: TCheckBox;
  31.     Pie: TPieSeries;
  32.     CheckBox2: TCheckBox;
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure Button1Click(Sender: TObject);
  35.     procedure CheckBox1Click(Sender: TObject);
  36.     procedure CheckBox2Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TCommanderForm.FormCreate(Sender: TObject);
  48. begin
  49.  { Important property:
  50.  
  51.    TeeCommander1.Panel := Chart1 ;
  52.  }
  53.  
  54.   Series1.FillSampleValues(20);
  55.   Series2.FillSampleValues(30);
  56.   Series3.FillSampleValues(10);
  57.   Series4.FillSampleValues(10);
  58.   Series5.FillSampleValues(30);
  59.   Series6.FillSampleValues(30);
  60.   Series7.FillSampleValues(10);
  61.   Pie.FillSampleValues(8);
  62.  
  63.   TeeCommander1.ButtonRotate.Down:=True;
  64.  
  65.   { Show a Pie Series only by default }
  66.   CheckBox1.Checked:=True;
  67.   CheckBox1Click(Self);
  68. end;
  69.  
  70. procedure TCommanderForm.Button1Click(Sender: TObject);
  71. begin
  72.   Close;
  73. end;
  74.  
  75. procedure TCommanderForm.CheckBox1Click(Sender: TObject);
  76. begin
  77.   Pie.Active:=CheckBox1.Checked;
  78.   Series1.Active:=not Pie.Active;
  79.   Series2.Active:=not Pie.Active;
  80.   Series3.Active:=not Pie.Active;
  81.   Series4.Active:=not Pie.Active;
  82.   Series5.Active:=not Pie.Active;
  83.   Series6.Active:=not Pie.Active;
  84.   Series7.Active:=not Pie.Active;
  85.  
  86.   if not Pie.Active then
  87.   With Chart1.View3DOptions do
  88.   begin
  89.     Rotation:=315;
  90.     Elevation:=315;
  91.   end;
  92. end;
  93.  
  94. procedure TCommanderForm.CheckBox2Click(Sender: TObject);
  95. begin
  96.   TeeCommander1.LabelValues:=CheckBox2.Checked;
  97. end;
  98.  
  99. end.
  100.