custprev.cpp

suite component ace report

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

#include "Custprev.h"
//---------------------------------------------------------------------------
#pragma link "SctRep"
#pragma link "SctVar"
#pragma link "SctBtn"
#pragma link "AcePrev"
#pragma link "SctCtrl"
#pragma link "AcePage"
#pragma resource "*.dfm"
TFormCustomPreview *FormCustomPreview;
//---------------------------------------------------------------------------
__fastcall TFormCustomPreview::TFormCustomPreview(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormCustomPreview::Button2Click(TObject *Sender)
{
  String page,totalPages;

  MyPreview->PriorPage();
  page = String(MyPreview->Page);
  totalPages = String(MyPreview->PageCount);
  PageNum->Caption = "Page: " + page + "/" + totalPages;
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::ReportPagePreview(TObject *Sender)
{
  TSctPage *pg = (TSctPage *) Sender;

  MyPreview->LoadFromAceFile(pg->PrintTo->AceFile);
  First = True;
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::SctReport1BeforePrint(TSctReport *Report)
{
  if (!ScrollCheckBox->Checked)
    {
      Parts->DisableControls();
      Vendors->DisableControls();
    }
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::SctReport1AfterPrint(TSctReport *Report)
{
  if (!ScrollCheckBox->Checked)
    {
      Vendors->EnableControls();
      Parts->EnableControls();
    }
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::ReportPageUpdateStatus(TSctPage *Page,
	TSctStatus Stat)
{
  String page,totalPages;

  if (First && ((MyPreview->PageCount == 2) || (MyPreview->LoadPercent == 100)))
    {
      MyPreview->Invalidate();
      First = False;
    }
  page = String(MyPreview->Page);
  totalPages = String(MyPreview->PageCount);
  PageNum->Caption = "Page: " + page + "/" + totalPages;

}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::Button1Click(TObject *Sender)
{
  String page,totalPages;

  MyPreview->NextPage();
  page = String(MyPreview->Page);
  totalPages = String(MyPreview->PageCount);
  PageNum->Caption = "Page: " + page + "/" + totalPages;
}
//---------------------------------------------------------------------
void __fastcall TFormCustomPreview::ReportPageAfterDataSkip(TSctGrouppage *Page)
{
  if (!ScrollCheckBox->Checked)
    {
      Parts->SetRange(OPENARRAY( TVarRec, (Vendors->FieldByName("VendorNo")->AsString)),
                      OPENARRAY( TVarRec, (Vendors->FieldByName("VendorNo")->AsString)));
      Parts->ApplyRange();
    }
}
//---------------------------------------------------------------------------