htmform.pas

来自「suite component ace report」· PAS 代码 · 共 43 行

unit htmform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, HtmlUtil,
  SctVar, ExtCtrls, SctRep;

type
  THtmlForm = class(TForm)
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    procedure BandToHtml(Band: TSctBand);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HtmlForm: THtmlForm;

implementation

{$R *.DFM}

procedure THtmlForm.BandToHtml(Band: TSctBand);
begin
    MyBandToHtml(Band);
end;

end.