qm_rgrid.hpp

商品销售管理系统-毕业设计有代码和论文,可以做毕业设计

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

// (DO NOT EDIT: machine generated header) 'QM_RGrid.pas' rev: 5.00

#ifndef QM_RGridHPP
#define QM_RGridHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Qm_rgrid
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TQMGridOption { rgLines, rgColLines, rgRowLines, rgLRLines, rgTitles, rgKeepTitleHeight, rgTitleBottomLines, 
	rgBoldFrame, rgBoldHeaderLine };
#pragma option pop

typedef Set<TQMGridOption, rgLines, rgBoldHeaderLine>  TQMGridOptions;

#pragma option push -b-
enum TQMVAlign { alTop, alMiddle, alBottom };
#pragma option pop

#pragma option push -b-
enum TQMGridType { gtGrid, gtEhGrid, gtDBGrid, gtStringGrid };
#pragma option pop

class DELPHICLASS TQMColumnTitle;
class DELPHICLASS TQMColumn;
class DELPHICLASS TQMColumnFooter;
class PASCALIMPLEMENTATION TQMColumnFooter : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	TQMColumn* FColumn;
	AnsiString FCaption;
	Graphics::TFont* FFont;
	Classes::TAlignment FAlignment;
	bool FIsFontStored;
	void __fastcall FontChanged(System::TObject* Sender);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetFont(const Graphics::TFont* Value);
	
public:
	__fastcall virtual TQMColumnFooter(Classes::TCollection* Collection);
	__fastcall TQMColumnFooter(TQMColumn* Column);
	__fastcall virtual ~TQMColumnFooter(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	Graphics::TFont* __fastcall DefaultFont(void);
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=0};
	__property AnsiString Caption = {read=FCaption, write=FCaption};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
};


class DELPHICLASS TQMColumnFooters;
typedef TMetaClass*TQMColumnFooterClass;

class PASCALIMPLEMENTATION TQMColumnFooters : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
private:
	TQMColumn* FColumn;
	TQMColumnFooter* __fastcall GetFooter(int Index);
	void __fastcall SetFooter(int Index, TQMColumnFooter* Value);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	__fastcall TQMColumnFooters(TQMColumn* Column, TMetaClass* FooterClass);
	HIDESBASE TQMColumnFooter* __fastcall Add(void);
	__property TQMColumn* Column = {read=FColumn};
	__property TQMColumnFooter* Items[int Index] = {read=GetFooter, write=SetFooter/*, default*/};
public:
		
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TQMColumnFooters(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMCustomGrid;
class PASCALIMPLEMENTATION TQMColumn : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	Classes::TAlignment FAlignment;
	AnsiString FFieldName;
	int FWidth;
	TQMColumnTitle* FTitle;
	Graphics::TFont* FFont;
	TQMColumnFooter* FFooter;
	TQMColumnFooters* FFooters;
	AnsiString FDisplayFormat;
	bool FHideZero;
	bool FAutoSize;
	bool FVisible;
	bool FIsFontStored;
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetTitle(const TQMColumnTitle* Value);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetFooter(const TQMColumnFooter* Value);
	void __fastcall SetFooters(const TQMColumnFooters* Value);
	
protected:
	TQMCustomGrid* __fastcall GetGrid(void);
	virtual AnsiString __fastcall GetDisplayName(void);
	
public:
	__fastcall virtual TQMColumn(Classes::TCollection* Collection);
	__fastcall virtual ~TQMColumn(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	Graphics::TFont* __fastcall DefaultFont(void);
	__property TQMCustomGrid* Grid = {read=GetGrid};
	TQMColumnFooter* __fastcall CreateFooter(void);
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=0};
	__property AnsiString FieldName = {read=FFieldName, write=FFieldName};
	__property int Width = {read=FWidth, write=FWidth, default=64};
	__property TQMColumnTitle* Title = {read=FTitle, write=SetTitle};
	__property TQMColumnFooter* Footer = {read=FFooter, write=SetFooter};
	__property TQMColumnFooters* Footers = {read=FFooters, write=SetFooters};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
	__property AnsiString DisplayFormat = {read=FDisplayFormat, write=FDisplayFormat};
	__property bool HideZero = {read=FHideZero, write=FHideZero, default=0};
	__property bool Visible = {read=FVisible, write=FVisible, default=1};
	__property bool AutoSize = {read=FAutoSize, write=FAutoSize, default=0};
};


