home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / MENUPRO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  4.3 KB  |  180 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Extended Chart Series Example               }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit Menupro;
  8.  
  9. interface
  10.  
  11. uses
  12.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  13.   Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;
  14.  
  15. type
  16.   TExtendedSeriesForm = class(TForm)
  17.     GroupBox1: TGroupBox;
  18.     BCandle: TBitBtn;
  19.     BCurvefitting: TBitBtn;
  20.     BPolar: TBitBtn;
  21.     BMomentum: TBitBtn;
  22.     BErrorBar: TBitBtn;
  23.     BMovingAve: TBitBtn;
  24.     BitBtn1: TBitBtn;
  25.     BSurface: TBitBtn;
  26.     Label1: TLabel;
  27.     Label2: TLabel;
  28.     Label3: TLabel;
  29.     Label4: TLabel;
  30.     Label5: TLabel;
  31.     Label7: TLabel;
  32.     Label8: TLabel;
  33.     Panel1: TPanel;
  34.     BBezier: TBitBtn;
  35.     Label6: TLabel;
  36.     BRadar: TBitBtn;
  37.     Label9: TLabel;
  38.     BContour: TBitBtn;
  39.     Label10: TLabel;
  40.     Label11: TLabel;
  41.     BPoint3D: TBitBtn;
  42.     BErrStd: TBitBtn;
  43.     Label12: TLabel;
  44.     Label13: TLabel;
  45.     BTrend: TBitBtn;
  46.     Label15: TLabel;
  47.     BStdDev: TBitBtn;
  48.     Label14: TLabel;
  49.     BCumu: TBitBtn;
  50.     procedure FormCreate(Sender: TObject);
  51.     procedure BCandleClick(Sender: TObject);
  52.     procedure BCurvefittingClick(Sender: TObject);
  53.     procedure BMomentumClick(Sender: TObject);
  54.     procedure BMovingAveClick(Sender: TObject);
  55.     procedure BErrorBarClick(Sender: TObject);
  56.     procedure BPolarClick(Sender: TObject);
  57.     procedure BSurfaceClick(Sender: TObject);
  58.     procedure BBezierClick(Sender: TObject);
  59.     procedure BRadarClick(Sender: TObject);
  60.     procedure BContourClick(Sender: TObject);
  61.     procedure BPoint3DClick(Sender: TObject);
  62.     procedure BTrendClick(Sender: TObject);
  63.     procedure BStdDevClick(Sender: TObject);
  64.     procedure BErrStdClick(Sender: TObject);
  65.     procedure BCumuClick(Sender: TObject);
  66.   private
  67.     { Private declarations }
  68.   public
  69.     { Public declarations }
  70.   end;
  71.  
  72. implementation
  73.  
  74. {$R *.DFM}
  75. Uses EditPro,   { <--- Important to access the Editor Dialog with
  76.                        Extended Series }
  77.      Candle,
  78.      CurvFit,
  79.      Momentu,
  80.      MovinAve,
  81.      Surface,
  82.      UErrorBa,
  83.      UPolar,
  84.      UBezie,
  85.      UContou,
  86.      UErrStd,
  87.      UPo3D,
  88.      URadar,
  89.      UStdDev,
  90.      UTrend,
  91.      Features,
  92.      UDemoCum;
  93.  
  94. procedure TExtendedSeriesForm.FormCreate(Sender: TObject);
  95. begin
  96.   if Screen.Width<800 then
  97.      ShowMessage('Warning: '+#13+#10+
  98.                  'This Demo is best viewed with a Screen'+#13+#10+
  99.                  'resolution of 800x600 or greater,'+#13+#10+
  100.                  'and a Color Depth of 256 or greater.'+#13+#10+
  101.                  '16K Colors is also better than 256 Colors.');
  102. end;
  103.  
  104. procedure TExtendedSeriesForm.BCandleClick(Sender: TObject);
  105. begin
  106.   ShowForm(TCandleForm);
  107. end;
  108.  
  109. procedure TExtendedSeriesForm.BCurvefittingClick(Sender: TObject);
  110. begin
  111.   ShowForm(TCurveFittingForm);
  112. end;
  113.  
  114. procedure TExtendedSeriesForm.BMomentumClick(Sender: TObject);
  115. begin
  116.   ShowForm(TMomentumForm);
  117. end;
  118.  
  119. procedure TExtendedSeriesForm.BMovingAveClick(Sender: TObject);
  120. begin
  121.   ShowForm(TMovingAveForm);
  122. end;
  123.  
  124. procedure TExtendedSeriesForm.BErrorBarClick(Sender: TObject);
  125. begin
  126.   ShowForm(TErrorBarForm);
  127. end;
  128.  
  129. procedure TExtendedSeriesForm.BPolarClick(Sender: TObject);
  130. begin
  131.   ShowForm(TPolarForm);
  132. end;
  133.  
  134. procedure TExtendedSeriesForm.BSurfaceClick(Sender: TObject);
  135. begin
  136.   ShowForm(TSurfaceForm);
  137. end;
  138.  
  139. procedure TExtendedSeriesForm.BBezierClick(Sender: TObject);
  140. begin
  141.   ShowForm(TBezierForm);
  142. end;
  143.  
  144. procedure TExtendedSeriesForm.BRadarClick(Sender: TObject);
  145. begin
  146.   ShowForm(TRadarForm);
  147. end;
  148.  
  149. procedure TExtendedSeriesForm.BContourClick(Sender: TObject);
  150. begin
  151.   ShowForm(TContourForm);
  152. end;
  153.  
  154. procedure TExtendedSeriesForm.BPoint3DClick(Sender: TObject);
  155. begin
  156.   ShowForm(TPoint3DForm);
  157. end;
  158.  
  159. procedure TExtendedSeriesForm.BTrendClick(Sender: TObject);
  160. begin
  161.   ShowForm(TTrendForm);
  162. end;
  163.  
  164. procedure TExtendedSeriesForm.BStdDevClick(Sender: TObject);
  165. begin
  166.   ShowForm(TStdDevForm);
  167. end;
  168.  
  169. procedure TExtendedSeriesForm.BErrStdClick(Sender: TObject);
  170. begin
  171.   ShowForm(TErrStdForm);
  172. end;
  173.  
  174. procedure TExtendedSeriesForm.BCumuClick(Sender: TObject);
  175. begin
  176.   ShowForm(TCummuForm);
  177. end;
  178.  
  179. end.
  180.