rbio.pas

suite component ace report

unit Rbio;

{ ----------------------------------------------------------------
  Ace Reporter Version 1.0
  Copyright 1995 SCT Accociates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Sctvar, StdCtrls, sctctrl, DB, DBTables, ExtCtrls, Sctrep,
  AcePage;

type
  TMemoReport = class(TForm)
    biolifeSource: TDataSource;
    biolife: TTable;
    TSctBand1: TSctBand;
    ReportHeaderLevel: TSctLevel;
    TSctBand2: TSctBand;
    PageHeaderLevel: TSctLevel;
    TSctBand3: TSctBand;
    TSctBand4: TSctBand;
    PageFooterLevel: TSctLevel;
    TSctBand5: TSctBand;
    ReportFooterLevel: TSctLevel;
    TSctGrouppage1: TSctGrouppage;
    rmemo: TSctReport;
    rsctvarlabel1: TSctvarlabel;
    SctImageLabel1: TSctImageLabel;
    Sctvarlabel1: TSctvarlabel;
    SctTextLabel1: TSctTextLabel;
    SctTextLabel2: TSctTextLabel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    biolifeSPECIES_NO: TSctdbvar;
    biolifeCATEGORY: TSctdbvar;
    biolifeCOMMON_NAME: TSctdbvar;
    biolifeSPECIES_NAME: TSctdbvar;
    biolifeLENGTH__CM_: TSctdbvar;
    biolifeLENGTH_IN: TSctdbvar;
    biolifeNOTES: TSctdbvar;
    biolifeGRAPHIC: TSctdbvar;
    TSctDataSourceGuide1: TSctDataSourceGuide;
    DetailLevel: TSctLevel;
    SctVerticalDivider1: TSctVerticalDivider;
    SctBarCodeLabel1: TSctBarCodeLabel;
    Sctvarlabel2: TSctvarlabel;
    procedure TSctBand4PrintWhen(Band: TSctBand; var Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MemoReport: TMemoReport;

implementation

{$R *.DFM}

procedure TMemoReport.TSctBand4PrintWhen(Band: TSctBand;
  var Result: Boolean);
begin
  Result := True;
end;

end.