home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mastapp.pak / PICKREP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  723 b   |  41 lines
  1. unit Pickrep;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls;
  7.  
  8. type
  9.   TPickRpt = class(TForm)
  10.     GroupBox1: TGroupBox;
  11.     CustRadBtn: TRadioButton;
  12.     OrderRadBtn: TRadioButton;
  13.     OKBtn: TButton;
  14.     CloseBtn: TButton;
  15.     ViewBtn: TButton;
  16.     OrderInvBtn: TRadioButton;
  17.     procedure OKBtnClick(Sender: TObject);
  18.     procedure ViewBtnClick(Sender: TObject);
  19.   end;
  20.  
  21. var
  22.   PickRpt: TPickRpt;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. uses Main;
  29.  
  30. procedure TPickRpt.OKBtnClick(Sender: TObject);
  31. begin
  32.   MainForm.Report.Preview := False;
  33. end;
  34.  
  35. procedure TPickRpt.ViewBtnClick(Sender: TObject);
  36. begin
  37.   MainForm.Report.Preview := True;
  38. end;
  39.  
  40. end.
  41.