📄 qm_dctrl.hpp

📁 商品销售管理系统-毕业设计有代码和论文,可以做毕业设计
💻 HPP
字号:
// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'QM_DCtrl.pas' rev: 6.00

#ifndef QM_DCtrlHPP
#define QM_DCtrlHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Printers.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.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 Qm_dctrl
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TQMOption { rcFirstPageHeader, rcLastPageFooter, rcFitToPageWidth, rcScaleWhole, rcAllowExtend, rcBodyFont, rcCenter, rcRepWidth };
#pragma option pop

typedef Set<TQMOption, rcFirstPageHeader, rcRepWidth>  TQMOptions;

#pragma option push -b-
enum TQMColorMode { pmColor, pmBlack, pmGray };
#pragma option pop

#pragma option push -b-
enum TQMLineType { rltNone, rltSingle, rltDouble };
#pragma option pop

#pragma option push -b-
enum TQMLinkBand { rtPageHeader, rtTitle, rtPageFooter, rtSummary };
#pragma option pop

#pragma option push -b-
enum TQMTitlePos { psAuto, psTop, psBottom };
#pragma option pop

#pragma option push -b-
enum TQMParaCutType { ctNone, ctLeft, ctRight };
#pragma option pop

#pragma option push -b-
enum TQMPaperSize { Default, Letter, LetterSmall, Tabloid, Ledger, Legal, Statement, Executive, A3, A4, A4Small, A5, B4, B5, Folio, Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12, Env14, CSheet, DSheet, ESheet, Custom };
#pragma option pop

class DELPHICLASS TQMPage;
class PASCALIMPLEMENTATION TQMPage : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Extended FBottomMargin;
	Extended FRightMargin;
	Extended FLeftMargin;
	Extended FTopMargin;
	Extended FLength;
	Extended FWidth;
	Printers::TPrinterOrientation FOrientation;
	TQMPaperSize FPaperSize;
	Extended FColumnSpace;
	int FColumns;
	void __fastcall SetOrientation(const Printers::TPrinterOrientation Value);
	void __fastcall SetPaperSize(const TQMPaperSize Value);
	Extended __fastcall GetValue(const int Index);
	void __fastcall SetValue(const int Index, const Extended Value);
	int __fastcall GetColumns(void);
	void __fastcall SetColumns(const int Value);
	
public:
	__fastcall TQMPage(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadValues(Classes::TReader* Reader);
	void __fastcall WriteValues(Classes::TWriter* Writer);
	
__published:
	__property Extended BottomMargin = {read=GetValue, write=SetValue, stored=false, index=3};
	__property Extended LeftMargin = {read=GetValue, write=SetValue, stored=false, index=4};
	__property Extended RightMargin = {read=GetValue, write=SetValue, stored=false, index=5};
	__property Extended TopMargin = {read=GetValue, write=SetValue, stored=false, index=2};
	__property Extended Length = {read=GetValue, write=SetValue, stored=false, index=0};
	__property Extended Width = {read=GetValue, write=SetValue, stored=false, index=1};
	__property TQMPaperSize PaperSize = {read=FPaperSize, write=SetPaperSize, default=9};
	__property Printers::TPrinterOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0};
	__property int Columns = {read=GetColumns, write=SetColumns, default=1};
	__property Extended ColumnSpace = {read=GetValue, write=SetValue, stored=false, index=6};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TQMPage(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMFrame;
class PASCALIMPLEMENTATION TQMFrame : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FColor;
	bool FBottom;
	bool FLeft;
	Graphics::TPenStyle FPenStyle;
	bool FRight;
	bool FTop;
	int FWidth;
	
public:
	__fastcall TQMFrame(void);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=FColor, default=0};
	__property bool DrawTop = {read=FTop, write=FTop, default=0};
	__property bool DrawBottom = {read=FBottom, write=FBottom, default=0};
	__property bool DrawLeft = {read=FLeft, write=FLeft, default=0};
	__property bool DrawRight = {read=FRight, write=FRight, default=0};
	__property Graphics::TPenStyle Style = {read=FPenStyle, write=FPenStyle, default=0};
	__property int Width = {read=FWidth, write=FWidth, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TQMFrame(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMBand;
class PASCALIMPLEMENTATION TQMBand : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* FCenterText;
	Graphics::TFont* FFont;
	Classes::TStrings* FLeftText;
	Classes::TStrings* FRightText;
	TQMLineType FLineType;
	bool FIsFontStored;
	Graphics::TFont* FDefaultFont;
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetCenterText(const Classes::TStrings* Value);
	void __fastcall SetLeftText(const Classes::TStrings* Value);
	void __fastcall SetRightText(const Classes::TStrings* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	Graphics::TFont* __fastcall GetFont(void);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TQMBand(Graphics::TFont* AFont);
	__fastcall virtual ~TQMBand(void);
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	
__published:
	__property Classes::TStrings* CenterText = {read=FCenterText, write=SetCenterText};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
	__property Classes::TStrings* LeftText = {read=FLeftText, write=SetLeftText};
	__property Classes::TStrings* RightText = {read=FRightText, write=SetRightText};
	__property TQMLineType LineType = {read=FLineType, write=FLineType, default=0};
};


class DELPHICLASS TQMSubTitle;
class PASCALIMPLEMENTATION TQMSubTitle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* FText;
	Graphics::TFont* FFont;
	Classes::TAlignment FAlignment;
	int FVertAdjust;
	Graphics::TFont* FDefaultFont;
	bool FIsFontStored;
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetText(const Classes::TStrings* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetAlignment(Classes::TAlignment Value);
	void __fastcall SetVertAdjust(const int Value);
	Graphics::TFont* __fastcall GetFont(void);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TQMSubTitle(Graphics::TFont* AFont);
	__fastcall virtual ~TQMSubTitle(void);
	
__published:
	__property Classes::TStrings* Text = {read=FText, write=SetText};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=2};
	__property int VertAdjust = {read=FVertAdjust, write=SetVertAdjust, default=5};
};


class DELPHICLASS TQMTitle;
class PASCALIMPLEMENTATION TQMTitle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* FText;
	Graphics::TFont* FFont;
	TQMSubTitle* FSubTitle;
	Classes::TAlignment FAlignment;
	TQMLinkBand FLinkBand;
	TQMTitlePos FTitlePos;
	int FVertAdjust;
	bool FIsFontStored;
	Graphics::TFont* FDefaultFont;
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetText(const Classes::TStrings* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetAlignment(Classes::TAlignment Value);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetSubTitle(const TQMSubTitle* Value);
	void __fastcall SetVertAdjust(const int Value);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TQMTitle(Graphics::TFont* AFont);
	__fastcall virtual ~TQMTitle(void);
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	
__published:
	__property Classes::TStrings* Text = {read=FText, write=SetText};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=2};
	__property int VertAdjust = {read=FVertAdjust, write=SetVertAdjust, default=20};
	__property TQMTitlePos TitlePos = {read=FTitlePos, write=FTitlePos, default=0};
	__property TQMLinkBand LinkBand = {read=FLinkBand, write=FLinkBand, default=0};
	__property TQMSubTitle* SubTitle = {read=FSubTitle, write=SetSubTitle};
};


