mwkeycmds.hpp

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

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

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

#ifndef mwKeyCmdsHPP
#define mwKeyCmdsHPP

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

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

namespace Mwkeycmds
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EmwKeyError;
class PASCALIMPLEMENTATION EmwKeyError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EmwKeyError(const AnsiString Msg) : Sysutils::Exception(Msg
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EmwKeyError(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 EmwKeyError(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EmwKeyError(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 EmwKeyError(const AnsiString Msg, int AHelpContext) : 
		Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EmwKeyError(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 EmwKeyError(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EmwKeyError(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 ~EmwKeyError(void) { }
	#pragma option pop
	
};


typedef Word TmwEditorCommand;

class DELPHICLASS TmwKeyStroke;
class PASCALIMPLEMENTATION TmwKeyStroke : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	Word FKey;
	Classes::TShiftState FShift;
	Word FKey2;
	Classes::TShiftState FShift2;
	TmwEditorCommand FCommand;
	void __fastcall SetKey(const Word Value);
	void __fastcall SetShift(const Classes::TShiftState Value);
	Classes::TShortCut __fastcall GetShortCut(void);
	void __fastcall SetShortCut(const Classes::TShortCut Value);
	void __fastcall SetKey2(const Word Value);
	void __fastcall SetShift2(const Classes::TShiftState Value);
	Classes::TShortCut __fastcall GetShortCut2(void);
	void __fastcall SetShortCut2(const Classes::TShortCut Value);
	void __fastcall SetCommand(const TmwEditorCommand Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Word Key = {read=FKey, write=SetKey, nodefault};
	__property Classes::TShiftState Shift = {read=FShift, write=SetShift, nodefault};
	__property Word Key2 = {read=FKey2, write=SetKey2, nodefault};
	__property Classes::TShiftState Shift2 = {read=FShift2, write=SetShift2, nodefault};
	
__published:
	__property Classes::TShortCut ShortCut = {read=GetShortCut, write=SetShortCut, nodefault};
	__property Classes::TShortCut ShortCut2 = {read=GetShortCut2, write=SetShortCut2, nodefault};
	__property TmwEditorCommand Command = {read=FCommand, write=SetCommand, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TmwKeyStroke(Classes::TCollection* Collection
		) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TmwKeyStroke(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmwKeyStrokes;
class PASCALIMPLEMENTATION TmwKeyStrokes : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
private:
	Classes::TPersistent* FOwner;
	HIDESBASE TmwKeyStroke* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TmwKeyStroke* Value);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TmwKeyStrokes(Classes::TPersistent* AOwner);
	HIDESBASE TmwKeyStroke* __fastcall Add(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	int __fastcall FindCommand(TmwEditorCommand Cmd);
	int __fastcall FindShortcut(Classes::TShortCut SC);
	int __fastcall FindKeycode(Word Code, Classes::TShiftState SS);
	int __fastcall FindShortcut2(Classes::TShortCut SC, Classes::TShortCut SC2);
	int __fastcall FindKeycode2(Word Code1, Classes::TShiftState SS1, Word Code2, Classes::TShiftState 
		SS2);
	void __fastcall ResetDefaults(void);
	__property TmwKeyStroke* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TmwKeyStrokes(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint ecNone = 0x0;
static const Shortint ecLeft = 0x1;
static const Shortint ecRight = 0x2;
static const Shortint ecUp = 0x3;
static const Shortint ecDown = 0x4;
static const Shortint ecWordLeft = 0x5;
static const Shortint ecWordRight = 0x6;
static const Shortint ecLineStart = 0x7;
static const Shortint ecLineEnd = 0x8;
static const Shortint ecPageUp = 0x9;
static const Shortint ecPageDown = 0xa;
static const Shortint ecPageLeft = 0xb;
static const Shortint ecPageRight = 0xc;
static const Shortint ecPageTop = 0xd;
static const Shortint ecPageBottom = 0xe;
static const Shortint ecEditorTop = 0xf;
static const Shortint ecEditorBottom = 0x10;
static const Shortint ecGotoXY = 0x11;
static const Shortint ecSelection = 0x64;
static const Shortint ecSelLeft = 0x65;
static const Shortint ecSelRight = 0x66;
static const Shortint ecSelUp = 0x67;
static const Shortint ecSelDown = 0x68;
static const Shortint ecSelWordLeft = 0x69;
static const Shortint ecSelWordRight = 0x6a;
static const Shortint ecSelLineStart = 0x6b;
static const Shortint ecSelLineEnd = 0x6c;
static const Shortint ecSelPageUp = 0x6d;
static const Shortint ecSelPageDown = 0x6e;
static const Shortint ecSelPageLeft = 0x6f;
static const Shortint ecSelPageRight = 0x70;
static const Shortint ecSelPageTop = 0x71;
static const Shortint ecSelPageBottom = 0x72;
static const Shortint ecSelEditorTop = 0x73;
static const Shortint ecSelEditorBottom = 0x74;
static const Shortint ecSelGotoXY = 0x75;
static const Byte ecSelectAll = 0xc7;
static const Word ecDeleteLastChar = 0x191;
static const Word ecDeleteChar = 0x192;
static const Word ecDeleteWord = 0x193;
static const Word ecDeleteLastWord = 0x194;
static const Word ecDeleteBOL = 0x195;
static const Word ecDeleteEOL = 0x196;
static const Word ecDeleteLine = 0x197;
static const Word ecClearAll = 0x198;
static const Word ecLineBreak = 0x199;
static const Word ecInsertLine = 0x19a;
static const Word ecChar = 0x19b;
static const Word ecImeStr = 0x1f4;
static const Word ecUndo = 0x259;
static const Word ecRedo = 0x25a;
static const Word ecCut = 0x25b;
static const Word ecCopy = 0x25c;
static const Word ecPaste = 0x25d;
static const Word ecScrollUp = 0x25e;
static const Word ecScrollDown = 0x25f;
static const Word ecScrollLeft = 0x260;
static const Word ecScrollRight = 0x261;
static const Word ecInsertMode = 0x262;
static const Word ecOverwriteMode = 0x263;
static const Word ecToggleMode = 0x264;
static const Word ecBlockIndent = 0x265;
static const Word ecBlockUnindent = 0x266;
static const Word ecNormalSelect = 0x267;
static const Word ecColumnSelect = 0x268;
static const Word ecLineSelect = 0x269;
static const Word ecGotoMarker0 = 0x2bd;
static const Word ecGotoMarker1 = 0x2be;
static const Word ecGotoMarker2 = 0x2bf;
static const Word ecGotoMarker3 = 0x2c0;
static const Word ecGotoMarker4 = 0x2c1;
static const Word ecGotoMarker5 = 0x2c2;
static const Word ecGotoMarker6 = 0x2c3;
static const Word ecGotoMarker7 = 0x2c4;
static const Word ecGotoMarker8 = 0x2c5;
static const Word ecGotoMarker9 = 0x2c6;
static const Word ecSetMarker0 = 0x2ef;
static const Word ecSetMarker1 = 0x2f0;
static const Word ecSetMarker2 = 0x2f1;
static const Word ecSetMarker3 = 0x2f2;
static const Word ecSetMarker4 = 0x2f3;
static const Word ecSetMarker5 = 0x2f4;
static const Word ecSetMarker6 = 0x2f5;
static const Word ecSetMarker7 = 0x2f6;
static const Word ecSetMarker8 = 0x2f7;
static const Word ecSetMarker9 = 0x2f8;
static const Word ecUserFirst = 0x3e9;
extern PACKAGE void __fastcall GetEditorCommandValues(Classes::TGetStrProc Proc);
extern PACKAGE bool __fastcall IdentToEditorCommand(const AnsiString Ident, int &Cmd);
extern PACKAGE bool __fastcall EditorCommandToIdent(int Cmd, AnsiString &Ident);
extern PACKAGE AnsiString __fastcall EditorCommandToDescrString(TmwEditorCommand Cmd);
extern PACKAGE AnsiString __fastcall EditorCommandToCodeString(TmwEditorCommand Cmd);

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

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