class PASCALIMPLEMENTATION TQMColumnTitle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TQMColumn* FColumn;
	AnsiString FCaption;
	Graphics::TFont* FFont;
	Classes::TAlignment FAlignment;
	bool FIsFontStored;
	bool FIsCaptionStored;
	void __fastcall FontChanged(System::TObject* Sender);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetFont(const Graphics::TFont* Value);
	AnsiString __fastcall GetCaption(void);
	void __fastcall SetCaption(const AnsiString Value);
	
public:
	__fastcall TQMColumnTitle(TQMColumn* Column);
	__fastcall virtual ~TQMColumnTitle(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	Graphics::TFont* __fastcall DefaultFont(void);
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=2};
	__property AnsiString Caption = {read=GetCaption, write=SetCaption, stored=FIsCaptionStored};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
};


typedef TMetaClass*TQMColumnClass;

class DELPHICLASS TQMColumns;
class PASCALIMPLEMENTATION TQMColumns : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
private:
	TQMCustomGrid* FGrid;
	TQMColumn* __fastcall GetColumn(int Index);
	void __fastcall SetColumn(int Index, TQMColumn* Value);
	
protected:
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	HIDESBASE TQMColumn* __fastcall Add(void);
	__property TQMColumn* Items[int Index] = {read=GetColumn, write=SetColumn/*, default*/};
	__property TQMCustomGrid* Grid = {read=FGrid, write=FGrid};
public:
	#pragma option push -w-inl
	/* TOwnedCollection.Create */ inline __fastcall TQMColumns(Classes::TPersistent* AOwner, TMetaClass* 
		ItemClass) : Classes::TOwnedCollection(AOwner, ItemClass) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TQMColumns(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TQMCustomGrid : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TQMColumns* FColumns;
	Graphics::TFont* FFont;
	Graphics::TFont* FTitleFont;
	Graphics::TFont* FFooterFont;
	int FFooterRowCount;
	int FRowHeight;
	int FTitleHeight;
	TQMVAlign FDetailAlign;
	TQMGridOptions FQMGridOptions;
	bool FTitleWordWrap;
	bool FTitleMulti;
	bool FIsFontStored;
	bool FIsTitleFontStored;
	bool FIsFooterFontStored;
	Graphics::TFont* FDefaultFont;
	Classes::TComponent* FOwner;
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall TitleFontChanged(System::TObject* Sender);
	void __fastcall FooterFontChanged(System::TObject* Sender);
	Graphics::TFont* __fastcall GetTitleFont(void);
	void __fastcall SetTitleFont(const Graphics::TFont* Value);
	Graphics::TFont* __fastcall GetFont(void);
	Graphics::TFont* __fastcall GetFooterFont(void);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetFooterFont(const Graphics::TFont* Value);
	void __fastcall SetColumns(const TQMColumns* Value);
	void __fastcall SetFooterRowCount(const int Value);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TQMCustomGrid(Classes::TComponent* AOwner, Graphics::TFont* AFont);
	__fastcall virtual ~TQMCustomGrid(void);
	TQMColumn* __fastcall ColumnByFieldName(AnsiString AFieldName);
	TQMColumn* __fastcall ColumnByTitleCaption(AnsiString ACaption);
	__property Classes::TComponent* Owner = {read=FOwner};
	__property TQMColumns* Columns = {read=FColumns, write=SetColumns};
	__property int FooterRowCount = {read=FFooterRowCount, write=SetFooterRowCount, default=0};
	__property int RowHeight = {read=FRowHeight, write=FRowHeight, default=0};
	__property int TitleHeight = {read=FTitleHeight, write=FTitleHeight, default=0};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=FIsFontStored};
	__property Graphics::TFont* TitleFont = {read=GetTitleFont, write=SetTitleFont, stored=FIsTitleFontStored
		};
	__property Graphics::TFont* FooterFont = {read=GetFooterFont, write=SetFooterFont, stored=FIsFooterFontStored
		};
	__property bool TitleMulti = {read=FTitleMulti, write=FTitleMulti, default=0};
	__property bool IsFontStored = {read=FIsFontStored, nodefault};
	__property bool IsTitleFontStored = {read=FIsTitleFontStored, nodefault};
	__property bool IsFooterFontStored = {read=FIsFooterFontStored, nodefault};
	
