sctctrl.hpp

suite component ace report

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SctCtrl.pas' rev: 4.00

#ifndef SctCtrlHPP
#define SctCtrlHPP

#pragma delphiheader begin
#pragma option push -w-
#include <AceImg.hpp>	// Pascal unit
#include <AceMemoU.hpp>	// Pascal unit
#include <AceUtil.hpp>	// Pascal unit
#include <AceOut.hpp>	// Pascal unit
#include <SctUtil.hpp>	// Pascal unit
#include <SctRtf.hpp>	// Pascal unit
#include <SctData.hpp>	// Pascal unit
#include <SctVar.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sctctrl
{
//-- type declarations -------------------------------------------------------
typedef Word TSctRotateFont;

#pragma option push -b-
enum TSctDirection { bdVertical, bdHorizontal };
#pragma option pop

#pragma option push -b-
enum TSctCheckStyle { csCross, csCheck };
#pragma option pop

#pragma option push -b-
enum TSctClipTypes { ctDefault, ctClip, ctNoClip };
#pragma option pop

#pragma option push -b-
enum TSctVerticalAlign { laTop, laMiddle, laBottom, laCenterVert };
#pragma option pop

#pragma option push -b-
enum TSctHorizontalAlign { laLeft, laCenter, laRight };
#pragma option pop

#pragma option push -b-
enum TSctBorderType { btNone, btSingle, btUnderLine };
#pragma option pop

#pragma option push -b-
enum TSctShapeType { sstCircle, sstEllipse, sstRectangle, sstRoundRect, sstRoundSquare, sstSquare };
	
#pragma option pop

class DELPHICLASS TSctLabel;
typedef void __fastcall (__closure *TSctLabelPrintWhenEvent)(TSctLabel* lb, bool &Result);

typedef void __fastcall (__closure *TSctLabelPrintEvent)(TSctLabel* lb);

typedef void __fastcall (__closure *TSctOnDrawEvent)(TSctLabel* lb, System::TObject* AceCanvas, const 
	Windows::TRect &Rect);

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctLabel : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	Controls::TWinControl* FPage;
	TSctClipTypes FClipType;
	TSctVerticalAlign FVerticalAlign;
	TSctHorizontalAlign FHorizontalAlign;
	bool FEndPrint;
	bool FFirstTime;
	bool FWrapText;
	bool FStretch;
	TSctBorderType FBorderType;
	Graphics::TBrush* FBrush;
	Graphics::TBrush* FBrushSet;
	Graphics::TPen* FPen;
	Graphics::TPen* FPenSet;
	Graphics::TPen* FBorderPen;
	int FPixelsPerInch;
	TSctLabelPrintWhenEvent FLabelPrintWhen;
	TSctLabelPrintEvent FOnBeforePrint;
	TSctLabelPrintEvent FOnAfterPrint;
	int FRow;
	bool FRtfPrint;
	TSctRotateFont FRotateFont;
	Aceutil::TAceShadePercent FShade;
	bool FPainting;
	int FBorderMargin;
	bool FAutoSize;
	void __fastcall AdjustBounds(void);
	bool __fastcall GetTransparent(void);
	HIDESBASE void __fastcall SetAutoSize(bool Value);
	void __fastcall SetTransparent(bool Value);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	void __fastcall SetBrush(Graphics::TBrush* Value);
	void __fastcall SetPen(Graphics::TPen* Value);
	MESSAGE void __fastcall MouseMovement(Messages::TWMMouse &Message);
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	Controls::TWinControl* __fastcall getpage(void);
	bool __fastcall GetClipRect(void);
	Word __fastcall GetAlignFlags(void);
	int __fastcall GetXPos(void);
	int __fastcall GetYPos(void);
	virtual AnsiString __fastcall GetDataNow();
	virtual void __fastcall Paint(void);
	void __fastcall SetVerticalAlign(TSctVerticalAlign va);
	void __fastcall SetHorizontalAlign(TSctHorizontalAlign ha);
	virtual AnsiString __fastcall GetDisplayText();
	virtual void __fastcall SetBorderType(TSctBorderType BType);
	virtual void __fastcall SetWrapText(bool W);
	virtual void __fastcall SetStretch(bool S);
	int __fastcall GetPPI(void);
	bool __fastcall GetPrintOk(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall SetRotateFont(TSctRotateFont Rotate);
	virtual void __fastcall SetShade(Aceutil::TAceShadePercent ShadePercent);
	void __fastcall SetBorderMargin(int bm);
	__property Graphics::TBrush* BrushSet = {read=FBrushSet, write=FBrushSet};
	__property Graphics::TPen* PenSet = {read=FPenSet, write=FPenSet};
	__property bool Painting = {read=FPainting, write=FPainting, nodefault};
	void __fastcall ReadAutoSize(Classes::TReader* Reader);
	void __fastcall WriteAutoSize(Classes::TWriter* Writer);
	
public:
	__property bool Transparent = {read=GetTransparent, write=SetTransparent, default=1};
	__property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
	__property Canvas ;
	__fastcall virtual TSctLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctLabel(void);
	virtual void __fastcall LabelChanged(System::TObject* Sender);
	virtual void __fastcall print(Classes::TComponent* oPage, int space);
	__property Controls::TWinControl* Page = {read=getpage, write=FPage};
	__property bool ClipRect = {read=GetClipRect, nodefault};
	__property Word AlignFlags = {read=GetAlignFlags, nodefault};
	__property int XPos = {read=GetXPos, nodefault};
	__property int YPos = {read=GetYPos, nodefault};
	__property AnsiString DataNow = {read=GetDataNow};
	__property TSctClipTypes ClipType = {read=FClipType, write=FClipType, default=0};
	__property TSctVerticalAlign AlignVertical = {read=FVerticalAlign, write=SetVerticalAlign, default=2
		};
	__property TSctHorizontalAlign AlignHorizontal = {read=FHorizontalAlign, write=SetHorizontalAlign, 
		default=0};
	__property AnsiString DisplayText = {read=GetDisplayText};
	__property bool EndPrint = {read=FEndPrint, write=FEndPrint, nodefault};
	__property bool FirstTime = {read=FFirstTime, write=FFirstTime, nodefault};
	virtual void __fastcall StartPrint(void);
	virtual int __fastcall PrintHeight(Classes::TComponent* oPage, int Space, int Taking);
	__property TSctBorderType BorderType = {read=FBorderType, write=SetBorderType, default=0};
	__property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
	__property Graphics::TPen* Pen = {read=FPen, write=SetPen};
	__property Graphics::TPen* BorderPen = {read=FBorderPen, write=FBorderPen};
	__property bool WrapText = {read=FWrapText, write=SetWrapText, default=0};
	__property bool Stretch = {read=FStretch, write=SetStretch, default=0};
	__property int PixelsPerInch = {read=GetPPI, write=FPixelsPerInch, nodefault};
	virtual int __fastcall SpendHeight(Classes::TComponent* oPage, int Space);
	__property bool PrintOk = {read=GetPrintOk, nodefault};
	void __fastcall BeforePrint(void);
	void __fastcall AfterPrint(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
		);
	int __fastcall GetXSpot(int x);
	int __fastcall GetYSpot(int y);
	void __fastcall InitPrint(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect);
	void __fastcall PrintBorder(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	__property TSctRotateFont RotateFont = {read=FRotateFont, write=SetRotateFont, default=0};
	__property Aceutil::TAceShadePercent Shade = {read=FShade, write=SetShade, default=0};
	__property int BorderMargin = {read=FBorderMargin, write=SetBorderMargin, default=2};
	__property Caption ;
	__property Color ;
	
__published:
	__property TSctLabelPrintWhenEvent LabelPrintWhen = {read=FLabelPrintWhen, write=FLabelPrintWhen};
	__property TSctLabelPrintEvent OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
	__property TSctLabelPrintEvent OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property int Row = {read=FRow, write=FRow, default=0};
	__property bool RtfPrint = {read=FRtfPrint, write=FRtfPrint, default=1};
};

#pragma pack(pop)

typedef Word TSctWrapHeightPercent;

class DELPHICLASS TSctTVLabel;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctTVLabel : public TSctLabel 
{
	typedef TSctLabel inherited;
	
private:
	Sctvar::TSctVar* FVariable;
	int FDataRow;
	TSctWrapHeightPercent FWrapHeightPercent;
	Acememou::TAceMemo* FAceMemo;
	bool FJustifyMemo;
	Sctdata::TSctFormat* FDataFormat;
	bool FSuppressRepeats;
	Classes::TStrings* FLines;
	bool FSuppressBlankLines;
	bool FSuppressWhiteSpace;
	void __fastcall SetLines(Classes::TStrings* Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayText();
	virtual void __fastcall Paint(void);
	void __fastcall SetWrapHeightPercent(TSctWrapHeightPercent whp);
	void __fastcall SetJustifyMemo(bool Value);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall virtual TSctTVLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctTVLabel(void);
	void __fastcall SetVariable(Sctvar::TSctVar* variable);
	virtual AnsiString __fastcall GetDataNow();
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall Print(Classes::TComponent* oPage, int Space);
	virtual void __fastcall StartPrint(void);
	virtual int __fastcall PrintHeight(Classes::TComponent* oPage, int Space, int Taking);
	__property int DataRow = {read=FDataRow, write=FDataRow, nodefault};
	int __fastcall PrintMemo(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space);
	virtual int __fastcall SpendHeight(Classes::TComponent* oPage, int Space);
	int __fastcall SpendMemo(Classes::TComponent* oPage, 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
		);
	virtual void __fastcall PrintLabel(Aceout::TAceCanvas* AceCanvas, const Windows::TRect &Rect, int Space
		);
	virtual void __fastcall UpdateMemo(void);
	__property Acememou::TAceMemo* AceMemo = {read=FAceMemo, write=FAceMemo};
	bool __fastcall IsMemo(void);
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
	__property Sctdata::TSctFormat* DataFormat = {read=FDataFormat, write=FDataFormat};
	__property bool SuppressRepeats = {read=FSuppressRepeats, write=FSuppressRepeats, default=0};
	
__published:
	__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 ;
	__property WrapText ;
	__property Stretch ;
	__property TSctWrapHeightPercent WrapHeightPercent = {read=FWrapHeightPercent, write=SetWrapHeightPercent
		, default=100};
	__property bool JustifyMemo = {read=FJustifyMemo, write=SetJustifyMemo, default=0};
	__property Classes::TStrings* Lines = {read=FLines, write=SetLines};
	__property bool SuppressBlankLines = {read=FSuppressBlankLines, write=FSuppressBlankLines, default=0
		};
	__property bool SuppressWhiteSpace = {read=FSuppressWhiteSpace, write=FSuppressWhiteSpace, default=0
		};
};

#pragma pack(pop)

class DELPHICLASS TSctvarlabel;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctvarlabel : public TSctTVLabel 
{
	typedef TSctTVLabel inherited;
	
__published:
	__property Variable ;
	__property DataFormat ;
	__property SuppressRepeats ;
	__property Caption ;
public:
	#pragma option push -w-inl
	/* TSctTVLabel.Create */ inline __fastcall virtual TSctvarlabel(Classes::TComponent* AOwner) : TSctTVLabel(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSctTVLabel.Destroy */ inline __fastcall virtual ~TSctvarlabel(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctTextLabel;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctTextLabel : public TSctTVLabel 
{
	typedef TSctTVLabel inherited;
	
protected:
	virtual void __fastcall WriteState(Classes::TWriter* Writer);
	
__published:
	__property AutoSize ;
	__property Caption ;
public:
	#pragma option push -w-inl
	/* TSctTVLabel.Create */ inline __fastcall virtual TSctTextLabel(Classes::TComponent* AOwner) : TSctTVLabel(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSctTVLabel.Destroy */ inline __fastcall virtual ~TSctTextLabel(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

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