sctrep.hpp

suite component ace report

private:
	bool FAbove;
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall SetAbove(bool ab);
	virtual TSctBand* __fastcall GetMainBand(void);
	
public:
	__fastcall virtual TSctSubBand(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctSubBand(void);
	
__published:
	__property Band ;
	__property Order ;
	__property bool Above = {read=FAbove, write=SetAbove, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctSubBand(HWND ParentWindow) : TSctBand(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctOverlayBand;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctOverlayBand : public TSctBand 
{
	typedef TSctBand inherited;
	
private:
	bool FFirst;
	int FTopOffset;
	int FLeftOffset;
	bool FUseMargins;
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall SetFirst(bool f);
	
public:
	__fastcall virtual TSctOverlayBand(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctOverlayBand(void);
	
__published:
	__property bool First = {read=FFirst, write=SetFirst, default=1};
	__property Order ;
	__property int TopOffset = {read=FTopOffset, write=FTopOffset, default=0};
	__property int LeftOffset = {read=FLeftOffset, write=FLeftOffset, default=0};
	__property bool UseMargins = {read=FUseMargins, write=FUseMargins, default=1};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctOverlayBand(HWND ParentWindow) : TSctBand(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctSubDataBand;
typedef void __fastcall (__closure *TSctBandAfterSkipEvent)(TSctSubDataBand* Band);

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctSubDataBand : public TSctBand 
{
	typedef TSctBand inherited;
	
private:
	Db::TDataSet* FDataSet;
	Db::TDataLink* FDataLink;
	bool FDataIsFinished;
	Classes::TNotifyEvent FOnDataStart;
	Classes::TNotifyEvent FOnDataSkip;
	Classes::TNotifyEvent FOnDataFinish;
	TSctDataRange FDataRange;
	bool FCloseDataSet;
	TSctBandAfterSkipEvent FOnAfterDataSkip;
	TSctDataFilterEvent FOnDataFilter;
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual TSctBand* __fastcall GetMainBand(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	Db::TDataSet* __fastcall GetDataSet(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadDS(Classes::TReader* Reader);
	bool __fastcall DoOnDataFilter(void);
	
public:
	__fastcall virtual TSctSubDataBand(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctSubDataBand(void);
	void __fastcall DataStart(void);
	void __fastcall DataSkip(void);
	void __fastcall DataFinish(void);
	void __fastcall AfterDataSkip(void);
	__property bool DataIsFinished = {read=FDataIsFinished, write=FDataIsFinished, nodefault};
	__property Db::TDataLink* DataLink = {read=FDataLink, write=FDataLink};
	__property Db::TDataSet* DataSet = {read=GetDataSet, write=FDataSet};
	
__published:
	__property Band ;
	__property Order ;
	__property bool CloseDataSet = {read=FCloseDataSet, write=FCloseDataSet, nodefault};
	__property TSctDataRange DataRange = {read=FDataRange, write=FDataRange, nodefault};
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__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 TSctBandAfterSkipEvent OnAfterDataSkip = {read=FOnAfterDataSkip, write=FOnAfterDataSkip}
		;
	__property TSctDataFilterEvent OnDataFilter = {read=FOnDataFilter, write=FOnDataFilter};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctSubDataBand(HWND ParentWindow) : TSctBand(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctDataHeadBand;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctDataHeadBand : public TSctBand 
{
	typedef TSctBand inherited;
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual TSctBand* __fastcall GetMainBand(void);
	
public:
	__fastcall virtual TSctDataHeadBand(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctDataHeadBand(void);
	
__published:
	__property Band ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctDataHeadBand(HWND ParentWindow) : TSctBand(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

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

#pragma pack(pop)

class DELPHICLASS TSctDataSourceGuide;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctDataSourceGuide : public Acepage::TSctDSGuide 
{
	typedef Acepage::TSctDSGuide inherited;
	
public:
	#pragma option push -w-inl
	/* TSctDSGuide.Create */ inline __fastcall virtual TSctDataSourceGuide(Classes::TComponent* AOwner)
		 : Acepage::TSctDSGuide(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSctDSGuide.Destroy */ inline __fastcall virtual ~TSctDataSourceGuide(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctPage : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
private:
	TSctReport* FReport;
	Classes::TList* FLabels;
	Classes::TList* FVars;
	Classes::TList* FTotalVars;
	Classes::TList* FBands;
	Classes::TList* FBandHeads;
	Classes::TList* FLevels;
	Aceout::TAceOutput* FPrintTo;
	int FxPos;
	int FyPos;
	bool FAllowDelete;
	bool FClipLabels;
	AnsiString FPageName;
	int FOrder;
	Forms::TForm* FPageManager;
	Psetup::TSctPageSetup* FPageSetup;
	System::TDateTime FStartDateTime;
	int FPixelsPerInch;
	bool FAbortPrinting;
	int FPageNumber;
	int FPagesPrinted;
	int FPgNum;
	TSctPageState FPageState;
	Sctutil::TSctUnits SaveUnits;
	Sctctrl::TSctBorderType FBorderType;
	TSctOutputType FOutputType;
	float FPercentDone;
	Aceview::TAceViewer* FAceViewer;
	bool FTwoPass;
	Classes::TNotifyEvent FOnPreview;
	TSctOnUpdateStatus FOnUpdateStatus;
	Classes::TNotifyEvent FOnUpdate;
	AnsiString FAceFileName;
	AnsiString FDescription;
	int FPageCount;
	Aceout::TAceCanvas* FCanvas;
	Acefile::TAcePrinter* FAcePrinter;
	TSctOnNewPage FOnNewPage;
	TSctOnBeforeNewPage FOnBeforeNewPage;
	TSctPageAfterSkipEvent FOnAfterDataSkip;
	Db::TDataSet* FDataSet;
	Db::TDataLink* FDataLink;
	TSctBand* FDetail;
	TSctBand* FHead;
	TSctBand* FFoot;
	TSctBand* FPageHead;
	TSctBand* FPageFoot;
	Classes::TList* FDataSourceList;
	Classes::TList* FGroups;
	bool FDataIsFinished;
	Classes::TNotifyEvent FOnDataStart;
	Classes::TNotifyEvent FOnDataSkip;
	Classes::TNotifyEvent FOnDataFinish;
	TSctDataFilterEvent FOnDataFilter;
	bool FOmitLastPgFt;
	TSctDataRange FDataRange;
	bool FCloseDataSet;
	Classes::TList* FGroupList;
	Classes::TList* FPageList;
	Classes::TList* FMainList;
	int FPFHeight;
	Classes::TList* FSubBands;
	Classes::TList* FSubDataBands;
	Classes::TList* FDataHFBands;
	Classes::TList* FOverLayBands;
	Classes::TList* FOverLayList;
	bool FirstNewPage;
	bool FirstBorder;
	bool PrintedHead;
	int FLastPagePos;
	TSctGroupPageState FGroupPageState;
	int FAtGroupLevel;
	Classes::TList* FPrintDataList;
	Classes::TList* FPrintList;
	Classes::TList* FUpdateBandLevelList;
	Graphics::TPen* FPen;
	bool FContinuous;
	Sctrtf::TSctRtfFile* FRtf;
	AnsiString FRtfFile;
	Classes::TList* FFullDSList;
	Classes::TStringList* FFullDSNames;
	Classes::TStringList* FNoDsgList;
	bool FInUpdateDataLists;
	int FSkipped;
	int FRecords;
	bool FLetUpdateDataList;
	bool FPrinting;
	bool FFirstTime;
	bool FInProcess;
	bool FNoDataQuit;
	Classes::TNotifyEvent FOnNoData;
	bool FNoRecordCount;
	Aceds::TAceDataSourceManager* FDataSourceManager;
	bool FCloseDataSources;