home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / UDEMOCHA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  3.3 KB  |  132 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.   TBasicSeriesForm = class(TForm)
  17.     GroupBox1: TGroupBox;
  18.     BitBtn4: TBitBtn;
  19.     BitBtn5: TBitBtn;
  20.     BitBtn6: TBitBtn;
  21.     BitBtn7: TBitBtn;
  22.     BStacked: TBitBtn;
  23.     BFastLine: TBitBtn;
  24.     BArrowSeries: TBitBtn;
  25.     BitBtn1: TBitBtn;
  26.     BStackedAreas: TBitBtn;
  27.     BitBtn21: TBitBtn;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     Label4: TLabel;
  32.     Label5: TLabel;
  33.     Label6: TLabel;
  34.     Label7: TLabel;
  35.     Label8: TLabel;
  36.     Label9: TLabel;
  37.     Panel1: TPanel;
  38.     procedure BitBtn4Click(Sender: TObject);
  39.     procedure BitBtn5Click(Sender: TObject);
  40.     procedure BitBtn6Click(Sender: TObject);
  41.     procedure BitBtn7Click(Sender: TObject);
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure BStackedClick(Sender: TObject);
  44.     procedure BFastLineClick(Sender: TObject);
  45.     procedure BArrowSeriesClick(Sender: TObject);
  46.     procedure BStackedAreasClick(Sender: TObject);
  47.     procedure BitBtn21Click(Sender: TObject);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.     Procedure ShowForm(AFormClass:TFormClass);
  53.   end;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58. Uses Pie,Bubble,Gantt,Basic,UStack,UFast,UArrows,StackAre,UHighLo;
  59.  
  60. Procedure TBasicSeriesForm.ShowForm(AFormClass:TFormClass);
  61. Begin
  62.   With AFormClass.Create(Self) do
  63.   try
  64.     ShowModal;
  65.   finally
  66.     Free;
  67.   end;
  68. End;
  69.  
  70. procedure TBasicSeriesForm.BitBtn4Click(Sender: TObject);
  71. begin
  72.   ShowForm(TBasicForm);
  73. end;
  74.  
  75. procedure TBasicSeriesForm.BitBtn5Click(Sender: TObject);
  76. begin
  77.   ShowForm(TPieForm);
  78. end;
  79.  
  80. procedure TBasicSeriesForm.BitBtn6Click(Sender: TObject);
  81. begin
  82.   ShowForm(TBubbleForm);
  83. end;
  84.  
  85. procedure TBasicSeriesForm.BitBtn7Click(Sender: TObject);
  86. begin
  87.   ShowForm(TGanttForm);
  88. end;
  89.  
  90. Procedure ShowNeedsBDE;
  91. Begin
  92.   ShowMessage('Needs the Borland Database Engine.'+#13+#10+
  93.               'Please email to get the full TeeChart DEMO.');
  94. end;
  95.  
  96. procedure TBasicSeriesForm.FormCreate(Sender: TObject);
  97. begin
  98.   if Screen.Width<800 then
  99.      ShowMessage('Warning: '+#13+#10+
  100.                  'This Demo is best viewed with a Screen'+#13+#10+
  101.                  'resolution of 800x600 or greater,'+#13+#10+
  102.                  'and a Color Depth of 256 or greater.'+#13+#10+
  103.                  '16K Colors is also better than 256 Colors.');
  104. end;
  105.  
  106. procedure TBasicSeriesForm.BStackedClick(Sender: TObject);
  107. begin
  108.   ShowForm(TStackedForm);
  109. end;
  110.  
  111. procedure TBasicSeriesForm.BFastLineClick(Sender: TObject);
  112. begin
  113.   ShowForm(TFastLineForm);
  114. end;
  115.  
  116. procedure TBasicSeriesForm.BArrowSeriesClick(Sender: TObject);
  117. begin
  118.   ShowForm(TArrowsForm);
  119. end;
  120.  
  121. procedure TBasicSeriesForm.BStackedAreasClick(Sender: TObject);
  122. begin
  123.   ShowForm(TAreasForm);
  124. end;
  125.  
  126. procedure TBasicSeriesForm.BitBtn21Click(Sender: TObject);
  127. begin
  128.   ShowForm(THighLowForm);
  129. end;
  130.  
  131. end.
  132.