sctrep.hpp

suite component ace report

	__property Stdctrls::TCheckBox* NewPagecheck = {read=FNewPageCheck, write=FNewPageCheck};
	__property Stdctrls::TCheckBox* NewPageRepeatcheck = {read=FNewPageRepeatCheck, write=FNewPageRepeatCheck
		};
	__property Stdctrls::TCheckBox* StretchCheck = {read=FStretchCheck, write=FStretchCheck};
public:
	/* TCustomPanel.Create */ __fastcall virtual TSctBandHead(Classes::TComponent* AOwner) : Extctrls::
		TPanel(AOwner) { }
	
public:
	/* TCustomControl.Destroy */ __fastcall virtual ~TSctBandHead(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TSctBandHead(HWND ParentWindow) : Extctrls::TPanel(ParentWindow
		) { }
	
};

enum TSctVersion { vACE1_0 };

class DELPHICLASS TSctNoScaleBtn;
class PASCALIMPLEMENTATION TSctNoScaleBtn : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
protected:
	DYNAMIC void __fastcall ChangeScale(int M, int D);
public:
	/* TSpeedButton.Create */ __fastcall virtual TSctNoScaleBtn(Classes::TComponent* AOwner) : Buttons::
		TSpeedButton(AOwner) { }
	/* TSpeedButton.Destroy */ __fastcall virtual ~TSctNoScaleBtn(void) { }
	
};

class PASCALIMPLEMENTATION TSctReport : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
private:
	Classes::TList* FPages;
	TSctPage* FPage;
	bool FPrompt;
	int FPixelsPerInch;
	bool FAutoRun;
	int FSTop;
	int FSLeft;
	int FSWidth;
	int FSHeight;
	int FMTop;
	int FMLeft;
	TAlign FSAlign;
	bool FMinimized;
	TSctNoScaleBtn* FMinMaxButton;
	TSctNoScaleBtn* FPageManButton;
	TSctNoScaleBtn* FAutoLabelButton;
	TSctNoScaleBtn* FRunButton;
	TSctNoScaleBtn* FSelectButton;
	TSctNoScaleBtn* FDataButton;
	TSctNoScaleBtn* FLeftAlignButton;
	TSctNoScaleBtn* FCenterAlignButton;
	TSctNoScaleBtn* FRightAlignButton;
	TSctNoScaleBtn* FPageCenterButton;
	Forms::TForm* FDropForm;
	Stdctrls::TLabel* FVersionLabel;
	TSctNoScaleBtn* FRep1Button;
	TSctNoScaleBtn* FRep2Button;
	TSctVersion FVersion;
	TSctPromptPrintEvent FOnPromptPrint;
	bool FCancelPrintJob;
	bool FDesignPreview;
	TSctReportPrintEvent FOnBeforePrint;
	TSctReportPrintEvent FOnAfterPrint;
	bool FSuppressStatus;
	bool FPrinting;
	TSctGrouppage* FGroupPage;
	bool FSavePrompt;
	Psetup::TSctPageSetup* FSaveSetup;
	Aceout::TAceOutput* FPrintTo;
	Forms::TForm* FStatusWin;
	int FPassCount;
	int FPass;
	Sctutil::TSctRuler* FTopRuler;
	Sctutil::TSctRulerContainer* FLeftRuler;
	bool FAceDestroying;
	MESSAGE void __fastcall NoVisibleChange(Messages::TMessage &Message);
	MESSAGE void __fastcall SctCreatePage(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall NoCopyReport(Messages::TWMNoParams &Message);
	void __fastcall CreatePageManager(void);
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	virtual void __fastcall Loaded(void);
	void __fastcall SetMinimized(bool min);
	virtual bool __fastcall PromptPrint(TSctPage* pg);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadIntValue(Classes::TReader* Reader);
	void __fastcall WriteIntValue(Classes::TWriter* Writer);
	void __fastcall ReadSAlign(Classes::TReader* Reader);
	void __fastcall WriteSAlign(Classes::TWriter* Writer);
	void __fastcall ReadVersion(Classes::TReader* Reader);
	void __fastcall WriteVersion(Classes::TWriter* Writer);
	void __fastcall SetPixelsPerInch(int ppi);
	virtual void __fastcall BeforePrint(void);
	virtual void __fastcall AfterPrint(void);
	bool __fastcall DoOnPromptPrint(TSctPage* pg);
	virtual void __fastcall WriteState(Classes::TWriter* Writer);
	
public:
	__fastcall virtual TSctReport(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctReport(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	bool __fastcall GetAllowDelete(void);
	__property bool OkDelete = {read=GetAllowDelete, nodefault};
	void __fastcall Run(void);
	void __fastcall RemovePage(TSctPage* pg);
	void __fastcall InsertPage(TSctPage* pg);
	void __fastcall ToolAddPage(System::TObject* Sender);
	__property Classes::TList* Pages = {read=FPages, write=FPages};
	__property TSctPage* Page = {read=FPage, write=FPage};
	void __fastcall UpdateStatus(int pg);
	__property TSctNoScaleBtn* MinMaxButton = {read=FMinMaxButton, write=FMinMaxButton};
	__property TSctNoScaleBtn* PageManButton = {read=FPageManButton, write=FPageManButton};
	__property TSctNoScaleBtn* AutoLabelButton = {read=FAutoLabelButton, write=FAutoLabelButton};
	__property TSctNoScaleBtn* RunButton = {read=FRunButton, write=FRunButton};
	__property TSctNoScaleBtn* SelectButton = {read=FSelectButton, write=FSelectButton};
	__property TSctNoScaleBtn* DataButton = {read=FDataButton, write=FDataButton};
	void __fastcall MinMaxClick(System::TObject* Sender);
	void __fastcall PageManClick(System::TObject* Sender);
	void __fastcall AutoLabelClick(System::TObject* Sender);
	void __fastcall RunClick(System::TObject* Sender);
	void __fastcall AlignClick(System::TObject* Sender);
	void __fastcall RunButtonMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState 
		Shift, int X, int Y);
	void __fastcall SelectButtonMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState 
		Shift, int X, int Y);
	void __fastcall SelectClick(System::TObject* Sender);
	void __fastcall DataClick(System::TObject* Sender);
	void __fastcall ReportClick(System::TObject* Sender);
	void __fastcall PositionButtons(void);
	__property bool CancelPrintJob = {read=FCancelPrintJob, write=FCancelPrintJob, nodefault};
	__property int PixelsPerInch = {read=FPixelsPerInch, write=SetPixelsPerInch, nodefault};
	__property int STop = {read=FSTop, write=FSTop, nodefault};
	__property int SLeft = {read=FSLeft, write=FSLeft, nodefault};
	__property int SWidth = {read=FSWidth, write=FSWidth, nodefault};
	__property int SHeight = {read=FSHeight, write=FSHeight, nodefault};
	__property int MTop = {read=FMTop, write=FMTop, nodefault};
	__property int MLeft = {read=FMLeft, write=FMLeft, nodefault};
	__property Controls::TAlign SAlign = {read=FSAlign, write=FSAlign, nodefault};
	__property TSctVersion Version = {read=FVersion, write=FVersion, nodefault};
	void __fastcall AbortReport(void);
	__property bool Printing = {read=FPrinting, write=FPrinting, nodefault};
	bool __fastcall InitReport(void);
	void __fastcall EndReport(void);
	void __fastcall Process(void);
	void __fastcall ProcessReport(void);
	__property Sctutil::TSctRuler* TopRuler = {read=FTopRuler, write=FTopRuler};
	__property Sctutil::TSctRulerContainer* LeftRuler = {read=FLeftRuler, write=FLeftRuler};
	void __fastcall Redraw(void);
	
__published:
	__property bool Minimized = {read=FMinimized, write=SetMinimized, nodefault};
	__property bool Prompt = {read=FPrompt, write=FPrompt, nodefault};
	__property bool AutoRun = {read=FAutoRun, write=FAutoRun, nodefault};
	__property TSctPromptPrintEvent OnPromptPrint = {read=FOnPromptPrint, write=FOnPromptPrint};
	__property TSctReportPrintEvent OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
	__property TSctReportPrintEvent OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property bool SuppressStatus = {read=FSuppressStatus, write=FSuppressStatus, nodefault};
public:
	/* TWinControl.CreateParented */ __fastcall TSctReport(HWND ParentWindow) : Forms::TScrollBox(ParentWindow
		) { }
	
};

