cbhpsyn.hpp

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

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

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

#ifndef cbHPSynHPP
#define cbHPSynHPP

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

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

namespace Cbhpsyn
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TtkTokenKind { tkAsmKey, tkAsm, tkAsmComment, tksAsmKey, tksAsm, tksAsmComment, tkRplKey, tkRpl, 
	tkRplComment };
#pragma option pop

typedef AnsiString cbHPSyn__1[9];

#pragma option push -b-
enum TRangeState { rsRpl, rsComRpl, rssasm1, rssasm2, rssasm3, rsAsm, rsComAsm2, rsComAsm1 };
#pragma option pop

class DELPHICLASS TcbHPSyn;
class PASCALIMPLEMENTATION TcbHPSyn : public Mwhighlighter::TmwCustomHighLighter 
{
	typedef Mwhighlighter::TmwCustomHighLighter inherited;
	
private:
	TtkTokenKind fTockenKind;
	TRangeState fRange;
	AnsiString fLine;
	int Run;
	int fTokenPos;
	bool fEol;
	Mwhighlighter::TmwHighLightAttributes* Attribs[9];
	Cbutils::TSpeedStringList* FRplKeyWords;
	Cbutils::TSpeedStringList* FAsmKeyWords;
	Cbutils::TSpeedStringList* FSAsmNoField;
	TRangeState FBaseRange;
	Mwhighlighter::TmwHighLightAttributes* __fastcall GetAttrib(int Index);
	void __fastcall SetAttrib(int Index, Mwhighlighter::TmwHighLightAttributes* Value);
	TtkTokenKind __fastcall NullProc(void);
	TtkTokenKind __fastcall SpaceProc(void);
	TtkTokenKind __fastcall ParOpenProc(void);
	TtkTokenKind __fastcall RplComProc(void);
	TtkTokenKind __fastcall AsmComProc(char c);
	TtkTokenKind __fastcall PersentProc(void);
	TtkTokenKind __fastcall IdentProc(void);
	TtkTokenKind __fastcall SlashProc(void);
	TtkTokenKind __fastcall SasmProc1(void);
	TtkTokenKind __fastcall SasmProc2(void);
	TtkTokenKind __fastcall SasmProc3(void);
	void __fastcall EndOfToken(void);
	void __fastcall SetHighLightChange(void);
	TtkTokenKind __fastcall Next1(void);
	void __fastcall Next2(TtkTokenKind tkk);
	TtkTokenKind __fastcall GetTokenFromRange(void);
	TtkTokenKind __fastcall StarProc(void);
	
protected:
	virtual AnsiString __fastcall GetLanguageName();
	virtual int __fastcall GetAttribCount(void);
	virtual Mwhighlighter::TmwHighLightAttributes* __fastcall GetAttribute(int idx);
	
public:
	__fastcall virtual TcbHPSyn(Classes::TComponent* AOwner);
	__fastcall virtual ~TcbHPSyn(void);
	virtual bool __fastcall GetEol(void);
	virtual void __fastcall SetLine(AnsiString NewValue, int LineNumber);
	virtual AnsiString __fastcall GetToken();
	virtual int __fastcall GetTokenPos(void);
	virtual void __fastcall Next(void);
	virtual Mwhighlighter::TmwHighLightAttributes* __fastcall GetTokenAttribute(void);
	virtual int __fastcall GetTokenKind(void);
	virtual void * __fastcall GetRange(void);
	virtual void __fastcall SetRange(void * Value);
	virtual void __fastcall ReSetRange(void);
	virtual bool __fastcall SaveToRegistry(HKEY RootKey, AnsiString Key);
	virtual bool __fastcall LoadFromRegistry(HKEY RootKey, AnsiString Key);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Cbutils::TSpeedStringList* AsmKeyWords = {read=FAsmKeyWords};
	__property Cbutils::TSpeedStringList* SAsmFoField = {read=FSAsmNoField};
	__property Cbutils::TSpeedStringList* RplKeyWords = {read=FRplKeyWords};
	
__published:
	__property Mwhighlighter::TmwHighLightAttributes* AsmKey = {read=GetAttrib, write=SetAttrib, index=0
		};
	__property Mwhighlighter::TmwHighLightAttributes* AsmTxt = {read=GetAttrib, write=SetAttrib, index=1
		};
	__property Mwhighlighter::TmwHighLightAttributes* AsmComment = {read=GetAttrib, write=SetAttrib, index=2
		};
	__property Mwhighlighter::TmwHighLightAttributes* sAsmKey = {read=GetAttrib, write=SetAttrib, index=3
		};
	__property Mwhighlighter::TmwHighLightAttributes* sAsmTxt = {read=GetAttrib, write=SetAttrib, index=4
		};
	__property Mwhighlighter::TmwHighLightAttributes* sAsmComment = {read=GetAttrib, write=SetAttrib, index=5
		};
	__property Mwhighlighter::TmwHighLightAttributes* RplKey = {read=GetAttrib, write=SetAttrib, index=6
		};
	__property Mwhighlighter::TmwHighLightAttributes* RplTxt = {read=GetAttrib, write=SetAttrib, index=7
		};
	__property Mwhighlighter::TmwHighLightAttributes* RplComment = {read=GetAttrib, write=SetAttrib, index=8
		};
	__property TRangeState BaseRange = {read=FBaseRange, write=FBaseRange, nodefault};
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString tkTokenName[9];
extern PACKAGE void __fastcall Register(void);

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

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