advmemo.hpp

一个非常棒的控件.做商业软件特别适用.里面的控件涉及面非常的广,有兴趣的话可以下来用用就知道了.

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Advmemo.pas' rev: 10.00

#ifndef AdvmemoHPP
#define AdvmemoHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Inifiles.hpp>	// Pascal unit
#include <Rtfengine.hpp>	// Pascal unit
#include <Advstyleif.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Actnlist.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

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

namespace Advmemo
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TBorderType { btRaised, btLowered, btFlatRaised, btFlatLowered };
#pragma option pop

#pragma option push -b-
enum TStyleType { stKeyword, stBracket, stSymbol };
#pragma option pop

#pragma option push -b-
enum TAdvMemoStyle { msOffice2003Blue, msOffice2003Olive, msOffice2003Silver, msOffice2003Classic, msOffice2007Luna, msOffice2007Obsidian, msWindowsXP, msWhidbey, msCustom };
#pragma option pop

#pragma option push -b-
enum TTokenType { ttNone, ttVar, ttProp, ttEvent, ttMethod, ttFunc, ttProc };
#pragma option pop

#pragma option push -b-
enum TAutoHintParameters { hpAuto, hpManual, hpNone };
#pragma option pop

#pragma option push -b-
enum TAutoHintParameterPosition { hpBelowCode, hpAboveCode };
#pragma option pop

#pragma option push -b-
enum TRegionType { rtOpen, rtClosed, rtFile, rtIgnore };
#pragma option pop

typedef void __fastcall (__closure *TAllowEvent)(System::TObject* Sender, bool &Allow);

typedef void __fastcall (__closure *TAdvMemoFileDropEvent)(System::TObject* Sender, AnsiString FileName, bool &DefaultHandler);

typedef void __fastcall (__closure *TAdvMemoScrollHintEvent)(System::TObject* Sender, int ARow, AnsiString &hintstr);

typedef int TCommand;

struct TCellSize
{
	
public:
	int W;
	int H;
} ;

struct TCellPos
{
	
public:
	int X;
	int Y;
} ;

struct TFullPos
{
	
public:
	int LineNo;
	int Pos;
} ;

struct TStyle
{
	
public:
	bool isComment;
	bool isBracket;
	bool isnumber;
	bool iskeyWord;
	bool isdelimiter;
	bool isURL;
	char EndBracket;
	char StartBracket;
	int index;
} ;

class DELPHICLASS TAdvAutoform;
class PASCALIMPLEMENTATION TAdvAutoform : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TAdvAutoform(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TAdvAutoform(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TAdvAutoform(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvAutoform(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvHintForm;
class PASCALIMPLEMENTATION TAdvHintForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
protected:
	DYNAMIC void __fastcall Paint(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	AnsiString part1;
	AnsiString part2;
	AnsiString part3;
	Byte Active;
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TAdvHintForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TAdvHintForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TAdvHintForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvHintForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TIntList;
class PASCALIMPLEMENTATION TIntList : public Classes::TList 
{
	typedef Classes::TList inherited;
	
public:
	int operator[](int index) { return Items[index]; }
	
private:
	void __fastcall SetInteger(int Index, int Value);
	int __fastcall GetInteger(int Index);
	
public:
	__fastcall TIntList(void);
	HIDESBASE int __fastcall IndexOf(int Value);
	__property int Items[int index] = {read=GetInteger, write=SetInteger/*, default*/};
	HIDESBASE void __fastcall Add(int Value);
	HIDESBASE void __fastcall Insert(int Index, int Value);
	HIDESBASE void __fastcall Delete(int Index);
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TIntList(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAutoCompletionListBox;
class PASCALIMPLEMENTATION TAutoCompletionListBox : public Stdctrls::TListBox 
{
	typedef Stdctrls::TListBox inherited;
	
private:
	Graphics::TBitmap* FBmpVar;
	Graphics::TBitmap* FBmpProp;
	Graphics::TBitmap* FBmpEvent;
	Graphics::TBitmap* FBmpProc;
	Graphics::TBitmap* FBmpMethod;
	bool FShowImages;
	Controls::TImageList* FImages;
	Graphics::TColor FColorVar;
	Graphics::TColor FColorProp;
	Graphics::TColor FColorIdentifier;
	Graphics::TColor FColorFunc;
	Graphics::TColor FColorEvent;
	Graphics::TColor FColorProc;
	Graphics::TColor FColorMethod;
	int FIdentifierWidth;
	void __fastcall SetImages(Controls::TImageList* IL);
	
protected:
	virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	__property int IdentifierWidth = {read=FIdentifierWidth, nodefault};
	
public:
	int __fastcall AutoAdaptWidth(void);
	__fastcall virtual TAutoCompletionListBox(Classes::TComponent* AOwner);
	__fastcall virtual ~TAutoCompletionListBox(void);
	__property Controls::TImageList* ImageList = {read=FImages, write=SetImages};
	
__published:
	__property bool ShowImages = {read=FShowImages, write=FShowImages, default=0};
	__property Graphics::TColor ColorVar = {read=FColorVar, write=FColorVar, nodefault};
	__property Graphics::TColor ColorProp = {read=FColorProp, write=FColorProp, nodefault};
	__property Graphics::TColor ColorEvent = {read=FColorEvent, write=FColorEvent, nodefault};
	__property Graphics::TColor ColorMethod = {read=FColorMethod, write=FColorMethod, nodefault};
	__property Graphics::TColor ColorFunc = {read=FColorFunc, write=FColorFunc, nodefault};
	__property Graphics::TColor ColorProc = {read=FColorProc, write=FColorProc, nodefault};
	__property Graphics::TColor ColorIdentifier = {read=FColorIdentifier, write=FColorIdentifier, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAutoCompletionListBox(HWND ParentWindow) : Stdctrls::TListBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TLineProp;
class PASCALIMPLEMENTATION TLineProp : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	System::TObject* FObject;
	TIntList* FErrStart;
	TIntList* FErrLen;
	bool FExpanded;
	int FLastChildOfParents;
	bool FHasParent;
	bool FHasChildren;
	void __fastcall SetExpanded(const bool Value);
	bool __fastcall GetLastChild(void);
	void __fastcall SetLastChildOfParents(int Value);
	
public:
	bool BreakPoint;
	bool Executable;
	bool Modified;
	int ImageIndex;
	bool Bookmark;
	TStyle Style;
	bool CachedStyle;
	bool Wrapped;
	__fastcall TLineProp(void);
	__fastcall virtual ~TLineProp(void);
	__property bool HasParent = {read=FHasParent, write=FHasParent, nodefault};
	__property bool HasChildren = {read=FHasChildren, write=FHasChildren, nodefault};
	__property bool Expanded = {read=FExpanded, write=SetExpanded, nodefault};
	__property bool LastChild = {read=GetLastChild, nodefault};
	__property int LastChildOfParents = {read=FLastChildOfParents, write=SetLastChildOfParents, nodefault};
};


typedef void __fastcall (__closure *TOnChangeEvent)(System::TObject* Sender, int ChangeMsg);

class DELPHICLASS TCodeFolding;
class PASCALIMPLEMENTATION TCodeFolding : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FEnabled;
	Graphics::TBitmap* FExpandGlyph;
	Graphics::TBitmap* FCollapsedGlyph;
	Graphics::TColor FLineColor;
	TOnChangeEvent FOnChange;
	void __fastcall SetCollapsedGlyph(const Graphics::TBitmap* Value);
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetExpandGlyph(const Graphics::TBitmap* Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);