sctrep.hpp

suite component ace report

	bool FGroupPageBreaks;
	void __fastcall BandListSaveNewPage(TSctBand* Band, bool Value);
	HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
	HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	MESSAGE void __fastcall GPUpdateVarList(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall SCTAddBands(Messages::TWMNoParams &Message);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall Loaded(void);
	int __fastcall getpagewidth(void);
	int __fastcall getpageheight(void);
	int __fastcall getppi(void);
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	bool __fastcall GetPrintOk(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadOrder(Classes::TReader* Reader);
	void __fastcall WriteOrder(Classes::TWriter* Writer);
	void __fastcall ReadNoDsgList(Classes::TReader* Reader);
	void __fastcall WriteNoDsgList(Classes::TWriter* Writer);
	Sctutil::TSctUnits __fastcall GetUnits(void);
	Aceout::TAceCanvas* __fastcall GetCanvas(void);
	void __fastcall Preview(void);
	void __fastcall PrintingStatus(System::TObject* Sender);
	void __fastcall SetBandLabels(TSctBand* bd, TSctBandHead* bh);
	void __fastcall AfterDataSkip(void);
	void __fastcall DataStart(void);
	void __fastcall DataSkip(void);
	void __fastcall DataFinish(void);
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	Db::TDataSet* __fastcall GetDataSet(void);
	void __fastcall ReadDS(Classes::TReader* Reader);
	bool __fastcall DoOnDataFilter(void);
	
public:
	__fastcall virtual TSctPage(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctPage(void);
	virtual void __fastcall Redraw(void);
	virtual void __fastcall Run(void);
	virtual void __fastcall PaintArrow(System::TObject* Sender);
	void __fastcall FlipNewPage(System::TObject* Sender);
	void __fastcall FlipNewPageRepeat(System::TObject* Sender);
	void __fastcall FlipStretch(System::TObject* Sender);
	void __fastcall PageStart(void);
	void __fastcall PageEnd(void);
	__property Aceout::TAceCanvas* Canvas = {read=GetCanvas, write=FCanvas};
	void __fastcall BeginDoc(void);
	void __fastcall EndDoc(void);
	void __fastcall MoveTo(int x, int y);
	void __fastcall LineTo(int x, int y);
	void __fastcall FillRect(const Windows::TRect &Rect);
	__property int XPos = {read=FxPos, write=FxPos, nodefault};
	__property int YPos = {read=FyPos, write=FyPos, nodefault};
	__property int PageNumber = {read=FPageNumber, write=FPageNumber, nodefault};
	__property int PagesPrinted = {read=FPagesPrinted, write=FPagesPrinted, nodefault};
	__property bool PrintOk = {read=GetPrintOk, nodefault};
	void __fastcall Position(int x, int y);
	virtual void __fastcall NewPage(void);
	void __fastcall InsertLabel(Sctctrl::TSctLabel* oLabel);
	void __fastcall RemoveLabel(Sctctrl::TSctLabel* oLabel);
	void __fastcall InsertVar(Sctvar::TSctVar* oVar);
	void __fastcall RemoveVar(Sctvar::TSctVar* oVar);
	void __fastcall InsertLevel(Sctvar::TSctLevel* level);
	void __fastcall RemoveLevel(Sctvar::TSctLevel* level);
	virtual void __fastcall InsertBand(TSctBand* bd);
	virtual void __fastcall RemoveBand(TSctBand* bd);
	__property Classes::TList* Labels = {read=FLabels, write=FLabels};
	virtual void __fastcall UpdateVars(Sctvar::TSctLevel* Level);
	__property Aceout::TAceOutput* PrintTo = {read=FPrintTo, write=FPrintTo};
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	virtual void __fastcall ArrangeBands(void);
	virtual void __fastcall OrderBands(void);
	virtual void __fastcall FlipVisible(System::TObject* sender);
	__property Classes::TList* Bands = {read=FBands, write=FBands};
	__property Classes::TList* BandHeads = {read=FBandHeads, write=FBandHeads};
	__property Classes::TList* Levels = {read=FLevels, write=FLevels};
	void __fastcall SafeDelete(void);
	bool __fastcall GetAllowDelete(void);
	__property bool AllowDelete = {read=FAllowDelete, write=FAllowDelete, nodefault};
	__property bool OkDelete = {read=GetAllowDelete, nodefault};
	virtual void __fastcall SetPageName(AnsiString Name);
	virtual void __fastcall SetOrder(int Pos);
	__property AnsiString PageName = {read=FPageName, write=SetPageName};
	__property Classes::TList* TotalVars = {read=FTotalVars, write=FTotalVars};
	__property Classes::TList* VarList = {read=FVars, write=FVars};
	virtual void __fastcall UpdateVarList(void);
	__property int PageWidth = {read=getpagewidth, nodefault};
	__property int PageHeight = {read=getpageheight, nodefault};
	__property Forms::TForm* PageManager = {read=FPageManager, write=FPageManager};
	void __fastcall VarMarkUpdate(Sctvar::TSctLevel* Level, Sctvar::TSctUpdateMode Update);
	void __fastcall UpdateData(void);
	__property System::TDateTime StartDateTime = {read=FStartDateTime, write=FStartDateTime};
	virtual void __fastcall UpdateStatus(TSctStatus Stat);
	__property int PixelsPerInch = {read=getppi, write=FPixelsPerInch, nodefault};
	__property bool AbortPrinting = {read=FAbortPrinting, write=FAbortPrinting, nodefault};
	__property int Order = {read=FOrder, write=SetOrder, nodefault};
	__property TSctPageState PageState = {read=FPageState, write=FPageState, nodefault};
	__property Sctutil::TSctUnits Units = {read=GetUnits, nodefault};
	__property float PercentDone = {read=FPercentDone, write=FPercentDone};
	__property Aceview::TAceViewer* AceViewer = {read=FAceViewer, write=FAceViewer};
	void __fastcall AbortGeneration(System::TObject* Sender);
	__property Classes::TNotifyEvent OnUpdate = {read=FOnUpdate, write=FOnUpdate};
	__property int PageCount = {read=FPageCount, write=FPageCount, nodefault};
	__property int LastPagePos = {read=FLastPagePos, write=FLastPagePos, nodefault};
	virtual void __fastcall AddUpdateBand(TSctBand* Band);
	void __fastcall UpdatePageManager(void);
	void __fastcall UpdateDataLists(void);
	__property bool InUpdateDataLists = {read=FInUpdateDataLists, write=FInUpdateDataLists, nodefault};
		
	void __fastcall PrintPageFoot(void);
	void __fastcall PrintNewPageRepeats(void);
	void __fastcall PrintRepeats(TSctBand* Band);
	void __fastcall RepeatPrintBand(TSctBand* Band);
	void __fastcall RepeatPrintBandList(TSctBand* Band);
	void __fastcall AddMainBands(void);
	void __fastcall InsertOverLayBand(TSctOverlayBand* o);
	void __fastcall RemoveOverLayBand(TSctOverlayBand* o);
	void __fastcall InsertSubBand(TSctSubBand* oSB);
	void __fastcall RemoveSubBand(TSctSubBand* oSB);
	void __fastcall InsertSubDataBand(TSctSubDataBand* oSDB);
	void __fastcall RemoveSubDataBand(TSctSubDataBand* oSDB);
	void __fastcall InsertDataHFBand(TSctDataHeadBand* oHF);
	void __fastcall RemoveDataHFBand(TSctDataHeadBand* oHF);
	__property Classes::TList* SubBands = {read=FSubBands, write=FSubBands};
	__property Classes::TList* SubDataBands = {read=FSubDataBands, write=FSubDataBands};
	__property Classes::TList* DataHFBands = {read=FDataHFBands, write=FDataHFBands};
	__property Classes::TList* PrintDataList = {read=FPrintDataList, write=FPrintDataList};
	__property Classes::TList* PrintList = {read=FPrintList, write=FPrintList};
	__property Classes::TList* OverLayBands = {read=FOverLayBands, write=FOverLayBands};
	virtual void __fastcall PrintOverLays(bool First);
	void __fastcall InsertDataSourceGuide(TSctDataSourceGuide* dsg);
	void __fastcall RemoveDataSourceGuide(TSctDataSourceGuide* dsg);
	virtual void __fastcall AddDataSource(Db::TDataSource* ds);
	void __fastcall VarChanged(void);
	__property Classes::TList* DataSourceList = {read=FDataSourceList, write=FDataSourceList};
	void __fastcall AddBand(TSctBand* bd, Classes::TList* myBands, Classes::TList* myHeads);
	void __fastcall AddSubBand(TSctBand* bd, Classes::TList* myBands, Classes::TList* myHeads);
	void __fastcall DeleteAllGroups(void);
	void __fastcall ResetTotalLevel(Sctvar::TSctLevel* Level);
	void __fastcall ReverseUpdateDataLevel(Sctvar::TSctLevel* Level);
	void __fastcall UpdateDataLevel(Sctvar::TSctLevel* Level);
	void __fastcall PrintBand(TSctBand* Band, bool PageFootBand);
	void __fastcall PrintBorder(void);
	int __fastcall GetBandListHeight(TSctBand* bd);
	int __fastcall GetPageFootHeight(void);
	void __fastcall PrintBandList(TSctBand* Band, bool PageFootBand);
	void __fastcall PrintGroupHeads(int GroupLevel);
	void __fastcall PrintGroupFeet(int GroupLevel);
	void __fastcall CheckHeight(int nH);
	void __fastcall CheckBandHeight(TSctBand* Band);
	void __fastcall MakeList(void);
	void __fastcall MakeBandList(TSctBand* Band);
	virtual void __fastcall InsertGroup(TSctGroup* oGroup);
	virtual void __fastcall RemoveGroup(TSctGroup* oGroup);
	__property Classes::TList* Groups = {read=FGroups, write=FGroups};
	__property int AtGroupLevel = {read=FAtGroupLevel, write=FAtGroupLevel, nodefault};
	__property bool DataIsFinished = {read=FDataIsFinished, write=FDataIsFinished, nodefault};
	__property Classes::TList* OverLayList = {read=FOverLayList, write=FOverLayList};
	__property Classes::TList* PageList = {read=FPageList, write=FPageList};
	__property Classes::TList* MainList = {read=FMainList, write=FMainList};
	__property Classes::TList* Grouplist = {read=FGroupList, write=FGroupList};
	__property int PFHeight = {read=FPFHeight, write=FPFHeight, nodefault};
	__property TSctGroupPageState GroupPageState = {read=FGroupPageState, write=FGroupPageState, nodefault
		};
	__property Classes::TList* UpdateBandLevelList = {read=FUpdateBandLevelList, write=FUpdateBandLevelList
		};
	__property Graphics::TPen* Pen = {read=FPen, write=FPen};
	__property Sctrtf::TSctRtfFile* Rtf = {read=FRtf, write=FRtf};
	__property bool Continuous = {read=FContinuous, write=FContinuous, nodefault};
	__property Classes::TList* FullDSList = {read=FFullDSList, write=FFullDSList};
	__property Classes::TStringList* FullDSNames = {read=FFullDSNames, write=FFullDSNames};
	__property Classes::TStringList* NoDsgList = {read=FNoDsgList, write=FNoDsgList};
	__property Db::TDataLink* DataLink = {read=FDataLink, write=FDataLink};
	void __fastcall PostUpdateVarlist(void);
	__property int Records = {read=FRecords, write=FRecords, nodefault};
	__property int Skipped = {read=FSkipped, write=FSkipped, nodefault};
	__property bool LetUpdateDataList = {read=FLetUpdateDataList, write=FLetUpdateDataList, nodefault};
		
	__property bool Printing = {read=FPrinting, write=FPrinting, nodefault};
	bool __fastcall InitReport(void);
	void __fastcall UnInitReport(void);
	void __fastcall StartReport(void);
	void __fastcall Process(void);
	void __fastcall EndReport(void);
	void __fastcall ResetDataLevel(Sctvar::TSctLevel* level);
	__property Aceds::TAceDataSourceManager* DataSourceManager = {read=FDataSourceManager, write=FDataSourceManager
		};
	__property Db::TDataSet* DataSet = {read=GetDataSet, write=FDataSet};
	__property TSctReport* Report = {read=FReport, write=FReport};
	
__published:
	__property bool TwoPass = {read=FTwoPass, write=FTwoPass, default=0};
	__property bool ClipLabels = {read=FClipLabels, write=FClipLabels, nodefault};
	__property Psetup::TSctPageSetup* PageSetup = {read=FPageSetup, write=FPageSetup};
	__property Sctctrl::TSctBorderType BorderType = {read=FBorderType, write=FBorderType, nodefault};
	__property Color ;
	__property Font ;
	__property ParentColor ;
	__property ParentFont ;
	__property TSctOutputType OutputType = {read=FOutputType, write=FOutputType, default=0};
	__property Classes::TNotifyEvent OnPreview = {read=FOnPreview, write=FOnPreview};
	__property TSctOnUpdateStatus OnUpdateStatus = {read=FOnUpdateStatus, write=FOnUpdateStatus};
	__property AnsiString AceFileName = {read=FAceFileName, write=FAceFileName};
	__property AnsiString Description = {read=FDescription, write=FDescription};
	__property bool CloseDataSet = {read=FCloseDataSet, write=FCloseDataSet, nodefault};
	__property TSctDataRange DataRange = {read=FDataRange, write=FDataRange, nodefault};
	__property Classes::TNotifyEvent OnDataStart = {read=FOnDataStart, write=FOnDataStart};
	__property Classes::TNotifyEvent OnDataSkip = {read=FOnDataSkip, write=FOnDataSkip};
	__property Classes::TNotifyEvent OnDataFinish = {read=FOnDataFinish, write=FOnDataFinish};
	__property TSctDataFilterEvent OnDataFilter = {read=FOnDataFilter, write=FOnDataFilter};
	__property bool OmitLastPgFt = {read=FOmitLastPgFt, write=FOmitLastPgFt, nodefault};
	__property TSctBand* Head = {read=FHead, write=FHead};
	__property TSctBand* Detail = {read=FDetail, write=FDetail};
	__property TSctBand* Foot = {read=FFoot, write=FFoot};
	__property TSctBand* PageHead = {read=FPageHead, write=FPageHead};
	__property TSctBand* PageFoot = {read=FPageFoot, write=FPageFoot};
	__property AnsiString RtfFile = {read=FRtfFile, write=FRtfFile};
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property bool CloseDataSources = {read=FCloseDataSources, write=FCloseDataSources, default=1};
	__property bool NoDataQuit = {read=FNoDataQuit, write=FNoDataQuit, default=0};
	__property Classes::TNotifyEvent OnNoData = {read=FOnNoData, write=FOnNoData};
	__property bool NoRecordCount = {read=FNoRecordCount, write=FNoRecordCount, default=0};
	__property TSctOnNewPage OnNewPage = {read=FOnNewPage, write=FOnNewPage};
	__property TSctOnBeforeNewPage OnBeforeNewPage = {read=FOnBeforeNewPage, write=FOnBeforeNewPage};
	__property TSctPageAfterSkipEvent OnAfterDataSkip = {read=FOnAfterDataSkip, write=FOnAfterDataSkip}
		;
	__property bool GroupPageBreaks = {read=FGroupPageBreaks, write=FGroupPageBreaks, default=0};
public:
		
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctPage(HWND ParentWindow) : Forms::TScrollBox(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctGrouppage : public TSctPage 
{
	typedef TSctPage inherited;
	
public:
	#pragma option push -w-inl
	/* TSctPage.Create */ inline __fastcall virtual TSctGrouppage(Classes::TComponent* AOwner) : TSctPage(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSctPage.Destroy */ inline __fastcall virtual ~TSctGrouppage(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctGrouppage(HWND ParentWindow) : TSctPage(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

typedef void __fastcall (*TSctOverrideEvent)(TSctPage* Page);

typedef void __fastcall (*TSctOverridePromptEvent)(TSctPage* Page, bool &Result);

//-- var, const, procedure ---------------------------------------------------
static const Word GP_UpdateVarList = 0x400;
static const Word Sct_UpdateForm = 0x401;
static const Word Sct_SetDataLists = 0x402;
static const Word Sct_CreatePage = 0x403;
static const Word Sct_AddBands = 0x404;
static const Word Sct_SelectGroupPage = 0x405;
static const Word Sct_DataControl = 0x408;
static const Word Sct_DataUpdateVars = 0x409;
static const Word Sct_VarChanged = 0x40a;
static const Word Sct_OverviewReport = 0x40b;
static const Word Sct_DiagReport = 0x40c;
static const Word Sct_ModifyTextLabel = 0x40d;
static const Word Sct_CopyReport = 0x40e;
extern PACKAGE TSctOverrideEvent CustomPreview;
extern PACKAGE TSctOverridePromptEvent CustomPrompt;
extern PACKAGE TSctOverrideEvent CustomStatus;

}	/* namespace Sctrep */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctrep;
#endif
#pragma option pop	// -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// SctRep