home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / NEWPRO4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  5.7 KB  |  231 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { New Features in TeeChart Pro 4.0 Demo       }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. {$I TeeDefs.inc}
  8. unit NewPro4;
  9.  
  10. interface
  11.  
  12. uses
  13.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  14.   StdCtrls, Buttons, ExtCtrls;
  15.  
  16. type
  17.   TMenuExtended = class(TForm)
  18.     Panel2: TPanel;
  19.     Label2: TLabel;
  20.     BBackWall: TButton;
  21.     BGradient: TButton;
  22.     BDepthAxis: TButton;
  23.     BMultiLabels: TButton;
  24.     BMultiAxis: TButton;
  25.     BLogAxis: TButton;
  26.     BDraw3D: TButton;
  27.     BMultiRowLegend: TButton;
  28.     BFuncRange: TButton;
  29.     BEditor: TButton;
  30.     BPreviewer: TButton;
  31.     BArray: TButton;
  32.     BMarks: TButton;
  33.     BZOrder: TButton;
  34.     BCandle: TButton;
  35.     BExploded: TButton;
  36.     BOtherPie: TButton;
  37.     BCommander: TButton;
  38.     BListBox: TButton;
  39.     Button20: TButton;
  40.     BNewSeries: TButton;
  41.     BOpenGL: TButton;
  42.     BSingleRecord: TButton;
  43.     Button1: TButton;
  44.     procedure Button20Click(Sender: TObject);
  45.     procedure BNewSeriesClick(Sender: TObject);
  46.     procedure BSingleRecordClick(Sender: TObject);
  47.     procedure BOpenGLClick(Sender: TObject);
  48.     procedure BGradientClick(Sender: TObject);
  49.     procedure BDepthAxisClick(Sender: TObject);
  50.     procedure BMultiLabelsClick(Sender: TObject);
  51.     procedure BMultiAxisClick(Sender: TObject);
  52.     procedure BLogAxisClick(Sender: TObject);
  53.     procedure BDraw3DClick(Sender: TObject);
  54.     procedure BMultiRowLegendClick(Sender: TObject);
  55.     procedure BFuncRangeClick(Sender: TObject);
  56.     procedure BBackWallClick(Sender: TObject);
  57.     procedure BEditorClick(Sender: TObject);
  58.     procedure BPreviewerClick(Sender: TObject);
  59.     procedure BArrayClick(Sender: TObject);
  60.     procedure BMarksClick(Sender: TObject);
  61.     procedure BZOrderClick(Sender: TObject);
  62.     procedure BCandleClick(Sender: TObject);
  63.     procedure BExplodedClick(Sender: TObject);
  64.     procedure BOtherPieClick(Sender: TObject);
  65.     procedure BCommanderClick(Sender: TObject);
  66.     procedure BListBoxClick(Sender: TObject);
  67.     procedure Button1Click(Sender: TObject);
  68.   private
  69.     { Private declarations }
  70.   public
  71.     { Public declarations }
  72.     Procedure ShowForm(AFormClass:TFormClass);
  73.   end;
  74.  
  75. implementation
  76.  
  77. uses Menupro, UGradien, UDepAx, UMulab, ULogLa, udraw3d, UMulLeg,
  78.   UFunRan, UBackWa, UChaEd, UChaPre, UArray, UMulMa, UZOrd, UCand3D,
  79.   UMultiAx, UExpPie, uothpie, ucomma, ulistbo, TeeAbout
  80.   {$IFNDEF NOUSE_BDE}
  81.   ,USingRec
  82.   {$ENDIF}
  83.   ;
  84.  
  85. {$R *.DFM}
  86.  
  87. Procedure TMenuExtended.ShowForm(AFormClass:TFormClass);
  88. Begin
  89.   With AFormClass.Create(Self) do
  90.   try
  91.     ShowModal;
  92.   finally
  93.     Free;
  94.   end;
  95. End;
  96.  
  97. procedure TMenuExtended.Button20Click(Sender: TObject);
  98. begin
  99.   Close;
  100. end;
  101.  
  102. procedure TMenuExtended.BNewSeriesClick(Sender: TObject);
  103. Var SeriesForm:TExtendedSeriesForm;
  104. begin
  105.   SeriesForm:=TExtendedSeriesForm.Create(Self);
  106.   try
  107.     SeriesForm.ShowModal;
  108.   finally
  109.     SeriesForm.Free;
  110.   end;
  111. end;
  112.  
  113. procedure TMenuExtended.BSingleRecordClick(Sender: TObject);
  114. begin
  115.   {$IFDEF NOUSE_BDE}
  116.   ShowMessage('Download the Database Demo from www.teemach.com. Thank You.');
  117.   {$ELSE}
  118.   ShowForm(TFormDBSingleRecord);
  119.   {$ENDIF}
  120. end;
  121.  
  122. procedure TMenuExtended.BOpenGLClick(Sender: TObject);
  123. begin
  124.   ShowMessage('New OpenGL 3D rendering features are located'+#13+
  125.               'in a separated example project executable.'+#13+#13+
  126.               'Download the OpenGL TeeChart Pro 4 demo from'+#13+
  127.               'our web site at http://www.teemach.com');
  128. end;
  129.  
  130. procedure TMenuExtended.BGradientClick(Sender: TObject);
  131. begin
  132.   ShowForm(TGradientForm);
  133. end;
  134.  
  135. procedure TMenuExtended.BDepthAxisClick(Sender: TObject);
  136. begin
  137.   ShowForm(TDepthAxisForm);
  138. end;
  139.  
  140. procedure TMenuExtended.BMultiLabelsClick(Sender: TObject);
  141. begin
  142.   ShowForm(TMultiLineLabelsForm);
  143. end;
  144.  
  145. procedure TMenuExtended.BMultiAxisClick(Sender: TObject);
  146. begin
  147.   ShowForm(TFormMenuMultiAxes);
  148. end;
  149.  
  150. procedure TMenuExtended.BLogAxisClick(Sender: TObject);
  151. begin
  152.   ShowForm(TLogLabelsForm);
  153. end;
  154.  
  155. procedure TMenuExtended.BDraw3DClick(Sender: TObject);
  156. begin
  157.   ShowForm(TDraw3DForm);
  158. end;
  159.  
  160. procedure TMenuExtended.BMultiRowLegendClick(Sender: TObject);
  161. begin
  162.   ShowForm(TMultiRowLegendForm);
  163. end;
  164.  
  165. procedure TMenuExtended.BFuncRangeClick(Sender: TObject);
  166. begin
  167.   ShowForm(TFunctionRangeForm);
  168. end;
  169.  
  170. procedure TMenuExtended.BBackWallClick(Sender: TObject);
  171. begin
  172.   ShowForm(TBackWall3DForm);
  173. end;
  174.  
  175. procedure TMenuExtended.BEditorClick(Sender: TObject);
  176. begin
  177.   ShowForm(TChartEditorForm);
  178. end;
  179.  
  180. procedure TMenuExtended.BPreviewerClick(Sender: TObject);
  181. begin
  182.   ShowForm(TChartPreviewForm);
  183. end;
  184.  
  185. procedure TMenuExtended.BArrayClick(Sender: TObject);
  186. begin
  187.   ShowForm(TArrayForm);
  188. end;
  189.  
  190. procedure TMenuExtended.BMarksClick(Sender: TObject);
  191. begin
  192.   ShowForm(TMultiMarksForm);
  193. end;
  194.  
  195. procedure TMenuExtended.BZOrderClick(Sender: TObject);
  196. begin
  197.   ShowForm(TZOrderForm);
  198. end;
  199.  
  200. procedure TMenuExtended.BCandleClick(Sender: TObject);
  201. begin
  202.   ShowForm(TCandle3DForm);
  203. end;
  204.  
  205. procedure TMenuExtended.BExplodedClick(Sender: TObject);
  206. begin
  207.   ShowForm(TExplodedPieForm);
  208. end;
  209.  
  210. procedure TMenuExtended.BOtherPieClick(Sender: TObject);
  211. begin
  212.   ShowForm(TOtherPieForm);
  213. end;
  214.  
  215. procedure TMenuExtended.BCommanderClick(Sender: TObject);
  216. begin
  217.   ShowForm(TCommanderForm);
  218. end;
  219.  
  220. procedure TMenuExtended.BListBoxClick(Sender: TObject);
  221. begin
  222.   ShowForm(TListBoxForm);
  223. end;
  224.  
  225. procedure TMenuExtended.Button1Click(Sender: TObject);
  226. begin
  227.   TeeShowAboutBox(True)
  228. end;
  229.  
  230. end.
  231.