advmemo.hpp

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

protected:
	void __fastcall Changed(int ChangeMsg);
	__property TOnChangeEvent OnChange = {read=FOnChange, write=FOnChange};
	
public:
	__fastcall TCodeFolding(void);
	__fastcall virtual ~TCodeFolding(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, nodefault};
	__property Graphics::TBitmap* ExpandGlyph = {read=FExpandGlyph, write=SetExpandGlyph};
	__property Graphics::TBitmap* CollapsedGlyph = {read=FCollapsedGlyph, write=SetCollapsedGlyph};
};


class DELPHICLASS THintParameter;
class PASCALIMPLEMENTATION THintParameter : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FTextColor;
	Graphics::TColor FBkColor;
	char FStartchar;
	char FEndchar;
	char FDelimiterchar;
	Classes::TStringList* FParameters;
	char FWritedelimiterchar;
	void __fastcall SetParameters(const Classes::TStringList* Value);
	
public:
	__fastcall THintParameter(void);
	__fastcall virtual ~THintParameter(void);
	
__published:
	__property Graphics::TColor TextColor = {read=FTextColor, write=FTextColor, nodefault};
	__property Graphics::TColor BkColor = {read=FBkColor, write=FBkColor, nodefault};
	__property char HintCharStart = {read=FStartchar, write=FStartchar, nodefault};
	__property char HintCharEnd = {read=FEndchar, write=FEndchar, nodefault};
	__property char HintCharDelimiter = {read=FDelimiterchar, write=FDelimiterchar, nodefault};
	__property char HintCharWriteDelimiter = {read=FWritedelimiterchar, write=FWritedelimiterchar, nodefault};
	__property Classes::TStringList* Parameters = {read=FParameters, write=SetParameters};
};


class DELPHICLASS TCharStyle;
class PASCALIMPLEMENTATION TCharStyle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FTextColor;
	Graphics::TColor FBkColor;
	Graphics::TFontStyles FStyle;
	