__published:
	__property bool TitleWordWrap = {read=FTitleWordWrap, write=FTitleWordWrap, default=1};
	__property TQMVAlign DetailAlign = {read=FDetailAlign, write=FDetailAlign, default=1};
	__property TQMGridOptions Options = {read=FQMGridOptions, write=FQMGridOptions, nodefault};
};


class DELPHICLASS TQMGrid;
class PASCALIMPLEMENTATION TQMGrid : public TQMCustomGrid 
{
	typedef TQMCustomGrid inherited;
	
__published:
	__property Columns ;
	__property FooterRowCount ;
	__property RowHeight ;
	__property TitleHeight ;
	__property Font ;
	__property TitleFont ;
	__property FooterFont ;
	__property TitleMulti ;
public:
	#pragma option push -w-inl
	/* TQMCustomGrid.Create */ inline __fastcall TQMGrid(Classes::TComponent* AOwner, Graphics::TFont* 
		AFont) : TQMCustomGrid(AOwner, AFont) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TQMCustomGrid.Destroy */ inline __fastcall virtual ~TQMGrid(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMEhGrid;
class PASCALIMPLEMENTATION TQMEhGrid : public TQMCustomGrid 
{
	typedef TQMCustomGrid inherited;
	
public:
	#pragma option push -w-inl
	/* TQMCustomGrid.Create */ inline __fastcall TQMEhGrid(Classes::TComponent* AOwner, Graphics::TFont* 
		AFont) : TQMCustomGrid(AOwner, AFont) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TQMCustomGrid.Destroy */ inline __fastcall virtual ~TQMEhGrid(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMDBGrid;
class PASCALIMPLEMENTATION TQMDBGrid : public TQMCustomGrid 
{
	typedef TQMCustomGrid inherited;
	
__published:
	__property FooterRowCount ;
	__property RowHeight ;
	__property TitleHeight ;
	__property FooterFont ;
	__property TitleMulti ;
public:
	#pragma option push -w-inl
	/* TQMCustomGrid.Create */ inline __fastcall TQMDBGrid(Classes::TComponent* AOwner, Graphics::TFont* 
		AFont) : TQMCustomGrid(AOwner, AFont) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TQMCustomGrid.Destroy */ inline __fastcall virtual ~TQMDBGrid(void) { }
	#pragma option pop
	
};


class DELPHICLASS TQMStringGrid;
class PASCALIMPLEMENTATION TQMStringGrid : public TQMCustomGrid 
{
	typedef TQMCustomGrid inherited;
	
__published:
	__property FooterRowCount ;
	__property TitleFont ;
	__property FooterFont ;
	__property TitleMulti ;
public:
	#pragma option push -w-inl
	/* TQMCustomGrid.Create */ inline __fastcall TQMStringGrid(Classes::TComponent* AOwner, Graphics::TFont* 
		AFont) : TQMCustomGrid(AOwner, AFont) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TQMCustomGrid.Destroy */ inline __fastcall virtual ~TQMStringGrid(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Qm_rgrid */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Qm_rgrid;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// QM_RGrid