syneditmiscclasses.hpp

嵌入式IDE

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


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

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


class DELPHICLASS TSynNotifyEventChain;
class PASCALIMPLEMENTATION TSynNotifyEventChain : public TSynMethodChain 
{
	typedef TSynMethodChain inherited;
	
private:
	System::TObject* FSender;
	
protected:
	virtual void __fastcall DoFire(const System::TMethod &AEvent);
	
public:
	__fastcall TSynNotifyEventChain(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
	/* TSynMethodChain.Create */ inline __fastcall virtual TSynNotifyEventChain(void) : TSynMethodChain() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSynMethodChain.Destroy */ inline __fastcall virtual ~TSynNotifyEventChain(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSynInternalImage;
class PASCALIMPLEMENTATION TSynInternalImage : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Graphics::TBitmap* fImages;
	int fWidth;
	int fHeight;
	int fCount;
	Graphics::TBitmap* __fastcall CreateBitmapFromInternalList(unsigned aModule, const AnsiString Name);
	void __fastcall FreeBitmapFromInternalList(void);
	
public:
	__fastcall TSynInternalImage(unsigned aModule, const AnsiString Name, int Count);
	__fastcall virtual ~TSynInternalImage(void);
	void __fastcall Draw(Graphics::TCanvas* ACanvas, int Number, int X, int Y, int LineHeight);
	void __fastcall DrawTransparent(Graphics::TCanvas* ACanvas, int Number, int X, int Y, int LineHeight, Graphics::TColor TransparentColor);
};


typedef Forms::TFormBorderStyle TSynBorderStyle;

#pragma option push -b-
enum THKModifier { hkShift, hkCtrl, hkAlt };
#pragma option pop

typedef Set<THKModifier, hkShift, hkAlt>  THKModifiers;

#pragma option push -b-
enum THKInvalidKey { hcNone, hcShift, hcCtrl, hcAlt, hcShiftCtrl, hcShiftAlt, hcCtrlAlt, hcShiftCtrlAlt };
#pragma option pop

typedef Set<THKInvalidKey, hcNone, hcShiftCtrlAlt>  THKInvalidKeys;

class DELPHICLASS TSynHotKey;
class PASCALIMPLEMENTATION TSynHotKey : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	Forms::TFormBorderStyle FBorderStyle;
	Classes::TShortCut FHotKey;
	THKInvalidKeys FInvalidKeys;
	THKModifiers FModifiers;
	bool FPressedOnlyModifiers;
	void __fastcall SetBorderStyle(const Forms::TBorderStyle Value);
	void __fastcall SetHotKey(const Classes::TShortCut Value);
	void __fastcall SetInvalidKeys(const THKInvalidKeys Value);
	void __fastcall SetModifiers(const THKModifiers Value);
	MESSAGE void __fastcall WMGetDlgCode(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Msg);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall DoExit(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TSynHotKey(Classes::TComponent* AOwner);
	
__published:
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
	__property Classes::TShortCut HotKey = {read=FHotKey, write=SetHotKey, default=65};
	__property THKInvalidKeys InvalidKeys = {read=FInvalidKeys, write=SetInvalidKeys, default=3};
	__property THKModifiers Modifiers = {read=FModifiers, write=SetModifiers, default=4};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TSynHotKey(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSynHotKey(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TSynEditSearchCustom;
class PASCALIMPLEMENTATION TSynEditSearchCustom : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
protected:
	virtual AnsiString __fastcall GetPattern(void) = 0 ;
	virtual void __fastcall SetPattern(const AnsiString Value) = 0 ;
	virtual int __fastcall GetLength(int aIndex) = 0 ;
	virtual int __fastcall GetResult(int aIndex) = 0 ;
	virtual int __fastcall GetResultCount(void) = 0 ;
	virtual void __fastcall SetOptions(const Synedittypes::TSynSearchOptions Value) = 0 ;
	
public:
	virtual int __fastcall FindAll(const AnsiString NewText) = 0 ;
	virtual AnsiString __fastcall Replace(const AnsiString aOccurrence, const AnsiString aReplacement) = 0 ;
	__property AnsiString Pattern = {read=GetPattern, write=SetPattern};
	__property int ResultCount = {read=GetResultCount, nodefault};
	__property int Results[int aIndex] = {read=GetResult};
	__property int Lengths[int aIndex] = {read=GetLength};
	__property Synedittypes::TSynSearchOptions Options = {write=SetOptions, nodefault};
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TSynEditSearchCustom(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TSynEditSearchCustom(void) { }
	#pragma option pop
	
};


typedef TRegistry TBetterRegistry;
;

//-- var, const, procedure ---------------------------------------------------
static const Shortint BorderWidth = 0x0;

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

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