sctctrl.hpp

suite component ace report

	TSctCheckStyle FCheckStyle;
	
protected:
	void __fastcall SetCheckStyle(TSctCheckStyle style);
	virtual System::AnsiString __fastcall GetDisplayText();
	
public:
	__fastcall virtual TSctCheckLabel(Classes::TComponent* AOwner);
	void __fastcall SetVariable(Sctvar::TSctVar* Variable);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	
__published:
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
	__property Align ;
	__property Color ;
	__property ParentColor ;
	__property Transparent ;
	__property Pen ;
	__property TSctCheckStyle CheckStyle = {read=FCheckStyle, write=SetCheckStyle, default=0};
	__property BorderType ;
	__property Shade ;
public:
	/* TSctLabel.Destroy */ __fastcall virtual ~TSctCheckLabel(void) { }
	
};

enum TSctBarCodeType { bct3of9, bct2of5 };

class DELPHICLASS TSctBarCodeLabel;
class PASCALIMPLEMENTATION TSctBarCodeLabel : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	Sctvar::TSctVar* FVariable;
	TSctDirection FDirection;
	int FNarrowWidth;
	int FWideWidth;
	Graphics::TBrush* FBarCodeBrush;
	TSctBarCodeType FBarCodeType;
	bool FWidthInInches_1000;
	
protected:
	void __fastcall SetDirection(TSctDirection d);
	void __fastcall SetNarrowWidth(int nw);
	void __fastcall SetWideWidth(int ww);
	virtual System::AnsiString __fastcall GetDisplayText();
	void __fastcall SetBarCodeType(TSctBarCodeType bct);
	
public:
	__fastcall virtual TSctBarCodeLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctBarCodeLabel(void);
	void __fastcall SetVariable(Sctvar::TSctVar* variable);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	
__published:
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
	__property Align ;
	__property Color ;
	__property ParentColor ;
	__property Transparent ;
	__property BorderType ;
	__property TSctDirection Direction = {read=FDirection, write=SetDirection, default=1};
	__property int NarrowWidth = {read=FNarrowWidth, write=SetNarrowWidth, default=1};
	__property int WideWidth = {read=FWideWidth, write=SetWideWidth, default=3};
	__property Graphics::TBrush* BarCodeBrush = {read=FBarCodeBrush, write=FBarCodeBrush};
	__property AlignVertical ;
	__property AlignHorizontal ;
	__property BorderMargin ;
	__property TSctBarCodeType BarCodeType = {read=FBarCodeType, write=SetBarCodeType, default=0};
	__property bool WidthInInches_1000 = {read=FWidthInInches_1000, write=FWidthInInches_1000, default=0
		};
};

class DELPHICLASS TSctTotalvarLabel;
class PASCALIMPLEMENTATION TSctTotalvarLabel : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	Sctvar::TSctTotalvar* FTotalVariable;
	bool FAutoLevel;
	Sctvar::TSctLevel* FLevel;
	TSctTotalType FTotalType;
	Sctdata::TSctFloatFormat* FDataFormat;
	
protected:
	virtual System::AnsiString __fastcall GetDisplayText();
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall virtual TSctTotalvarLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctTotalvarLabel(void);
	void __fastcall SetVariable(Sctvar::TSctTotalvar* variable);
	virtual System::AnsiString __fastcall GetDataNow();
	
__published:
	__property Sctvar::TSctTotalvar* TotalVariable = {read=FTotalVariable, write=SetVariable};
	__property Sctvar::TSctLevel* Level = {read=FLevel, write=FLevel};
	__property bool AutoLevel = {read=FAutoLevel, write=FAutoLevel, default=1};
	__property Sctdata::TSctTotalType TotalType = {read=FTotalType, write=FTotalType, default=0};
	__property Sctdata::TSctFloatFormat* DataFormat = {read=FDataFormat, write=FDataFormat};
	__property Align ;
	__property Color ;
	__property Font ;
	__property ParentColor ;
	__property ParentFont ;
	__property Transparent ;
	__property ClipType ;
	__property AlignVertical ;
	__property AlignHorizontal ;
	__property BorderType ;
	__property RotateFont ;
	__property Shade ;
	__property BorderMargin ;
};

