home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / WinesChart / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-23  |  723 b   |  41 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart,
  8.   Db, DBTables;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     DBChart1: TDBChart;
  15.     Series1: THorizBarSeries;
  16.     BitBtn1: TBitBtn;
  17.     BitBtn2: TBitBtn;
  18.     procedure BitBtn2Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   MainForm: TMainForm;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. uses
  33.   TeePrevi;
  34.  
  35. procedure TMainForm.BitBtn2Click(Sender: TObject);
  36. begin
  37.   ChartPreview(MainForm, DBChart1);
  38. end;
  39.  
  40. end.
  41.