home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UMULTIAX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.2 KB  |  65 lines
  1. {****************************************}
  2. {    TeeChart. TChart Component          }
  3. { Copyright (c) 1995-98 by David Berneda }
  4. {    All Rights Reserved                 }
  5. {****************************************}
  6. unit UMultiAx;
  7.  
  8. interface
  9.  
  10. uses
  11.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   StdCtrls;
  13.  
  14. type
  15.   TFormMenuMultiAxes = class(TForm)
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     Button3: TButton;
  19.     procedure Button3Click(Sender: TObject);
  20.     procedure Button2Click(Sender: TObject);
  21.     procedure Button1Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31. Uses   {$IFNDEF D1}
  32.        UMultAxi,
  33.        {$ENDIF}
  34.        BasicMul;
  35.  
  36. procedure TFormMenuMultiAxes.Button3Click(Sender: TObject);
  37. begin
  38.   Close;
  39. end;
  40.  
  41. procedure TFormMenuMultiAxes.Button2Click(Sender: TObject);
  42. begin
  43.   {$IFDEF D1}
  44.   {$ELSE}
  45.   With TFormMultipleAxes.Create(Self) do
  46.   try
  47.     ShowModal;
  48.   finally
  49.     Free;
  50.   end;
  51.   {$ENDIF}
  52. end;
  53.  
  54. procedure TFormMenuMultiAxes.Button1Click(Sender: TObject);
  55. begin
  56.   With TBasicMultipleAxes.Create(Self) do
  57.   try
  58.     ShowModal;
  59.   finally
  60.     Free;
  61.   end;
  62. end;
  63.  
  64. end.
  65.