enum TSctLineType { ltHorizontal, ltVertical, ltDiagonalLeft, ltDiagonalRight };

class DELPHICLASS TSctLine;
class PASCALIMPLEMENTATION TSctLine : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	TSctLineType FLineType;
	
protected:
	void __fastcall SetLineType(TSctLineType lt);
	
public:
	__fastcall virtual TSctLine(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctLine(void);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	
__published:
	__property Pen ;
	__property AlignVertical ;
	__property AlignHorizontal ;
	__property TSctLineType LineType = {read=FLineType, write=SetLineType, default=0};
	__property Transparent ;
};

class DELPHICLASS TSctShape;
class PASCALIMPLEMENTATION TSctShape : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	TSctShapeType FShapeType;
	void __fastcall SetShapeType(TSctShapeType ST);
	
public:
	__fastcall virtual TSctShape(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctShape(void);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	
__published:
	__property Brush ;
	__property Pen ;
	__property TSctShapeType ShapeType = {read=FShapeType, write=SetShapeType, default=2};
};

class DELPHICLASS TSctImageLabel;
class PASCALIMPLEMENTATION TSctImageLabel : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	Sctvar::TSctVar* FVariable;
	Graphics::TPicture* FPicture;
	Graphics::TPicture* FData;
	bool FCenter;
	Classes::TMemoryStream* FImageStream;
	Aceimg::TAceBitmap* FAceBitmap;
	
protected:
	virtual System::AnsiString __fastcall GetDisplayText();
	void __fastcall SetCenter(bool C);
	void __fastcall SetPicture(Graphics::TPicture* Value);
	
public:
	__fastcall virtual TSctImageLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctImageLabel(void);
	void __fastcall SetVariable(Sctvar::TSctVar* Variable);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	void __fastcall UpdateImage(void);
	virtual void __fastcall StartPrint(void);
	virtual int __fastcall PrintHeight(Classes::TComponent* oPage, int Space, int Taking);
	virtual int __fastcall SpendHeight(Classes::TComponent* oPage, int Space);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	__property AlignVertical ;
	__property AlignHorizontal ;
	
__published:
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
	__property bool Center = {read=FCenter, write=SetCenter, default=0};
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
	__property Stretch ;
	__property BorderType ;
};

class DELPHICLASS TSctVerticalDivider;
class PASCALIMPLEMENTATION TSctVerticalDivider : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	int FDividerWidth;
	Graphics::TColor FDividerColor;
	
protected:
	void __fastcall SetDividerColor(Graphics::TColor c);
	void __fastcall SetDividerWidth(int w);
	
public:
	__fastcall virtual TSctVerticalDivider(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctVerticalDivider(void);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	virtual int __fastcall PrintHeight(Classes::TComponent* oPage, int Space, int Taking);
	virtual int __fastcall SpendHeight(Classes::TComponent* oPage, int Space);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	
__published:
	__property Color ;
	__property ParentColor ;
	__property int DividerWidth = {read=FDividerWidth, write=SetDividerWidth, default=1};
	__property Graphics::TColor DividerColor = {read=FDividerColor, write=SetDividerColor, default=0};
};

class DELPHICLASS TSctCustomLabel;
class PASCALIMPLEMENTATION TSctCustomLabel : public Sctctrl::TSctLabel 
{
	typedef Sctctrl::TSctLabel inherited;
	
private:
	TSctOnDrawEvent FOnDraw;
	
public:
	__fastcall virtual TSctCustomLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctCustomLabel(void);
	virtual void __fastcall PrintRtf(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintTab(Controls::TWinControl* oPage, Sctrtf::TSctRtfFile* rtf, int PrintRow
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	virtual void __fastcall DrawLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	
__published:
	__property TSctOnDrawEvent OnDraw = {read=FOnDraw, write=FOnDraw};
	__property Transparent ;
	__property BorderType ;
	__property Shade ;
};

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall SctDrawBorder(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect
	, TSctBorderType BorderType, bool Painting);

}	/* namespace Sctctrl */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctctrl;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// SctCtrl