home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / TEEMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  4.7 KB  |  191 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library 3.0       }
  3. { Demo                                        }
  4. { Copyright (c) 1995-1996 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit TeeMain;
  8.  
  9. interface
  10.  
  11. uses
  12.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  13.   Forms, Dialogs, ExtCtrls, TeEngine, Series, TeeProcs, Chart, StdCtrls,
  14.   TeeFunci;
  15.  
  16. type
  17.   TTeeMainForm = class(TForm)
  18.     Panel1: TPanel;
  19.     Button1: TButton;
  20.     Image1: TImage;
  21.     Timer1: TTimer;
  22.     Button2: TButton;
  23.     Button3: TButton;
  24.     Button4: TButton;
  25.     Button6: TButton;
  26.     Chart2: TChart;
  27.     FastLineSeries1: TFastLineSeries;
  28.     Label10: TLabel;
  29.     FastLineSeries2: TFastLineSeries;
  30.     Timer2: TTimer;
  31.     Label11: TLabel;
  32.     Panel2: TPanel;
  33.     Chart1: TChart;
  34.     Series1: TPieSeries;
  35.     Chart7: TChart;
  36.     PieSeries6: TPieSeries;
  37.     Chart8: TChart;
  38.     PieSeries7: TPieSeries;
  39.     Chart9: TChart;
  40.     PieSeries8: TPieSeries;
  41.     Chart10: TChart;
  42.     PieSeries9: TPieSeries;
  43.     Label13: TLabel;
  44.     Label15: TLabel;
  45.     Label16: TLabel;
  46.     Label2: TLabel;
  47.     Panel3: TPanel;
  48.     Label1: TLabel;
  49.     Label9: TLabel;
  50.     Label14: TLabel;
  51.     Label3: TLabel;
  52.     Label4: TLabel;
  53.     procedure FormCreate(Sender: TObject);
  54.     procedure Timer1Timer(Sender: TObject);
  55.     procedure Button1Click(Sender: TObject);
  56.     procedure Timer2Timer(Sender: TObject);
  57.     procedure Button2Click(Sender: TObject);
  58.     procedure Chart2MouseUp(Sender: TObject; Button: TMouseButton;
  59.       Shift: TShiftState; X, Y: Integer);
  60.     procedure Chart2MouseDown(Sender: TObject; Button: TMouseButton;
  61.       Shift: TShiftState; X, Y: Integer);
  62.     procedure Label10Click(Sender: TObject);
  63.     procedure Button3Click(Sender: TObject);
  64.     procedure Button4Click(Sender: TObject);
  65.     procedure Button6Click(Sender: TObject);
  66.     procedure Label3Click(Sender: TObject);
  67.   private
  68.     { Private declarations }
  69.     DeltaZoom:Integer;
  70.   public
  71.     { Public declarations }
  72.     procedure ShowForm(FormClass: TFormClass);
  73.   end;
  74.  
  75. var
  76.   TeeMainForm: TTeeMainForm;
  77.  
  78. implementation
  79.  
  80. {$R *.DFM}
  81. Uses TeeAbout,TeeBasic,Features,UDemoCha,Specs,ShellAPI;
  82.  
  83. procedure TTeeMainForm.ShowForm(FormClass: TFormClass);
  84. begin
  85.   Timer1.Enabled:=False;
  86.   Timer2.Enabled:=False;
  87.   With FormClass.Create(Self) do
  88.   try
  89.     ShowModal;
  90.   finally
  91.     Free;
  92.   end;
  93.   Timer2.Enabled:=True;
  94.   Timer1.Enabled:=True;
  95. end;
  96.  
  97. procedure TTeeMainForm.FormCreate(Sender: TObject);
  98. begin
  99.   TeeEraseBack:=False;
  100.   PieSeries6.FillSampleValues(5);
  101.   PieSeries9.FillSampleValues(5);
  102.   PieSeries7.FillSampleValues(5);
  103.   Series1.FillSampleValues(5);
  104.   PieSeries8.CheckDataSource;
  105.   FastLineSeries1.FillSampleValues(20);
  106.   FastLineSeries2.FillSampleValues(20);
  107.   DeltaZoom:=5;
  108. end;
  109.  
  110. procedure TTeeMainForm.Timer1Timer(Sender: TObject);
  111. begin
  112.   PieSeries6.Rotate(5);
  113.   PieSeries7.Rotate(5);
  114.   PieSeries9.Rotate(5);
  115.   Series1.Rotate(355);
  116.   PieSeries8.Rotate(355);
  117.   With Chart9.View3DOptions do
  118.   begin
  119.     Zoom:=Zoom-DeltaZoom;
  120.     if (Zoom<60) or (Zoom>110) then DeltaZoom:=-DeltaZoom;
  121.   end;
  122. end;
  123.  
  124. procedure TTeeMainForm.Button1Click(Sender: TObject);
  125. begin
  126.   Close;
  127. end;
  128.  
  129. procedure TTeeMainForm.Timer2Timer(Sender: TObject);
  130. var tmpX:Double;
  131. begin
  132.   With FastLineSeries1 do
  133.   begin
  134.     tmpX:=XValues[1]-XValues[0];
  135.     Delete(0);
  136.     AddXY(XValues.Last+tmpX,Random(100),'',clTeeColor);
  137.   end;
  138.   With FastLineSeries2 do
  139.   begin
  140.     tmpX:=XValues[1]-XValues[0];
  141.     Delete(0);
  142.     AddXY(XValues.Last+tmpX,Random(100),'',clTeeColor);
  143.   end;
  144. end;
  145.  
  146. procedure TTeeMainForm.Button2Click(Sender: TObject);
  147. begin
  148.   ShowForm(TDemoForm);
  149. end;
  150.  
  151. procedure TTeeMainForm.Chart2MouseUp(Sender: TObject; Button: TMouseButton;
  152.   Shift: TShiftState; X, Y: Integer);
  153. begin
  154.   Label10Click(Self);
  155. end;
  156.  
  157. procedure TTeeMainForm.Chart2MouseDown(Sender: TObject;
  158.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  159. begin
  160.   Chart2.BevelOuter:=bvLowered;
  161. end;
  162.  
  163. procedure TTeeMainForm.Label10Click(Sender: TObject);
  164. begin
  165.   ShowForm(TTeeAboutForm);
  166.   Chart2.BevelOuter:=bvRaised;
  167. end;
  168.  
  169. procedure TTeeMainForm.Button3Click(Sender: TObject);
  170. begin
  171.   ShowForm(TFeaturesForm);
  172. end;
  173.  
  174. procedure TTeeMainForm.Button4Click(Sender: TObject);
  175. begin
  176.   ShowForm(TChartSpecs);
  177. end;
  178.  
  179. procedure TTeeMainForm.Button6Click(Sender: TObject);
  180. begin
  181.   ShowForm(TBasicSeriesForm);
  182. end;
  183.  
  184. procedure TTeeMainForm.Label3Click(Sender: TObject);
  185. Var St:Array[0..255] of char;
  186. begin
  187.   ShellExecute(Handle,'open',StrPCopy(St,'http://'+Label3.Caption),nil,nil,SW_SHOW);
  188. end;
  189.  
  190. end.
  191.