home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / program / delphi / navody / d56 / ec1vr2.exe / #setuppath# / Delphi / Prntext / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-12-09  |  2.1 KB  |  90 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   vivrep20, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls;
  8.  
  9. type
  10.  
  11.   TMainForm = class(TForm)
  12.     MainMenu: TMainMenu;
  13.     FileOpenItem: TMenuItem;
  14.     FilePrintItem: TMenuItem;
  15.     FilePrintSetupItem: TMenuItem;
  16.     FileExitItem: TMenuItem;
  17.     HelpAboutItem: TMenuItem;
  18.     OpenDialog: TOpenDialog;
  19.     SpeedBar: TPanel;
  20.     SpeedButton1: TSpeedButton;  // &Open...
  21.     SpeedButton2: TSpeedButton;  // &Print...
  22.     SpeedButton3: TSpeedButton;  // P&rint Setup...
  23.     SpeedButton4: TSpeedButton;  // E&xit
  24.     SpeedButton5: TSpeedButton;  // &About...
  25.     RichEdit1: TRichEdit;
  26.     Preview: TMenuItem;
  27.     SpeedButton6: TSpeedButton;
  28.  
  29.     procedure FileOpen(Sender: TObject);
  30.     procedure FilePrint(Sender: TObject);
  31.     procedure FilePrintSetup(Sender: TObject);
  32.     procedure FileExit(Sender: TObject);
  33.     procedure HelpAbout(Sender: TObject);
  34.     procedure PreviewClick(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   MainForm: TMainForm;
  43.  
  44. implementation
  45.  
  46. uses Rep, About;
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TMainForm.FileOpen(Sender: TObject);
  51. begin
  52.   if OpenDialog.Execute then
  53.   begin
  54.     Caption := 'Print Text Example - ' + OpenDialog.FileName;
  55.     RichEdit1.Lines.LoadFromFile (OpenDialog.FileName);
  56.  
  57.     RepForm.VividReport.ReportTitle := OpenDialog.FileName;
  58.     (RepForm.VRLabel3.Data as TAbsRichText).RichText.LoadFromFile (OpenDialog.FileName);
  59.     SpeedButton2.Enabled := ((RepForm.VRLabel3.Data as TAbsRichText).TextLength <> 0);
  60.     SpeedButton6.Enabled := SpeedButton2.Enabled;
  61.   end;
  62. end;
  63.  
  64. procedure TMainForm.FilePrint(Sender: TObject);
  65. begin
  66.   if RepForm.VividReport.PrintSetup then RepForm.VividReport.Print;
  67. end;
  68.  
  69. procedure TMainForm.FilePrintSetup(Sender: TObject);
  70. begin
  71.   RepForm.VividReport.PrinterSetup;
  72. end;
  73.  
  74. procedure TMainForm.FileExit(Sender: TObject);
  75. begin
  76.   Close;
  77. end;
  78.  
  79. procedure TMainForm.HelpAbout(Sender: TObject);
  80. begin
  81.   AboutBox.ShowModal;
  82. end;
  83.  
  84. procedure TMainForm.PreviewClick(Sender: TObject);
  85. begin
  86.   RepForm.VividReport.PrintPreview (RepForm.VRPreview);
  87. end;
  88.  
  89. end.
  90.