class DELPHICLASS TQMParameter;
class PASCALIMPLEMENTATION TQMParameter : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FLeftStr;
	AnsiString FRightStr;
	AnsiString FValue;
	AnsiString FName;
	Classes::TAlignment FAlignment;
	int FBytes;
	TQMParaCutType FCut;
	void __fastcall SetBytes(const int Value);
	int __fastcall GetBytes(void);
	AnsiString __fastcall GetName();
	void __fastcall SetName(const AnsiString Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Name = {read=GetName, write=SetName};
	__property AnsiString LeftStr = {read=FLeftStr, write=FLeftStr};
	__property AnsiString RightStr = {read=FRightStr, write=FRightStr};
	__property AnsiString Value = {read=FValue, write=FValue};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=0};
	__property int Bytes = {read=GetBytes, write=SetBytes, default=0};
	__property TQMParaCutType Cut = {read=FCut, write=FCut, default=0};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TQMParameter(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TQMParameter(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMParameters;
class PASCALIMPLEMENTATION TQMParameters : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
public:
	TQMParameter* operator[](int Index) { return Items[Index]; }
	
private:
	AnsiString __fastcall GetParamValue(const AnsiString ParamName);
	void __fastcall SetParamValue(const AnsiString ParamName, const AnsiString Value);
	
protected:
	HIDESBASE TQMParameter* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TQMParameter* Value);
	
public:
	HIDESBASE TQMParameter* __fastcall Add(void);
	TQMParameter* __fastcall FindParam(const AnsiString Value);
	TQMParameter* __fastcall ParamByName(const AnsiString Value);
	void __fastcall DeleteParam(const AnsiString ParamName);
	__property AnsiString ParamValues[AnsiString ParamName] = {read=GetParamValue, write=SetParamValue};
	__property TQMParameter* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TOwnedCollection.Create */ inline __fastcall TQMParameters(Classes::TPersistent* AOwner, TMetaClass* ItemClass) : Classes::TOwnedCollection(AOwner, ItemClass) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TQMParameters(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMLogo;
class PASCALIMPLEMENTATION TQMLogo : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TAlignment FAlignment;
	TQMLinkBand FLinkBand;
	Graphics::TPicture* FPicture;
	int FTop;
	int FHoriAdjust;
	void __fastcall SetAlignment(Classes::TAlignment Value);
	void __fastcall SetPicture(const Graphics::TPicture* Value);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TQMLogo(void);
	__fastcall virtual ~TQMLogo(void);
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
	__property int HoriAdjust = {read=FHoriAdjust, write=FHoriAdjust, default=0};
	__property int Top = {read=FTop, write=FTop, default=0};
	__property TQMLinkBand LinkBand = {read=FLinkBand, write=FLinkBand, default=0};
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Extended cQMPaperSizeMetrics[26][2];

}	/* namespace Qm_dctrl */
using namespace Qm_dctrl;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// QM_DCtrl
💿 文件大小 6891 K
👤 上传用户 SAMDUK
📂 所属分类系统设计方案
🏷️ 相关标签

#毕业设计 #商 #代码 #销售
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -