unit1.cpp

suite component ace report

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AcePage"
#pragma link "SctBtn"
#pragma link "SctCtrl"
#pragma link "SctRep"
#pragma link "SctVar"
#pragma resource "*.dfm"
TForm1 *Form1;
int MarkYPos, nCols, nColWidth, nCurrCol;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SctReport1BeforePrint(TSctReport *Report)
{
   nCols = 3;
   nColWidth = SctReport1->Page->PageWidth / nCols;
   nCurrCol = 0;
   MarkYPos = -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReportPageBeforeNewPage(TSctPage *Page,
      bool &DoNewPage)
{
  nCurrCol++;
  DoNewPage = (nCurrCol >= nCols);
  if (DoNewPage) {nCurrCol = 0;} else {Page->YPos = MarkYPos;};
  Page->XPos = (Page->PageSetup->LeftMargin * Page->PixelsPerInch) + (nCurrCol * nColWidth);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailBandBeforePrint(TSctBand *Band)
{
  if (MarkYPos == -1) MarkYPos = Band->Page->YPos;
}
//---------------------------------------------------------------------------
void AddStream(TStream *Stream, String S)
{
  if (S.Length() > 0)
  {
    Stream->Write(S.c_str(), S.Length());
    Stream->Write("\n", 1);
  }
}
void __fastcall TForm1::ExprVarGetData(TSctVar *oVar)
{
  TMemoryStream *Stream = new TMemoryStream;
  String CityStateZip;

  AddStream(Stream, Table1->FieldByName("Addr1")->AsString);
  AddStream(Stream, Table1->FieldByName("Addr2")->AsString);
  CityStateZip = SctRightTrim(Table1->FieldByName("City")->AsString)
            + ", " + SctRightTrim(Table1->FieldByName("State")->AsString)
            + "  " + SctRightTrim(Table1->FieldByName("Zip")->AsString);
  AddStream(Stream, CityStateZip);
  AddStream(Stream, Table1->FieldByName("Country")->AsString);

  oVar->AsStream = Stream;

  Stream->Free();

}
//---------------------------------------------------------------------------