home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / program / delphi / navody / d56 / ec1vr2.exe / #setuppath# / Delphi / Biolife / Rep.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-12-09  |  1.4 KB  |  62 lines
  1. unit Rep;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   vivrep20, ComCtrls;
  8.  
  9. type
  10.   TRepForm = class(TForm)
  11.         VividReport: TVividReport;
  12.         VRPage: TVRPage;
  13.         VRBand1: TVRBand;
  14.         VRBand2: TVRBand;
  15.         VRBand3: TVRBand;
  16.         ComName: TVRLabel;
  17.         VRBand4: TVRBand;
  18.         Category: TVRLabel;
  19.         VRBand5: TVRBand;
  20.         VRBand6: TVRBand;
  21.         CatLabel: TVRLabel;
  22.         VRBand7: TVRBand;
  23.         VRBand8: TVRBand;
  24.         SpecLabel: TVRLabel;
  25.         VRBand9: TVRBand;
  26.         VRBand10: TVRBand;
  27.         SpecNameLabel: TVRLabel;
  28.         SpecName: TVRLabel;
  29.         LenCmLabel: TVRLabel;
  30.         VRBand11: TVRBand;
  31.         VRBand12: TVRBand;
  32.         VRBand13: TVRBand;
  33.         VRBand14: TVRBand;
  34.         VRRepTitle: TVRLabel;
  35.         VRSysInfo: TVRLabel;
  36.         SpecNo: TVRLabel;
  37.         LenCm: TVRLabel;
  38.         Graphic: TVRLabel;
  39.         Notes: TVRLabel;
  40.         procedure VividReportBeforePrint(Sender: TObject;var APrint: TBeforeAction);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   RepForm: TRepForm;
  49.  
  50. implementation
  51.  
  52. uses Main, dm;
  53.  
  54. {$R *.DFM}
  55.  
  56. procedure TRepForm.VividReportBeforePrint(Sender: TObject;var APrint: TBeforeAction);
  57. begin
  58.   if MainForm.Grid.SelectedRows.IndexOf (BioLifeDM.RepTable.Bookmark) = -1 then APrint := baNoPrint;
  59. end;
  60.  
  61. end.
  62.