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 = CheckBox1->Checked ? 3 : 2 ;
   DetailBand->NewPage = CheckBox2->Checked;
   nColWidth = SctReport1->Page->PageWidth / nCols;
   varlabel2->Width = nColWidth - 10;
   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;
}
//---------------------------------------------------------------------------