sctrep.hpp

suite component ace report

	__property TSctBandPrintEvent OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property Aceutil::TAceShadePercent Shade = {read=FShade, write=SetShade, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctBand(HWND ParentWindow) : Extctrls::TCustomPanel(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctGroup;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctGroup : public Controls::TControl 
{
	typedef Controls::TControl inherited;
	
private:
	Sctvar::TSctVar* FVariable;
	TSctBand* FHeader;
	TSctBand* FFooter;
	bool FShowHead;
	bool FShowFoot;
	Classes::TNotifyEvent FOnCheckBroken;
	bool FBroken;
	int FLevel;
	AnsiString FGroupName;
	bool FAllowDelete;
	Controls::TWinControl* FPage;
	
protected:
	bool __fastcall CheckBroken(void);
	Controls::TWinControl* __fastcall getpage(void);
	void __fastcall SetVariable(Sctvar::TSctVar* MyVar);
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall SetName(const AnsiString NewName);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadLevel(Classes::TReader* Reader);
	void __fastcall WriteLevel(Classes::TWriter* Writer);
	
public:
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__property Controls::TWinControl* Page = {read=getpage, write=FPage};
	__fastcall virtual TSctGroup(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctGroup(void);
	__property bool IsBroken = {read=CheckBroken, nodefault};
	void __fastcall PrintHead(TSctPage* oPage);
	void __fastcall PrintFoot(TSctPage* oPage);
	__property bool Broken = {read=FBroken, write=FBroken, nodefault};
	void __fastcall AddBands(Controls::TWinControl* BandParent);
	void __fastcall DeleteBands(void);
	virtual void __fastcall SetGroupName(AnsiString Name);
	virtual void __fastcall SetLevel(int Pos);
	__property AnsiString GroupName = {read=FGroupName, write=SetGroupName};
	void __fastcall SafeDelete(void);
	bool __fastcall GetAllowDelete(void);
	__property bool AllowDelete = {read=FAllowDelete, write=FAllowDelete, nodefault};
	__property bool OkDelete = {read=GetAllowDelete, nodefault};
	__property int Level = {read=FLevel, write=SetLevel, nodefault};
	
__published:
	__property Classes::TNotifyEvent OnCheckBroken = {read=FOnCheckBroken, write=FOnCheckBroken};
	__property TSctBand* Header = {read=FHeader, write=FHeader};
	__property TSctBand* Footer = {read=FFooter, write=FFooter};
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
};

#pragma pack(pop)

class DELPHICLASS TSctBandHead;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctBandHead : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	Stdctrls::TLabel* Fnamelabel;
	Extctrls::TPaintBox* FArrow;
	Stdctrls::TCheckBox* Fvisiblecheck;
	Stdctrls::TCheckBox* FNewPageCheck;
	Stdctrls::TCheckBox* FNewPageRepeatCheck;
	Stdctrls::TCheckBox* FStretchCheck;
	
protected:
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	
public:
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__property Stdctrls::TLabel* NameLabel = {read=Fnamelabel, write=Fnamelabel};
	__property Extctrls::TPaintBox* Arrow = {read=FArrow, write=FArrow};
	__property Stdctrls::TCheckBox* VisibleCheck = {read=Fvisiblecheck, write=Fvisiblecheck};
	__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:
	#pragma option push -w-inl
	/* TCustomPanel.Create */ inline __fastcall virtual TSctBandHead(Classes::TComponent* AOwner) : Extctrls::TPanel(
		AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TSctBandHead(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctBandHead(HWND ParentWindow) : Extctrls::TPanel(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma option push -b-
enum TSctVersion { vACE1_0 };
#pragma option pop

class DELPHICLASS TSctNoScaleBtn;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctNoScaleBtn : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
protected:
	DYNAMIC void __fastcall ChangeScale(int M, int D);
public:
	#pragma option push -w-inl
	/* TSpeedButton.Create */ inline __fastcall virtual TSctNoScaleBtn(Classes::TComponent* AOwner) : Buttons::TSpeedButton(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TSctNoScaleBtn(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 4)
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;
	Controls::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:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctReport(HWND ParentWindow) : Forms::TScrollBox(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctSubBand;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctSubBand : public TSctBand 
{
	typedef TSctBand inherited;