mwsupportclasses.hpp

来自「本人买的<<VC++项目开发实例>>源代码配套光盘.」· HPP 代码 · 共 267 行

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

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

#ifndef mwSupportClassesHPP
#define mwSupportClassesHPP

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

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

namespace Mwsupportclasses
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TmwSelectedColor;
class PASCALIMPLEMENTATION TmwSelectedColor : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor fBG;
	Graphics::TColor fFG;
	Classes::TNotifyEvent fOnChange;
	void __fastcall SetBG(Graphics::TColor Value);
	void __fastcall SetFG(Graphics::TColor Value);
	
public:
	__fastcall TmwSelectedColor(void);
	
__published:
	__property Graphics::TColor Background = {read=fBG, write=SetBG, default=-2147483635};
	__property Graphics::TColor Foreground = {read=fFG, write=SetFG, default=-2147483634};
	__property Classes::TNotifyEvent OnChange = {read=fOnChange, write=fOnChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TmwSelectedColor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmwGutter;
class PASCALIMPLEMENTATION TmwGutter : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor fColor;
	int fWidth;
	bool fShowLineNumbers;
	int fDigitCount;
	bool fLeadingZeros;
	bool fZeroStart;
	int fLeftOffset;
	int fRightOffset;
	Classes::TNotifyEvent fOnChange;
	Controls::TCursor fCursor;
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetDigitCount(int Value);
	void __fastcall SetLeadingZeros(const bool Value);
	void __fastcall SetLeftOffset(int Value);
	void __fastcall SetRightOffset(int Value);
	void __fastcall SetShowLineNumbers(const bool Value);
	void __fastcall SetWidth(int Value);
	void __fastcall SetZeroStart(const bool Value);
	
public:
	__fastcall TmwGutter(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	AnsiString __fastcall FormatLineNumber(int Line);
	int __fastcall RealGutterWidth(int CharWidth);
	
__published:
	__property Graphics::TColor Color = {read=fColor, write=SetColor, default=-2147483633};
	__property Controls::TCursor Cursor = {read=fCursor, write=fCursor, default=0};
	__property int DigitCount = {read=fDigitCount, write=SetDigitCount, default=4};
	__property bool LeadingZeros = {read=fLeadingZeros, write=SetLeadingZeros, default=0};
	__property int LeftOffset = {read=fLeftOffset, write=SetLeftOffset, default=16};
	__property int RightOffset = {read=fRightOffset, write=SetRightOffset, default=2};
	__property bool ShowLineNumbers = {read=fShowLineNumbers, write=SetShowLineNumbers, default=0};
	__property int Width = {read=fWidth, write=SetWidth, default=30};
	__property bool ZeroStart = {read=fZeroStart, write=SetZeroStart, default=0};
	__property Classes::TNotifyEvent OnChange = {read=fOnChange, write=fOnChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TmwGutter(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmwBookMarkOpt;
class PASCALIMPLEMENTATION TmwBookMarkOpt : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Controls::TImageList* fBookmarkImages;
	bool fEnableKeys;
	bool fGlyphsVisible;
	int fLeftMargin;
	Classes::TComponent* fOwner;
	int fXoffset;
	Classes::TNotifyEvent fOnChange;
	void __fastcall SetBookmarkImages(const Controls::TImageList* Value);
	void __fastcall SetGlyphsVisible(bool Value);
	void __fastcall SetLeftMargin(int Value);
	void __fastcall SetXOffset(int Value);
	
public:
	__fastcall TmwBookMarkOpt(Classes::TComponent* AOwner);
	
__published:
	__property Controls::TImageList* BookmarkImages = {read=fBookmarkImages, write=SetBookmarkImages};
	__property bool EnableKeys = {read=fEnableKeys, write=fEnableKeys, default=1};
	__property bool GlyphsVisible = {read=fGlyphsVisible, write=SetGlyphsVisible, default=1};
	__property int LeftMargin = {read=fLeftMargin, write=SetLeftMargin, default=2};
	__property int Xoffset = {read=fXoffset, write=SetXOffset, default=12};
	__property Classes::TNotifyEvent OnChange = {read=fOnChange, write=fOnChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TmwBookMarkOpt(void) { }
	#pragma option pop
	
};


class DELPHICLASS EmwMethodChain;
class PASCALIMPLEMENTATION EmwMethodChain : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EmwMethodChain(const AnsiString Msg) : Sysutils::Exception(
		Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EmwMethodChain(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EmwMethodChain(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EmwMethodChain(int Ident, const System::TVarRec * Args
		, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EmwMethodChain(const AnsiString Msg, int AHelpContext)
		 : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EmwMethodChain(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EmwMethodChain(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EmwMethodChain(System::PResStringRec ResStringRec
		, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EmwMethodChain(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TmwExceptionEvent)(System::TObject* Sender, Sysutils::Exception* 
	E, bool &DoContinue);

class DELPHICLASS TmwMethodChain;
class PASCALIMPLEMENTATION TmwMethodChain : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TList* FNotifyProcs;
	TmwExceptionEvent FExceptionHandler;
	
protected:
	virtual void __fastcall DoFire(const Sysutils::TMethod &AEvent) = 0 ;
	virtual bool __fastcall DoHandleException(Sysutils::Exception* E);
	__property TmwExceptionEvent ExceptionHandler = {read=FExceptionHandler, write=FExceptionHandler};
	
public:
	__fastcall virtual TmwMethodChain(void);
	__fastcall virtual ~TmwMethodChain(void);
	void __fastcall Add(const Sysutils::TMethod &AEvent);
	void __fastcall Remove(const Sysutils::TMethod &AEvent);
	void __fastcall Fire(void);
};


class DELPHICLASS TmwNotifyEventChain;
class PASCALIMPLEMENTATION TmwNotifyEventChain : public TmwMethodChain 
{
	typedef TmwMethodChain inherited;
	
private:
	System::TObject* FSender;
	
protected:
	virtual void __fastcall DoFire(const Sysutils::TMethod &AEvent);
	
public:
	__fastcall TmwNotifyEventChain(System::TObject* ASender);
	HIDESBASE void __fastcall Add(Classes::TNotifyEvent AEvent);
	HIDESBASE void __fastcall Remove(Classes::TNotifyEvent AEvent);
	__property ExceptionHandler ;
	__property System::TObject* Sender = {read=FSender, write=FSender};
public:
	#pragma option push -w-inl
	/* TmwMethodChain.Create */ inline __fastcall virtual TmwNotifyEventChain(void) : TmwMethodChain() { }
		
	#pragma option pop
	#pragma option push -w-inl
	/* TmwMethodChain.Destroy */ inline __fastcall virtual ~TmwNotifyEventChain(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmwInternalImage;
class PASCALIMPLEMENTATION TmwInternalImage : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	__fastcall TmwInternalImage(const AnsiString Name, int Count);
	__fastcall virtual ~TmwInternalImage(void);
	void __fastcall DrawMark(Graphics::TCanvas* ACanvas, int Number, int X, int Y, int LineHeight);
};


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

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

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