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