home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UEXTFEAT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  7.4 KB  |  297 lines
  1. {*********************************************}
  2. {  TeeChart Pro 4 example                     }
  3. {  Copyright (c) 1995-1998 by David Berneda   }
  4. {  All rights reserved                        }
  5. {*********************************************}
  6. unit UExtFeat;
  7.  
  8. interface
  9.  
  10. uses
  11.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   StdCtrls, ExtCtrls;
  13.  
  14. type
  15.   TExtendedFeaturesForm = class(TForm)
  16.     Button25: TButton;
  17.     Panel1: TPanel;
  18.     Button1: TButton;
  19.     Button2: TButton;
  20.     Button3: TButton;
  21.     Button4: TButton;
  22.     Button5: TButton;
  23.     Button6: TButton;
  24.     Button7: TButton;
  25.     Button8: TButton;
  26.     Button9: TButton;
  27.     Button10: TButton;
  28.     Button11: TButton;
  29.     Button12: TButton;
  30.     Button13: TButton;
  31.     Button14: TButton;
  32.     Button15: TButton;
  33.     Button16: TButton;
  34.     Button17: TButton;
  35.     Button18: TButton;
  36.     Button19: TButton;
  37.     Button20: TButton;
  38.     Button21: TButton;
  39.     Button22: TButton;
  40.     Button23: TButton;
  41.     Button24: TButton;
  42.     Button26: TButton;
  43.     Button27: TButton;
  44.     Button28: TButton;
  45.     Button29: TButton;
  46.     Button30: TButton;
  47.     Button31: TButton;
  48.     Button32: TButton;
  49.     Button33: TButton;
  50.     Button34: TButton;
  51.     Button35: TButton;
  52.     Button36: TButton;
  53.     Panel2: TPanel;
  54.     procedure Button1Click(Sender: TObject);
  55.     procedure Button2Click(Sender: TObject);
  56.     procedure Button3Click(Sender: TObject);
  57.     procedure Button4Click(Sender: TObject);
  58.     procedure Button5Click(Sender: TObject);
  59.     procedure Button6Click(Sender: TObject);
  60.     procedure Button7Click(Sender: TObject);
  61.     procedure Button8Click(Sender: TObject);
  62.     procedure Button9Click(Sender: TObject);
  63.     procedure Button10Click(Sender: TObject);
  64.     procedure Button11Click(Sender: TObject);
  65.     procedure Button12Click(Sender: TObject);
  66.     procedure Button13Click(Sender: TObject);
  67.     procedure Button14Click(Sender: TObject);
  68.     procedure Button15Click(Sender: TObject);
  69.     procedure Button16Click(Sender: TObject);
  70.     procedure Button17Click(Sender: TObject);
  71.     procedure Button18Click(Sender: TObject);
  72.     procedure Button19Click(Sender: TObject);
  73.     procedure Button20Click(Sender: TObject);
  74.     procedure Button21Click(Sender: TObject);
  75.     procedure Button22Click(Sender: TObject);
  76.     procedure Button23Click(Sender: TObject);
  77.     procedure Button24Click(Sender: TObject);
  78.     procedure Button25Click(Sender: TObject);
  79.     procedure Button26Click(Sender: TObject);
  80.     procedure Button27Click(Sender: TObject);
  81.     procedure Button28Click(Sender: TObject);
  82.     procedure Button29Click(Sender: TObject);
  83.     procedure Button30Click(Sender: TObject);
  84.     procedure Button31Click(Sender: TObject);
  85.     procedure Button32Click(Sender: TObject);
  86.     procedure Button33Click(Sender: TObject);
  87.     procedure Button34Click(Sender: TObject);
  88.     procedure Button35Click(Sender: TObject);
  89.     procedure Button36Click(Sender: TObject);
  90.   private
  91.     { Private declarations }
  92.   public
  93.     { Public declarations }
  94.     Procedure ShowForm(AClass:TFormClass);
  95.   end;
  96.  
  97. implementation
  98.  
  99. {$R *.DFM}
  100. Uses DsgnMain,FastDraw,FinaTren,UAlign,UAxCent,UBarSty,GanttEd,
  101.      UBarZoom,UCandle,UClick,UCusDraw,UDelPoin,UDrag,UFitAxis,UTips,
  102.      UDyna,UGallery,UISOAxis,ULook,UMarks,UMovCur,UPareto,UQuali,
  103.      UNear,UPointer,USurfHol,USurLab,USyncz,UTwoClip,UCurve,UForm1,
  104.      UMovLeg,UTickLab,UPriBit,EditSer;
  105.  
  106. Procedure TExtendedFeaturesForm.ShowForm(AClass:TFormClass);
  107. begin
  108.   With AClass.Create(Self) do
  109.   try
  110.     ShowModal;
  111.   finally
  112.     Free;
  113.   end;
  114. end;
  115.  
  116. procedure TExtendedFeaturesForm.Button1Click(Sender: TObject);
  117. begin
  118.   ShowForm(TTeeDesignerForm)
  119. end;
  120.  
  121. procedure TExtendedFeaturesForm.Button2Click(Sender: TObject);
  122. begin
  123.   ShowForm(TFastDrawForm)
  124. end;
  125.  
  126. procedure TExtendedFeaturesForm.Button3Click(Sender: TObject);
  127. begin
  128.   ShowForm(TFinancialTrendForm)
  129. end;
  130.  
  131. procedure TExtendedFeaturesForm.Button4Click(Sender: TObject);
  132. begin
  133.   ShowForm(TAlignChartsForm)
  134. end;
  135.  
  136. procedure TExtendedFeaturesForm.Button5Click(Sender: TObject);
  137. begin
  138.   ShowForm(TAxisCenterForm)
  139. end;
  140.  
  141. procedure TExtendedFeaturesForm.Button6Click(Sender: TObject);
  142. begin
  143.   ShowForm(TBarStylesForm)
  144. end;
  145.  
  146. procedure TExtendedFeaturesForm.Button7Click(Sender: TObject);
  147. begin
  148.   ShowForm(TBarZoomForm)
  149. end;
  150.  
  151. procedure TExtendedFeaturesForm.Button8Click(Sender: TObject);
  152. begin
  153.   ShowForm(TCandleWeekForm)
  154. end;
  155.  
  156. procedure TExtendedFeaturesForm.Button9Click(Sender: TObject);
  157. begin
  158.   ShowForm(TClickingForm)
  159. end;
  160.  
  161. procedure TExtendedFeaturesForm.Button10Click(Sender: TObject);
  162. begin
  163.   ShowForm(TCustomDrawForm)
  164. end;
  165.  
  166. procedure TExtendedFeaturesForm.Button11Click(Sender: TObject);
  167. begin
  168.   ShowForm(TDeletePointsForm)
  169. end;
  170.  
  171. procedure TExtendedFeaturesForm.Button12Click(Sender: TObject);
  172. begin
  173.   ShowForm(TDragBarForm)
  174. end;
  175.  
  176. procedure TExtendedFeaturesForm.Button13Click(Sender: TObject);
  177. begin
  178.   ShowForm(TDynamicTrend)
  179. end;
  180.  
  181. procedure TExtendedFeaturesForm.Button14Click(Sender: TObject);
  182. begin
  183.   ShowForm(TCustomGalleryForm)
  184. end;
  185.  
  186. procedure TExtendedFeaturesForm.Button15Click(Sender: TObject);
  187. begin
  188.   ShowForm(TIsoMetricAxisForm)
  189. end;
  190.  
  191. procedure TExtendedFeaturesForm.Button16Click(Sender: TObject);
  192. begin
  193.   ShowForm(TLooksForm) 
  194. end;
  195.  
  196. procedure TExtendedFeaturesForm.Button17Click(Sender: TObject);
  197. begin
  198.   ShowForm(TCustomMarksForm)
  199. end;
  200.  
  201. procedure TExtendedFeaturesForm.Button18Click(Sender: TObject);
  202. begin
  203.   ShowForm(TMovableCursors)
  204. end;
  205.  
  206. procedure TExtendedFeaturesForm.Button19Click(Sender: TObject);
  207. begin
  208.   ShowForm(TClickNearForm)
  209. end;
  210.  
  211. procedure TExtendedFeaturesForm.Button20Click(Sender: TObject);
  212. begin
  213.   ShowForm(TDrawPointerForm)
  214. end;
  215.  
  216. procedure TExtendedFeaturesForm.Button21Click(Sender: TObject);
  217. begin
  218.   ShowForm(TSurfaceHolesForm)
  219. end;
  220.  
  221. procedure TExtendedFeaturesForm.Button22Click(Sender: TObject);
  222. begin
  223.   ShowForm(TSurfaceLabelsForm)
  224. end;
  225.  
  226. procedure TExtendedFeaturesForm.Button23Click(Sender: TObject);
  227. begin
  228.   ShowForm(TSynchroZoomForm)
  229. end;
  230.  
  231. procedure TExtendedFeaturesForm.Button24Click(Sender: TObject);
  232. begin
  233.   ShowForm(TClipboardTwoForm)
  234. end;
  235.  
  236. procedure TExtendedFeaturesForm.Button25Click(Sender: TObject);
  237. begin
  238.   Close;
  239. end;
  240.  
  241. procedure TExtendedFeaturesForm.Button26Click(Sender: TObject);
  242. begin
  243.   ShowForm(TFormGanttEditor)
  244. end;
  245.  
  246. procedure TExtendedFeaturesForm.Button27Click(Sender: TObject);
  247. begin
  248.   ShowForm(TFormFitAxis)
  249. end;
  250.  
  251. procedure TExtendedFeaturesForm.Button28Click(Sender: TObject);
  252. begin
  253.   ShowForm(TFormPareto)
  254. end;
  255.  
  256. procedure TExtendedFeaturesForm.Button29Click(Sender: TObject);
  257. begin
  258.   ShowForm(TFormQuality)
  259. end;
  260.  
  261. procedure TExtendedFeaturesForm.Button30Click(Sender: TObject);
  262. begin
  263.   ShowForm(TFormMarkTips)
  264. end;
  265.  
  266. procedure TExtendedFeaturesForm.Button31Click(Sender: TObject);
  267. begin
  268.   ShowForm(TFormCurveFitting)
  269. end;
  270.  
  271. procedure TExtendedFeaturesForm.Button32Click(Sender: TObject);
  272. begin
  273.   ShowForm(TFormMoveLegend)
  274. end;
  275.  
  276. procedure TExtendedFeaturesForm.Button33Click(Sender: TObject);
  277. begin
  278.   ShowForm(TFormFirst)
  279. end;
  280.  
  281. procedure TExtendedFeaturesForm.Button34Click(Sender: TObject);
  282. begin
  283.   ShowForm(TFormTicksLabels)
  284. end;
  285.  
  286. procedure TExtendedFeaturesForm.Button35Click(Sender: TObject);
  287. begin
  288.   ShowForm(TFormPrintBitmap)
  289. end;
  290.  
  291. procedure TExtendedFeaturesForm.Button36Click(Sender: TObject);
  292. begin
  293.   ShowForm(TFormShowSeriesEditor)
  294. end;
  295.  
  296. end.
  297.