class DELPHICLASS TSctSubBand;
class PASCALIMPLEMENTATION TSctSubBand : public Sctrep::TSctBand 
{
	typedef Sctrep::TSctBand inherited;
	
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:
	/* TWinControl.CreateParented */ __fastcall TSctSubBand(HWND ParentWindow) : Sctrep::TSctBand(ParentWindow
		) { }
	
};

class DELPHICLASS TSctOverlayBand;
class PASCALIMPLEMENTATION TSctOverlayBand : public Sctrep::TSctBand 
{
	typedef Sctrep::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:
	/* TWinControl.CreateParented */ __fastcall TSctOverlayBand(HWND ParentWindow) : Sctrep::TSctBand(ParentWindow
		) { }
	
};

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

class PASCALIMPLEMENTATION TSctSubDataBand : public Sctrep::TSctBand 
{
	typedef Sctrep::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:
	/* TWinControl.CreateParented */ __fastcall TSctSubDataBand(HWND ParentWindow) : Sctrep::TSctBand(ParentWindow
		) { }
	
};

class DELPHICLASS TSctDataHeadBand;
class PASCALIMPLEMENTATION TSctDataHeadBand : public Sctrep::TSctBand 
{
	typedef Sctrep::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:
	/* TWinControl.CreateParented */ __fastcall TSctDataHeadBand(HWND ParentWindow) : Sctrep::TSctBand(
		ParentWindow) { }
	
};

class DELPHICLASS TSctDataFootBand;
class PASCALIMPLEMENTATION TSctDataFootBand : public Sctrep::TSctDataHeadBand 
{
	typedef Sctrep::TSctDataHeadBand inherited;
	
public:
	/* TSctDataHeadBand.Create */ __fastcall virtual TSctDataFootBand(Classes::TComponent* AOwner) : Sctrep::
		TSctDataHeadBand(AOwner) { }
	/* TSctDataHeadBand.Destroy */ __fastcall virtual ~TSctDataFootBand(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TSctDataFootBand(HWND ParentWindow) : Sctrep::TSctDataHeadBand(
		ParentWindow) { }
	
};

class DELPHICLASS TSctDataSourceGuide;
class PASCALIMPLEMENTATION TSctDataSourceGuide : public Acepage::TSctDSGuide 
{
	typedef Acepage::TSctDSGuide inherited;
	
public:
	/* TSctDSGuide.Create */ __fastcall virtual TSctDataSourceGuide(Classes::TComponent* AOwner) : Acepage::
		TSctDSGuide(AOwner) { }
	/* TSctDSGuide.Destroy */ __fastcall virtual ~TSctDataSourceGuide(void) { }
	
};

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;
	System::AnsiString FPageName;
	int FOrder;
	Forms::TForm* FPageManager;