home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / DELPHI4.EXE / %MAINDIR% / Examples / 3rdParty / QuickReport / QRDemo2 / umain2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-11-17  |  847 b   |  50 lines
  1. unit umain2;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, StdCtrls, quickrpt, Qrctrls, ExtCtrls;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Button1: TButton;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Image2: TImage;
  18.     procedure BitBtn1Click(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form2: TForm2;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32. Uses TeeQR2;
  33.  
  34. procedure TForm2.BitBtn1Click(Sender: TObject);
  35. begin
  36.   With TForm1.Create(Self) do
  37.   try
  38.     QuickRep1.Preview;
  39.   finally
  40.     Free;
  41.   end;
  42. end;
  43.  
  44. procedure TForm2.Button1Click(Sender: TObject);
  45. begin
  46.   Close;
  47. end;
  48.  
  49. end.
  50.