home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / program / delphi / navody / d56 / ec1vr2.exe / #setuppath# / Delphi / 2DTable / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-12-09  |  1.7 KB  |  79 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   vivrep20, Menus, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     MainMenu: TMainMenu;
  12.     PrintItem: TMenuItem;
  13.     PrintSetupItem: TMenuItem;
  14.     ExitItem: TMenuItem;
  15.     AboutItem: TMenuItem;
  16.     SpeedBar: TPanel;
  17.     SpeedButton1: TSpeedButton;  // &Print...
  18.     SpeedButton2: TSpeedButton;  // P&rint Setup...
  19.     SpeedButton3: TSpeedButton;  // E&xit
  20.     SpeedButton4: TSpeedButton;  // &About...
  21.     PrintPreviewItem: TMenuItem;
  22.     SpeedButton5: TSpeedButton;
  23.     CustPanel: TPanel;
  24.     CustLabel: TLabel;
  25.     CustGrid: TDBGrid;
  26.     Splitter1: TSplitter;
  27.     MethodsPanel: TPanel;
  28.     MethodsLabel: TLabel;
  29.     MethodsGrid: TDBGrid;
  30.     VRPreview: TVRPreview;
  31.     VRPrintProgress: TVRPrintProgress;
  32.  
  33.     procedure PrintSetup(Sender: TObject);
  34.     procedure Exit(Sender: TObject);
  35.     procedure About(Sender: TObject);
  36.     procedure PrintPreviewItemClick(Sender: TObject);
  37.     procedure PrintItemClick(Sender: TObject);  
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   MainForm: TMainForm;
  46.  
  47. implementation
  48.  
  49. uses Rep, About;
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TMainForm.PrintSetup(Sender: TObject);
  54. begin
  55.   RepForm.VividReport.PrinterSetup;
  56. end;
  57.  
  58. procedure TMainForm.Exit(Sender: TObject);
  59. begin
  60.   Close;
  61. end;
  62.  
  63. procedure TMainForm.About(Sender: TObject);
  64. begin
  65.   AboutBox.ShowModal;
  66. end;
  67.  
  68. procedure TMainForm.PrintPreviewItemClick(Sender: TObject);
  69. begin
  70.   RepForm.VividReport.PrintPreview (VRPreview);
  71. end;
  72.  
  73. procedure TMainForm.PrintItemClick(Sender: TObject);  
  74. begin
  75.   if RepForm.VividReport.PrintSetup then RepForm.VividReport.Print;
  76. end;
  77.  
  78. end.
  79.