home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UDEMOCHA.PAS < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  4KB  |  188 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Main Form Demo                              }
  4. { Copyright (c) 1995-1996 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit Udemocha;
  8.  
  9. interface
  10.  
  11. uses
  12.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  13.   Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;
  14.  
  15. type
  16.   TSeriesForm = class(TForm)
  17.     GroupBox1: TGroupBox;
  18.     BitBtn4: TBitBtn;
  19.     BitBtn5: TBitBtn;
  20.     BitBtn6: TBitBtn;
  21.     BitBtn7: TBitBtn;
  22.     GroupBox3: TGroupBox;
  23.     BitBtn9: TBitBtn;
  24.     BitBtn10: TBitBtn;
  25.     BitBtn11: TBitBtn;
  26.     BStacked: TBitBtn;
  27.     BFastLine: TBitBtn;
  28.     BitBtn14: TBitBtn;
  29.     BArrowSeries: TBitBtn;
  30.     BitBtn1: TBitBtn;
  31.     BStackedAreas: TBitBtn;
  32.     BitBtn21: TBitBtn;
  33.     Label1: TLabel;
  34.     Label2: TLabel;
  35.     Label3: TLabel;
  36.     Label4: TLabel;
  37.     Label5: TLabel;
  38.     Label6: TLabel;
  39.     Label7: TLabel;
  40.     Label8: TLabel;
  41.     Label9: TLabel;
  42.     Panel1: TPanel;
  43.     Panel2: TPanel;
  44.     Label10: TLabel;
  45.     Label11: TLabel;
  46.     Label12: TLabel;
  47.     Label13: TLabel;
  48.     Label14: TLabel;
  49.     procedure BitBtn4Click(Sender: TObject);
  50.     procedure BitBtn5Click(Sender: TObject);
  51.     procedure BitBtn6Click(Sender: TObject);
  52.     procedure BitBtn7Click(Sender: TObject);
  53.     procedure BitBtn9Click(Sender: TObject);
  54.     procedure BitBtn10Click(Sender: TObject);
  55.     procedure BitBtn11Click(Sender: TObject);
  56.     procedure FormCreate(Sender: TObject);
  57.     procedure BStackedClick(Sender: TObject);
  58.     procedure BFastLineClick(Sender: TObject);
  59.     procedure BitBtn14Click(Sender: TObject);
  60.     procedure BArrowSeriesClick(Sender: TObject);
  61.     procedure BStackedAreasClick(Sender: TObject);
  62.     procedure BitBtn21Click(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.     { Public declarations }
  67.     Procedure ShowForm(AFormClass:TFormClass);
  68.   end;
  69.  
  70. implementation
  71.  
  72. {$R *.DFM}
  73. Uses Pie,Bubble,Gantt,Basic,UStack,UFast,
  74.      UArrows,StackAre,UHighLo
  75.      {$IFNDEF NODB}
  76.      ,TablePie,SQLBars,Linked,UDBHoriz
  77.      {$ENDIF}
  78.      ;
  79.  
  80. Procedure TSeriesForm.ShowForm(AFormClass:TFormClass);
  81. Begin
  82.   With AFormClass.Create(Self) do
  83.   try
  84.     ShowModal;
  85.   finally
  86.     Free;
  87.   end;
  88. End;
  89.  
  90. procedure TSeriesForm.BitBtn4Click(Sender: TObject);
  91. begin
  92.   ShowForm(TBasicForm);
  93. end;
  94.  
  95. procedure TSeriesForm.BitBtn5Click(Sender: TObject);
  96. begin
  97.   ShowForm(TPieForm);
  98. end;
  99.  
  100. procedure TSeriesForm.BitBtn6Click(Sender: TObject);
  101. begin
  102.   ShowForm(TBubbleForm);
  103. end;
  104.  
  105. procedure TSeriesForm.BitBtn7Click(Sender: TObject);
  106. begin
  107.   ShowForm(TGanttForm);
  108. end;
  109.  
  110. Procedure ShowNeedsBDE;
  111. Begin
  112.   ShowMessage('Needs the Borland Database Engine.'+#13+#10+
  113.               'Please email to get the full TeeChart DEMO.');
  114. end;
  115.  
  116. procedure TSeriesForm.BitBtn9Click(Sender: TObject);
  117. begin
  118.   {$IFNDEF NODB}
  119.   ShowForm(TTablePieForm);
  120.   {$ELSE}
  121.   ShowNeedsBDE;
  122.   {$ENDIF}
  123. end;
  124.  
  125. procedure TSeriesForm.BitBtn10Click(Sender: TObject);
  126. begin
  127.   {$IFNDEF NODB}
  128.   ShowForm(TSQLBarsForm);
  129.   {$ELSE}
  130.   ShowNeedsBDE;
  131.   {$ENDIF}
  132. end;
  133.  
  134. procedure TSeriesForm.BitBtn11Click(Sender: TObject);
  135. begin
  136.   {$IFNDEF NODB}
  137.   ShowForm(TLinkedTablesForm);
  138.   {$ELSE}
  139.    ShowNeedsBDE;
  140.   {$ENDIF}
  141. end;
  142.  
  143. procedure TSeriesForm.FormCreate(Sender: TObject);
  144. begin
  145.   if Screen.Width<800 then
  146.      ShowMessage('Warning: '+#13+#10+
  147.                  'This Demo is best viewed with a Screen'+#13+#10+
  148.                  'resolution of 800x600 or greater,'+#13+#10+
  149.                  'and a Color Depth of 256 or greater.'+#13+#10+
  150.                  '16K Colors is also better than 256 Colors.');
  151. end;
  152.  
  153. procedure TSeriesForm.BStackedClick(Sender: TObject);
  154. begin
  155.   ShowForm(TStackedForm);
  156. end;
  157.  
  158. procedure TSeriesForm.BFastLineClick(Sender: TObject);
  159. begin
  160.   ShowForm(TFastLineForm);
  161. end;
  162.  
  163. procedure TSeriesForm.BitBtn14Click(Sender: TObject);
  164. begin
  165.   {$IFNDEF NODB}
  166.   ShowForm(TDBHorizBarForm);
  167.   {$ELSE}
  168.   ShowNeedsBDE;
  169.   {$ENDIF}
  170. end;
  171.  
  172. procedure TSeriesForm.BArrowSeriesClick(Sender: TObject);
  173. begin
  174.   ShowForm(TArrowsForm);
  175. end;
  176.  
  177. procedure TSeriesForm.BStackedAreasClick(Sender: TObject);
  178. begin
  179.   ShowForm(TAreasForm);
  180. end;
  181.  
  182. procedure TSeriesForm.BitBtn21Click(Sender: TObject);
  183. begin
  184.   ShowForm(THighLowForm);
  185. end;
  186.  
  187. end.
  188.