home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / program / delphi / navody / d56 / ec1vr2.exe / #setuppath# / Delphi / Biolife / RepGrid.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2003-12-09  |  903 b   |  42 lines
  1. unit RepGrid;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   vivrep20, ComCtrls;
  8.  
  9. type
  10.   TRepGridForm = class(TForm)
  11.         VividReport: TVividReport;
  12.         VRPage: TVRPage;
  13.         VRBand1: TVRBand;
  14.         VRBand2: TVRBand;
  15.         VRBand3: TVRBand;
  16.         VRBand4: TVRBand;
  17.         VRGrid: TVRGrid;
  18.         VRSysInfo: TVRLabel;
  19.         VRRepTitle: TVRLabel;
  20.         procedure VRGridRows1BeforePrint(Sender: TObject;var APrint: TBeforeAction);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   RepGridForm: TRepGridForm;
  29.  
  30. implementation
  31.  
  32. uses Main, dm;
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TRepGridForm.VRGridRows1BeforePrint(Sender: TObject;var APrint: TBeforeAction);
  37. begin
  38.   if MainForm.Grid.SelectedRows.IndexOf (BioLifeDM.RepTable.Bookmark) = -1 then APrint := baNoPrint;
  39. end;
  40.  
  41. end.
  42.