unit1.pas

suite component ace report

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, SctCtrl, SctVar, ExtCtrls, SctRep, Buttons, SctBtn;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    ExprCol1: TSctExprVar;
    ExprCol2: TSctExprVar;
    ExprCol3: TSctExprVar;
    ExprCol4: TSctExprVar;
    ExprCol0: TSctExprVar;
    varlabel: TSctvarlabel;
    varlabel1: TSctvarlabel;
    varlabel2: TSctvarlabel;
    varlabel3: TSctvarlabel;
    varlabel4: TSctvarlabel;
    varlabel5: TSctvarlabel;
    varlabel6: TSctvarlabel;
    varlabel7: TSctvarlabel;
    varlabel8: TSctvarlabel;
    varlabel9: TSctvarlabel;
    SctReportButton1: TSctReportButton;
    SctVerticalDivider1: TSctVerticalDivider;
    SctVerticalDivider2: TSctVerticalDivider;
    SctVerticalDivider3: TSctVerticalDivider;
    SctVerticalDivider4: TSctVerticalDivider;
    SctVerticalDivider5: TSctVerticalDivider;
    SctVerticalDivider6: TSctVerticalDivider;
    SctVerticalDivider7: TSctVerticalDivider;
    SctVerticalDivider8: TSctVerticalDivider;
    SctVerticalDivider9: TSctVerticalDivider;
    SctVerticalDivider10: TSctVerticalDivider;
    procedure Button1Click(Sender: TObject);
    procedure ReportPageDataStart(Sender: TObject);
    procedure ReportPageDataSkip(Sender: TObject);
    procedure ExprCol1GetData(oVar: TSctVar);
  private
    { Private declarations }
    ListPos: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J, K : Integer;
begin
  K := 0;
  with StringGrid1 do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
        K := K + 1;
        Cells[I,J] := IntToStr(K);
        end;
end;

procedure TForm1.ReportPageDataStart(Sender: TObject);
begin
  ListPos := 0;
  TSctPage(Sender).DataIsFinished := (StringGrid1.RowCount <= ListPos);
end;

procedure TForm1.ReportPageDataSkip(Sender: TObject);
begin
  Inc(ListPos);
  TSctPage(Sender).DataIsFinished := (StringGrid1.RowCount <= ListPos);
end;

procedure TForm1.ExprCol1GetData(oVar: TSctVar);
begin
  if oVar.Tag < StringGrid1.ColCount then
    oVar.AsString := StringGrid1.Cells[ oVar.Tag, ListPos ]
  else
    oVar.AsString := 'Empty';  
end;

end.