home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / FEATURES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  5.6 KB  |  235 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Main Form Demo                              }
  4. { Copyright (c) 1996 by David Berneda         }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. {$I Teedefs.inc}
  8. unit Features;
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;
  15.  
  16. type
  17.   TFeaturesForm = class(TForm)
  18.     BitBtn5: TBitBtn;
  19.     BitBtn6: TBitBtn;
  20.     BitBtn7: TBitBtn;
  21.     BitBtn3: TBitBtn;
  22.     BitBtn9: TBitBtn;
  23.     BitBtn11: TBitBtn;
  24.     BitBtn10: TBitBtn;
  25.     BitBtn2: TBitBtn;
  26.     BitBtn8: TBitBtn;
  27.     BitBtn12: TBitBtn;
  28.     BitBtn13: TBitBtn;
  29.     BitBtn14: TBitBtn;
  30.     BitBtn4: TBitBtn;
  31.     BitBtn15: TBitBtn;
  32.     BitBtn16: TBitBtn;
  33.     BitBtn17: TBitBtn;
  34.     BitBtn18: TBitBtn;
  35.     BitBtn19: TBitBtn;
  36.     BitBtn20: TBitBtn;
  37.     BitBtn21: TBitBtn;
  38.     Panel2: TPanel;
  39.     Label21: TLabel;
  40.     Label22: TLabel;
  41.     Label23: TLabel;
  42.     Label24: TLabel;
  43.     Label25: TLabel;
  44.     Label26: TLabel;
  45.     Label27: TLabel;
  46.     Label28: TLabel;
  47.     Label29: TLabel;
  48.     Label30: TLabel;
  49.     Label31: TLabel;
  50.     Label32: TLabel;
  51.     Label33: TLabel;
  52.     Label34: TLabel;
  53.     Label35: TLabel;
  54.     Label36: TLabel;
  55.     Label37: TLabel;
  56.     Label38: TLabel;
  57.     Label39: TLabel;
  58.     Label40: TLabel;
  59.     BitBtn22: TBitBtn;
  60.     Panel1: TPanel;
  61.     BitBtn1: TBitBtn;
  62.     Label1: TLabel;
  63.     procedure BitBtn3Click(Sender: TObject);
  64.     procedure BitBtn5Click(Sender: TObject);
  65.     procedure BitBtn6Click(Sender: TObject);
  66.     procedure BitBtn7Click(Sender: TObject);
  67.     procedure BitBtn2Click(Sender: TObject);
  68.     procedure BitBtn8Click(Sender: TObject);
  69.     procedure BitBtn9Click(Sender: TObject);
  70.     procedure BitBtn10Click(Sender: TObject);
  71.     procedure BitBtn11Click(Sender: TObject);
  72.     procedure FormCreate(Sender: TObject);
  73.     procedure BitBtn12Click(Sender: TObject);
  74.     procedure BitBtn13Click(Sender: TObject);
  75.     procedure BitBtn14Click(Sender: TObject);
  76.     procedure BitBtn4Click(Sender: TObject);
  77.     procedure BitBtn15Click(Sender: TObject);
  78.     procedure BitBtn16Click(Sender: TObject);
  79.     procedure BitBtn17Click(Sender: TObject);
  80.     procedure BitBtn18Click(Sender: TObject);
  81.     procedure BitBtn19Click(Sender: TObject);
  82.     procedure BitBtn20Click(Sender: TObject);
  83.     procedure BitBtn21Click(Sender: TObject);
  84.     procedure BitBtn1Click(Sender: TObject);
  85.   private
  86.     { Private declarations }
  87.   public
  88.     { Public declarations }
  89.   end;
  90.  
  91. { global method used to create and show a Form ... }
  92. Procedure ShowForm(AFormClass:TFormClass);
  93.  
  94. implementation
  95.  
  96. {$R *.DFM}
  97. Uses UAxisLab,UBitmap,UDraw,UMain,UOverBar,MulAxis,
  98.      UPages,UPrint,UScroll,UShapes,UYLegend,LastValu,UColor,
  99.      UMetafil,UAniZoom,UTeeScro,UCrossH,UKeyboa,LogLab,
  100.      UClick
  101.      {$IFNDEF D1}
  102.      ,UMultAxi
  103.      {$ENDIF}
  104.      ;
  105.  
  106. { global method used to display any Form... }
  107. Procedure ShowForm(AFormClass:TFormClass);
  108. Begin
  109.   With AFormClass.Create(Application) do
  110.   try
  111.     ShowModal;
  112.   finally
  113.     Free;
  114.   end;
  115. End;
  116.  
  117. procedure TFeaturesForm.BitBtn3Click(Sender: TObject);
  118. begin
  119.   ShowForm(TMiniForm);
  120. end;
  121.  
  122. procedure TFeaturesForm.BitBtn5Click(Sender: TObject);
  123. begin
  124.   ShowForm(TClickingForm);
  125. end;
  126.  
  127. procedure TFeaturesForm.BitBtn6Click(Sender: TObject);
  128. begin
  129.   ShowForm(TBitmapForm);
  130. end;
  131.  
  132. procedure TFeaturesForm.BitBtn7Click(Sender: TObject);
  133. begin
  134.   ShowForm(TDrawForm);
  135. end;
  136.  
  137. procedure TFeaturesForm.BitBtn2Click(Sender: TObject);
  138. begin
  139.   ShowForm(TScrollForm);
  140. end;
  141.  
  142. procedure TFeaturesForm.BitBtn8Click(Sender: TObject);
  143. begin
  144.   ShowForm(TShapesForm);
  145. end;
  146.  
  147. procedure TFeaturesForm.BitBtn9Click(Sender: TObject);
  148. begin
  149.   ShowForm(TOverBarForm);
  150. end;
  151.  
  152. procedure TFeaturesForm.BitBtn10Click(Sender: TObject);
  153. begin
  154.   ShowForm(TPrintForm);
  155. end;
  156.  
  157. procedure TFeaturesForm.BitBtn11Click(Sender: TObject);
  158. begin
  159.   ShowForm(TPagesForm);
  160. end;
  161.  
  162. procedure TFeaturesForm.FormCreate(Sender: TObject);
  163. begin
  164.   if Screen.Width<800 then
  165.      ShowMessage('Warning: '+#13+#10+
  166.                  'This Demo is best viewed with a Screen'+#13+#10+
  167.                  'resolution of 800x600 or greater,'+#13+#10+
  168.                  'and a Color Depth of 256 or greater.'+#13+#10+
  169.                  '16K Colors is also better than 256 Colors.');
  170. end;
  171.  
  172. procedure TFeaturesForm.BitBtn12Click(Sender: TObject);
  173. begin
  174.   ShowForm(TAxisLabelsForm);
  175. end;
  176.  
  177. procedure TFeaturesForm.BitBtn13Click(Sender: TObject);
  178. begin
  179.   ShowForm(TLegendXYForm);
  180. end;
  181.  
  182. procedure TFeaturesForm.BitBtn14Click(Sender: TObject);
  183. begin
  184.   ShowForm(TDigitalForm);
  185. end;
  186.  
  187. procedure TFeaturesForm.BitBtn4Click(Sender: TObject);
  188. begin
  189.   ShowForm(TFormAnimatedZoom);
  190. end;
  191.  
  192. procedure TFeaturesForm.BitBtn15Click(Sender: TObject);
  193. begin
  194.   ShowForm(TMetafileForm);
  195. end;
  196.  
  197. procedure TFeaturesForm.BitBtn16Click(Sender: TObject);
  198. begin
  199.   {$IFNDEF D1}
  200.   ShowForm(TFormMultipleAxes);
  201.   {$ENDIF}
  202. end;
  203.  
  204. procedure TFeaturesForm.BitBtn17Click(Sender: TObject);
  205. begin
  206.   ShowForm(TColoredForm);
  207. end;
  208.  
  209. procedure TFeaturesForm.BitBtn18Click(Sender: TObject);
  210. begin
  211.   ShowForm(TScrollBarForm);
  212. end;
  213.  
  214. procedure TFeaturesForm.BitBtn19Click(Sender: TObject);
  215. begin
  216.   ShowForm(TCrossHairForm);
  217. end;
  218.  
  219. procedure TFeaturesForm.BitBtn20Click(Sender: TObject);
  220. begin
  221.   ShowForm(TKeyboardForm);
  222. end;
  223.  
  224. procedure TFeaturesForm.BitBtn21Click(Sender: TObject);
  225. begin
  226.   ShowForm(TCustomLabelsForm);
  227. end;
  228.  
  229. procedure TFeaturesForm.BitBtn1Click(Sender: TObject);
  230. begin
  231.   ShowForm(TCustomAxisForm);
  232. end;
  233.  
  234. end.
  235.