__published:
	__property Graphics::TColor TextColor = {read=FTextColor, write=FTextColor, nodefault};
	__property Graphics::TColor BkColor = {read=FBkColor, write=FBkColor, nodefault};
	__property Graphics::TFontStyles Style = {read=FStyle, write=FStyle, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TCharStyle(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TCharStyle(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TPrintOptions;
class PASCALIMPLEMENTATION TPrintOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FJobName;
	AnsiString FTitle;
	bool FPageNr;
	bool FPrintLineNumbers;
	int FMarginLeft;
	int FMarginRight;
	int FMarginTop;
	int FMarginBottom;
	AnsiString FPagePrefix;
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString JobName = {read=FJobName, write=FJobName};
	__property AnsiString Title = {read=FTitle, write=FTitle};
	__property int MarginLeft = {read=FMarginLeft, write=FMarginLeft, nodefault};
	__property int MarginRight = {read=FMarginRight, write=FMarginRight, nodefault};
	__property int MarginTop = {read=FMarginTop, write=FMarginTop, nodefault};
	__property int MarginBottom = {read=FMarginBottom, write=FMarginBottom, nodefault};
	__property bool PageNr = {read=FPageNr, write=FPageNr, nodefault};
	__property AnsiString PagePrefix = {read=FPagePrefix, write=FPagePrefix};
	__property bool PrintLineNumbers = {read=FPrintLineNumbers, write=FPrintLineNumbers, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TPrintOptions(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TPrintOptions(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TAdvMarker;
class PASCALIMPLEMENTATION TAdvMarker : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FText;
	int FImageIndex;
	int FLineNumber;
	void __fastcall SetText(const AnsiString Value);
	void __fastcall SetImageIndex(const int Value);
	void __fastcall SetLineNumber(const int Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
public:
	__fastcall virtual TAdvMarker(Classes::TCollection* Collection);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Text = {read=FText, write=SetText};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property int LineNumber = {read=FLineNumber, write=SetLineNumber, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TAdvMarker(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvMarkers;
class PASCALIMPLEMENTATION TAdvMarkers : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TAdvMarker* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TPersistent* FComponent;
	HIDESBASE TAdvMarker* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TAdvMarker* Value);
	int __fastcall GetMarkerCount(void);
	HIDESBASE TAdvMarker* __fastcall Add(void);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TAdvMarkers(Classes::TPersistent* Component);
	__fastcall virtual ~TAdvMarkers(void);
	bool __fastcall HasMarkers(void);
	bool __fastcall HigherMarkerThanLine(int LineNo);
	int __fastcall GetMarkerImageIndex(int LineNo);
	bool __fastcall GetMarkers(TAdvMarkers* Markers);
	TAdvMarker* __fastcall GetMarkerAtLine(int LineNo);
	bool __fastcall MarkerAtLine(int LineNo);
	void __fastcall AddMarker(int LineIndex, int ImageIndex)/* overload */;
	void __fastcall AddMarker(int LineIndex, int ImageIndex, AnsiString MarkerText)/* overload */;
	void __fastcall RemoveMarker(int LineNo);
	void __fastcall AdjustMarkerLineMinus(int StartIndex);
	void __fastcall AdjustMarkerLinePlus(int StartIndex);
	__property int MarkerCount = {read=GetMarkerCount, nodefault};
	__property TAdvMarker* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
};


class DELPHICLASS TAdvMarkerList;
class PASCALIMPLEMENTATION TAdvMarkerList : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TComponent* FOwner;
	TAdvMarkers* FMarkers;
	Graphics::TBitmap* FMarkerImage;
	Controls::TImageList* FMarkerImageList;
	int FDefaultMarkerImageIndex;
	bool FUseDefaultMarkerImageIndex;
	void __fastcall SetItems(TAdvMarkers* Value);
	void __fastcall SetMarkerImageList(Controls::TImageList* Il);
	void __fastcall SetDefaultMarkerImageIndex(int MarkerIndex);
	void __fastcall SetUseDefaultMarkerImageIndex(bool Value);
	void __fastcall SetMarkerTransparentColor(Graphics::TColor MarkerTransColor);
	Graphics::TColor __fastcall GetMarkerTransparentColor(void);
	
public:
	__fastcall TAdvMarkerList(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvMarkerList(void);
	void __fastcall FastDeleteAll(void);
	__property TAdvMarkers* Markers = {read=FMarkers, write=SetItems};
	
__published:
	__property Controls::TImageList* MarkerImageList = {read=FMarkerImageList, write=SetMarkerImageList};
	__property bool UseDefaultMarkerImageIndex = {read=FUseDefaultMarkerImageIndex, write=SetUseDefaultMarkerImageIndex, nodefault};
	__property int DefaultMarkerImageIndex = {read=FDefaultMarkerImageIndex, write=SetDefaultMarkerImageIndex, nodefault};
	__property Graphics::TColor ImageTransparentColor = {read=GetMarkerTransparentColor, write=SetMarkerTransparentColor, nodefault};
};


class DELPHICLASS TAdvStylerList;
class PASCALIMPLEMENTATION TAdvStylerList : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Classes::TList* FStylerList;
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* comp, Classes::TOperation Operation);
	
public:
	__fastcall virtual TAdvStylerList(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvStylerList(void);
	__property Classes::TList* StylerList = {read=FStylerList};
};


class DELPHICLASS TAdvMemoStrings;
class DELPHICLASS TAdvCustomMemo;
class DELPHICLASS TAdvCustomMemoStyler;
class DELPHICLASS TElementStyles;
class DELPHICLASS TAdvMemo;
class DELPHICLASS TAdvActiveLineSettings;
class PASCALIMPLEMENTATION TAdvActiveLineSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TAdvCustomMemo* Memo;
	Graphics::TColor FActiveLineColor;
	Graphics::TColor FActiveLineTextColor;
	bool FActiveLineAtCursor;
	bool FShowActiveLine;
	bool FShowActiveLineIndicator;
	void __fastcall SetShowActiveLine(const bool Value);
	void __fastcall SetShowActiveLineIndicator(const bool Value);
	void __fastcall SetActiveLineColor(const Graphics::TColor Value);
	void __fastcall SetActiveLineTextColor(const Graphics::TColor Value);
	void __fastcall SetActiveLineAtCursor(const bool Value);
	
public:
	__fastcall TAdvActiveLineSettings(TAdvCustomMemo* AOwner);
	
__published:
	__property bool ShowActiveLine = {read=FShowActiveLine, write=SetShowActiveLine, nodefault};
	__property bool ShowActiveLineIndicator = {read=FShowActiveLineIndicator, write=SetShowActiveLineIndicator, nodefault};
	__property Graphics::TColor ActiveLineColor = {read=FActiveLineColor, write=SetActiveLineColor, default=8388608};
	__property bool ActiveLineAtCursor = {read=FActiveLineAtCursor, write=SetActiveLineAtCursor, default=0};
	__property Graphics::TColor ActiveLineTextColor = {read=FActiveLineTextColor, write=SetActiveLineTextColor, default=65535};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAdvActiveLineSettings(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvGutter;
class PASCALIMPLEMENTATION TAdvGutter : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TAdvCustomMemo* Memo;
	int FLeft;
	int FTop;
	int FWidth;
	int FHeight;
	Graphics::TColor FColor;
	Graphics::TColor FColorTo;
	bool FShowLeadingZeros;
	bool FShowGutter;
	int FDigitCount;
	int FGutterWidth;
	int FGutterMargin;
	Graphics::TFont* FFont;
	AnsiString FNumberSuffix;
	Graphics::TColor FLineNumberTextColor;
	bool FShowLineNumbers;
	bool FShowModified;
	int FLineNumberStart;
	Classes::TNotifyEvent FOnChange;
	Graphics::TColor FModifiedColor;
	Graphics::TColor FModifiedColorBkg;
	Graphics::TColor FBorderColor;
	void __fastcall SetLineNumberTextColor(const Graphics::TColor Value);
	void __fastcall SetGutterWidth(int Value);