www.pudn.com > RichEdit3.rar > RichEdit2Ctrl.hpp
// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved
// (DO NOT EDIT: machine generated header) 'RichEdit2Ctrl.pas' rev: 6.00
#ifndef RichEdit2CtrlHPP
#define RichEdit2CtrlHPP
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
#include // Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Richedit2ctrl
{
//-- type declarations -------------------------------------------------------
#pragma pack(push, 4)
struct _ReObject
{
unsigned cbStruct;
int cp;
GUID clsid;
_di_IOleObject poleobj;
_di_IStorage pstg;
_di_IOleClientSite polesite;
tagSIZE sizel;
int dvAspect;
unsigned dwFlags;
unsigned dwUser;
} ;
#pragma pack(pop)
typedef _ReObject TReObject;
__interface IRichEditOle;
typedef System::DelphiInterface _di_IRichEditOle;
__interface INTERFACE_UUID("{00020D00-0000-0000-C000-000000000046}") IRichEditOle : public IInterface
{
public:
virtual HRESULT __stdcall GetClientSite(/* out */ _di_IOleClientSite &clientSite) = 0 ;
virtual HRESULT __stdcall GetObjectCount(void) = 0 ;
virtual HRESULT __stdcall GetLinkCount(void) = 0 ;
virtual HRESULT __stdcall GetObject(int iob, /* out */ _ReObject &reobject, unsigned dwFlags) = 0 ;
virtual HRESULT __stdcall InsertObject(_ReObject &reobject) = 0 ;
virtual HRESULT __stdcall ConvertObject(int iob, const GUID rclsidNew, char * lpstrUserTypeNew) = 0 ;
virtual HRESULT __stdcall ActivateAs(const GUID rclsid, const GUID rclsidAs) = 0 ;
virtual HRESULT __stdcall SetHostNames(char * lpstrContainerApp, char * lpstrContainerObj) = 0 ;
virtual HRESULT __stdcall SetLinkAvailable(int iob, BOOL fAvailable) = 0 ;
virtual HRESULT __stdcall SetDvaspect(int iob, unsigned dvaspect) = 0 ;
virtual HRESULT __stdcall HandsOffStorage(int iob) = 0 ;
virtual HRESULT __stdcall SaveCompleted(int iob, const _di_IStorage stg) = 0 ;
virtual HRESULT __stdcall InPlaceDeactivate(void) = 0 ;
virtual HRESULT __stdcall ContextSensitiveHelp(BOOL fEnterMode) = 0 ;
virtual HRESULT __stdcall GetClipboardData(_charrange &chrg, unsigned reco, /* out */ _di_IDataObject &dataobj) = 0 ;
virtual HRESULT __stdcall ImportDataObject(_di_IDataObject dataobj, Word cf, unsigned hMetaPict) = 0 ;
};
__interface IRichEditOleCallback;
typedef System::DelphiInterface _di_IRichEditOleCallback;
__interface INTERFACE_UUID("{00020D03-0000-0000-C000-000000000046}") IRichEditOleCallback : public IInterface
{
public:
virtual HRESULT __stdcall GetNewStorage(/* out */ _di_IStorage &stg) = 0 ;
virtual HRESULT __stdcall GetInPlaceContext(/* out */ _di_IOleInPlaceFrame &Frame, /* out */ _di_IOleInPlaceUIWindow &Doc, Activex::POleInPlaceFrameInfo lpFrameInfo) = 0 ;
virtual HRESULT __stdcall ShowContainerUI(BOOL fShow) = 0 ;
virtual HRESULT __stdcall QueryInsertObject(const GUID &clsid, const _di_IStorage stg, int cp) = 0 ;
virtual HRESULT __stdcall DeleteObject(const _di_IOleObject oleobj) = 0 ;
virtual HRESULT __stdcall QueryAcceptData(const _di_IDataObject dataobj, Word &cfFormat, unsigned reco, BOOL fReally, unsigned hMetaPict) = 0 ;
virtual HRESULT __stdcall ContextSensitiveHelp(BOOL fEnterMode) = 0 ;
virtual HRESULT __stdcall GetClipboardData(const _charrange &chrg, unsigned reco, /* out */ _di_IDataObject &dataobj) = 0 ;
virtual HRESULT __stdcall GetDragDropEffect(BOOL fDrag, unsigned grfKeyState, unsigned &dwEffect) = 0 ;
virtual HRESULT __stdcall GetContextMenu(Word seltype, const _di_IOleObject oleobj, const _charrange &chrg, /* out */ HMENU &menu) = 0 ;
};
class DELPHICLASS TRichEditOleCallback;
class PASCALIMPLEMENTATION TRichEditOleCallback : public System::TInterfacedObject
{
typedef System::TInterfacedObject inherited;
private:
Classes::TComponent* FOwner;
protected:
HRESULT __stdcall GetNewStorage(/* out */ _di_IStorage &stg);
HRESULT __stdcall GetInPlaceContext(/* out */ _di_IOleInPlaceFrame &Frame, /* out */ _di_IOleInPlaceUIWindow &Doc, Activex::POleInPlaceFrameInfo lpFrameInfo);
HRESULT __stdcall ShowContainerUI(BOOL fShow);
HRESULT __stdcall QueryInsertObject(const GUID &clsid, const _di_IStorage stg, int cp);
HRESULT __stdcall DeleteObject(const _di_IOleObject oleobj);
HRESULT __stdcall QueryAcceptData(const _di_IDataObject dataobj, Word &cfFormat, unsigned reco, BOOL fReally, unsigned hMetaPict);
HRESULT __stdcall ContextSensitiveHelp(BOOL fEnterMode);
HRESULT __stdcall GetClipboardData(const _charrange &chrg, unsigned reco, /* out */ _di_IDataObject &dataobj);
HRESULT __stdcall GetDragDropEffect(BOOL fDrag, unsigned grfKeyState, unsigned &dwEffect);
HRESULT __stdcall GetContextMenu(Word seltype, const _di_IOleObject oleobj, const _charrange &chrg, /* out */ HMENU &menu);
public:
__fastcall TRichEditOleCallback(Classes::TComponent* AOwner);
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TRichEditOleCallback(void) { }
#pragma option pop
private:
void *__IRichEditOleCallback; /* Richedit2ctrl::IRichEditOleCallback */
public:
operator IRichEditOleCallback*(void) { return (IRichEditOleCallback*)&__IRichEditOleCallback; }
};
#pragma option push -b-
enum TAttributeType { atSelected, atDefaultText };
#pragma option pop
#pragma option push -b-
enum TConsistentAttribute { caBold, caColor, caFace, caItalic, caSize, caStrikeOut, caUnderline, caProtected };
#pragma option pop
typedef Set TConsistentAttributes;
class DELPHICLASS TTextAttributes;
class DELPHICLASS TCustomRichEdit2;
class DELPHICLASS TParaAttributes;
#pragma option push -b-
enum TNumberingStyle { nsNone, nsBullet };
#pragma option pop
class PASCALIMPLEMENTATION TParaAttributes : public Classes::TPersistent
{
typedef Classes::TPersistent inherited;
private:
TCustomRichEdit2* RichEdit;
void __fastcall GetAttributes(PARAFORMAT2 &Paragraph);
Classes::TAlignment __fastcall GetAlignment(void);
int __fastcall GetFirstIndent(void);
int __fastcall GetLeftIndent(void);
int __fastcall GetRightIndent(void);
TNumberingStyle __fastcall GetNumbering(void);
int __fastcall GetTab(Byte Index);
int __fastcall GetTabCount(void);
int __fastcall GetSpaceBefore(void);
int __fastcall GetSpaceAfter(void);
int __fastcall GetLineSpacing(void);
int __fastcall GetLineSpacingRule(void);
void __fastcall InitPara(PARAFORMAT2 &Paragraph);
void __fastcall SetAlignment(Classes::TAlignment Value);
void __fastcall SetAttributes(PARAFORMAT2 &Paragraph);
void __fastcall SetFirstIndent(int Value);
void __fastcall SetLeftIndent(int Value);
void __fastcall SetRightIndent(int Value);
void __fastcall SetNumbering(TNumberingStyle Value);
void __fastcall SetTab(Byte Index, int Value);
void __fastcall SetTabCount(int Value);
void __fastcall SetSpaceBefore(int Value);
void __fastcall SetSpaceAfter(int Value);
void __fastcall SetLineSpacing(int Value);
void __fastcall SetLineSpacingRule(int Value);
public:
__fastcall TParaAttributes(TCustomRichEdit2* AOwner);
virtual void __fastcall Assign(Classes::TPersistent* Source);
__property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
__property int FirstIndent = {read=GetFirstIndent, write=SetFirstIndent, nodefault};
__property int LeftIndent = {read=GetLeftIndent, write=SetLeftIndent, nodefault};
__property TNumberingStyle Numbering = {read=GetNumbering, write=SetNumbering, nodefault};
__property int RightIndent = {read=GetRightIndent, write=SetRightIndent, nodefault};
__property int Tab[Byte Index] = {read=GetTab, write=SetTab};
__property int TabCount = {read=GetTabCount, write=SetTabCount, nodefault};
__property int SpaceBefore = {read=GetSpaceBefore, write=SetSpaceBefore, nodefault};
__property int SpaceAfter = {read=GetSpaceAfter, write=SetSpaceAfter, nodefault};
__property int LineSpacing = {read=GetLineSpacing, write=SetLineSpacing, nodefault};
__property int LineSpacingRule = {read=GetLineSpacingRule, write=SetLineSpacingRule, nodefault};
public:
#pragma option push -w-inl
/* TPersistent.Destroy */ inline __fastcall virtual ~TParaAttributes(void) { }
#pragma option pop
};
typedef TMetaClass*TConversionClass;
typedef void __fastcall (__closure *TRichEditResizeEvent)(System::TObject* Sender, const Types::TRect &Rect);
typedef void __fastcall (__closure *TRichEditProtectChange)(System::TObject* Sender, int StartPos, int EndPos, bool &AllowChange);
typedef void __fastcall (__closure *TRichEditSaveClipboard)(System::TObject* Sender, int NumObjects, int NumChars, bool &SaveClipboard);
class DELPHICLASS TVerRuler;
class DELPHICLASS TRulerPanel;
#pragma option push -b-
enum TRulerOption { roShowTabSelector, roShowTabStops, roHideIndentMarker, roUseIntervalls, roUpdateAtOnce, roDrawIndentLine, roKeepMarksVisible };
#pragma option pop
typedef Set TRulerOptions;
#pragma option push -b-
enum TRulerDrawOption { doShowNumbers, doShowLines, doShow3DLines };
#pragma option pop
typedef Set TRulerDrawOptions;
#pragma option push -b-
enum TRulerUnit { ruCentimeter, ruInch };
#pragma option pop
class DELPHICLASS TIndentMarker;
#pragma option push -b-
enum TIndentMarkerType { imFirst, imLeft, imRight, imBrdRight, imBrdLeft };
#pragma option pop
class PASCALIMPLEMENTATION TIndentMarker : public Controls::TGraphicControl
{
typedef Controls::TGraphicControl inherited;
private:
TIndentMarkerType FType;
bool FDown;
bool FMoving;
int FValue;
int FLastX;
int FMinValue;
int FMaxValue;
void __fastcall SetValue(int Value);
void __fastcall SetMinValue(int Value);
void __fastcall SetMaxValue(int Value);
protected:
TRulerPanel* FRuler;
DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
virtual void __fastcall Paint(void);
void __fastcall UpdateState(void);
public:
__fastcall virtual TIndentMarker(Classes::TComponent* AOwner);
__property int Value = {read=FValue, write=SetValue, nodefault};
__property int MinValue = {read=FMinValue, write=SetMinValue, nodefault};
__property int MaxValue = {read=FMaxValue, write=SetMaxValue, nodefault};
public:
#pragma option push -w-inl
/* TGraphicControl.Destroy */ inline __fastcall virtual ~TIndentMarker(void) { }
#pragma option pop
};
class DELPHICLASS TBorderMarker;
class PASCALIMPLEMENTATION TBorderMarker : public TIndentMarker
{
typedef TIndentMarker inherited;
protected:
virtual void __fastcall Paint(void);
public:
#pragma option push -w-inl
/* TIndentMarker.Create */ inline __fastcall virtual TBorderMarker(Classes::TComponent* AOwner) : TIndentMarker(AOwner) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TGraphicControl.Destroy */ inline __fastcall virtual ~TBorderMarker(void) { }
#pragma option pop
};
class DELPHICLASS TNewTabkind;
class PASCALIMPLEMENTATION TNewTabkind : public Controls::TGraphicControl
{
typedef Controls::TGraphicControl inherited;
private:
TRulerPanel* FRuler;
protected:
DYNAMIC void __fastcall Click(void);
virtual void __fastcall Paint(void);
public:
#pragma option push -w-inl
/* TGraphicControl.Create */ inline __fastcall virtual TNewTabkind(Classes::TComponent* AOwner) : Controls::TGraphicControl(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TGraphicControl.Destroy */ inline __fastcall virtual ~TNewTabkind(void) { }
#pragma option pop
};
class PASCALIMPLEMENTATION TRulerPanel : public Extctrls::TCustomPanel
{
typedef Extctrls::TCustomPanel inherited;
private:
TRulerOptions FOptions;
TRulerDrawOptions FDrawOptions;
Graphics::TColor FTextAreaColor;
Graphics::TColor FLabelColor;
TRulerUnit FUnit;
int FResolution;
#pragma pack(push, 1)
Types::TRect FRulerRect;
#pragma pack(pop)
int FRulerTop;
int FRulerWidth;
TCustomRichEdit2* FRichEdit;
int FMinValue;
int FMaxValue;
int FOrigin;
void __fastcall SetOptions(TRulerOptions RulerOptions);
void __fastcall SetResolution(int i);
void __fastcall SetTextAreaColor(Graphics::TColor Color);
void __fastcall SetLabelColor(Graphics::TColor Color);
void __fastcall SetRulerRect(const Types::TRect &Rect);
void __fastcall SetDrawOptions(TRulerDrawOptions RulerDrawOptions);
void __fastcall SetRulerTop(int Top);
void __fastcall SetRulerWidth(int Width);
void __fastcall SetUnit(TRulerUnit Value);
void __fastcall SetOrigin(int Value);
protected:
TIndentMarker* FLeftMark;
TIndentMarker* FFirstMark;
TIndentMarker* FRightMark;
TBorderMarker* FRightBorder;
TBorderMarker* FLeftBorder;
TNewTabkind* FSwitchTabKind;
int FTabKind;
virtual void __fastcall Paint(void);
DYNAMIC void __fastcall Resize(void);
public:
__fastcall virtual TRulerPanel(Classes::TComponent* AOwner);
__property int Resolution = {read=FResolution, write=SetResolution, nodefault};
__property TCustomRichEdit2* RichEdit = {read=FRichEdit, write=FRichEdit};
virtual void __fastcall SetIndent(int First, int Left, int Right);
__property Graphics::TColor TextAreaColor = {read=FTextAreaColor, write=SetTextAreaColor, nodefault};
__property Graphics::TColor LabelColor = {read=FLabelColor, write=SetLabelColor, nodefault};
__property TRulerOptions Options = {read=FOptions, write=SetOptions, nodefault};
__property Types::TRect RulerRect = {read=FRulerRect, write=SetRulerRect};
__property int RulerTop = {read=FRulerTop, write=SetRulerTop, nodefault};
__property int RulerWidth = {read=FRulerWidth, write=SetRulerWidth, nodefault};
__property TRulerDrawOptions DrawOptions = {read=FDrawOptions, write=SetDrawOptions, nodefault};
__property TRulerUnit RulerUnit = {read=FUnit, write=SetUnit, nodefault};
__property TIndentMarker* FirstMark = {read=FFirstMark};
__property TIndentMarker* LeftMark = {read=FLeftMark};
__property TIndentMarker* RightMark = {read=FRightMark};
__property int Origin = {read=FOrigin, write=SetOrigin, nodefault};
public:
#pragma option push -w-inl
/* TCustomControl.Destroy */ inline __fastcall virtual ~TRulerPanel(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TRulerPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
#pragma option pop
};
class PASCALIMPLEMENTATION TVerRuler : public TRulerPanel
{
typedef TRulerPanel inherited;
__published:
__property Align = {default=0};
__property BevelOuter = {default=2};
__property BevelWidth = {default=1};
__property BorderWidth = {default=0};
__property BorderStyle = {default=0};
__property DragCursor = {default=-12};
__property DragMode = {default=0};
__property Enabled = {default=1};
__property Color = {default=-2147483633};
__property Ctl3D ;
__property Font ;
__property ParentColor = {default=0};
__property ParentCtl3D = {default=1};
__property ParentFont = {default=1};
__property ParentShowHint = {default=1};
__property PopupMenu ;
__property ShowHint ;
__property Visible = {default=1};
__property OnClick ;
__property OnDblClick ;
__property OnDragDrop ;
__property OnDragOver ;
__property OnEndDrag ;
__property OnEnter ;
__property OnExit ;
__property OnMouseDown ;
__property OnMouseMove ;
__property OnMouseUp ;
__property OnResize ;
__property OnStartDrag ;
__property Anchors = {default=3};
__property Constraints ;
__property Options ;
__property TextAreaColor ;
__property LabelColor ;
__property RulerTop ;
__property RulerWidth ;
__property DrawOptions ;
public:
#pragma option push -w-inl
/* TRulerPanel.Create */ inline __fastcall virtual TVerRuler(Classes::TComponent* AOwner) : TRulerPanel(AOwner) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TCustomControl.Destroy */ inline __fastcall virtual ~TVerRuler(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TVerRuler(HWND ParentWindow) : TRulerPanel(ParentWindow) { }
#pragma option pop
};
class DELPHICLASS THorRuler;
class PASCALIMPLEMENTATION THorRuler : public TRulerPanel
{
typedef TRulerPanel inherited;
__published:
__property Align = {default=0};
__property BevelOuter = {default=2};
__property BevelWidth = {default=1};
__property BorderWidth = {default=0};
__property BorderStyle = {default=0};
__property DragCursor = {default=-12};
__property DragMode = {default=0};
__property Enabled = {default=1};
__property Color = {default=-2147483633};
__property Ctl3D ;
__property Font ;
__property ParentColor = {default=0};
__property ParentCtl3D = {default=1};
__property ParentFont = {default=1};
__property ParentShowHint = {default=1};
__property PopupMenu ;
__property ShowHint ;
__property Visible = {default=1};
__property OnClick ;
__property OnDblClick ;
__property OnDragDrop ;
__property OnDragOver ;
__property OnEndDrag ;
__property OnEnter ;
__property OnExit ;
__property OnMouseDown ;
__property OnMouseMove ;
__property OnMouseUp ;
__property OnResize ;
__property OnStartDrag ;
__property Anchors = {default=3};
__property Constraints ;
__property Options ;
__property TextAreaColor ;
__property LabelColor ;
__property RulerTop ;
__property RulerWidth ;
__property RulerUnit ;
__property DrawOptions ;
public:
#pragma option push -w-inl
/* TRulerPanel.Create */ inline __fastcall virtual THorRuler(Classes::TComponent* AOwner) : TRulerPanel(AOwner) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TCustomControl.Destroy */ inline __fastcall virtual ~THorRuler(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall THorRuler(HWND ParentWindow) : TRulerPanel(ParentWindow) { }
#pragma option pop
};
#pragma option push -b-
enum TSearchType { stWholeWord, stMatchCase };
#pragma option pop
typedef Set TSearchTypes;
class PASCALIMPLEMENTATION TCustomRichEdit2 : public Stdctrls::TCustomMemo
{
typedef Stdctrls::TCustomMemo inherited;
private:
bool FHideScrollBars;
TTextAttributes* FSelAttributes;
TTextAttributes* FDefAttributes;
TParaAttributes* FParagraph;
Classes::TAlignment FOldParaAlignment;
int FScreenLogPixels;
Classes::TStrings* FRichEditStrings;
Classes::TMemoryStream* FMemStream;
Classes::TNotifyEvent FOnSelChange;
bool FHideSelection;
bool FModified;
TMetaClass*FDefaultConverter;
TRichEditResizeEvent FOnResizeRequest;
TRichEditProtectChange FOnProtectChange;
TRichEditSaveClipboard FOnSaveClipboard;
#pragma pack(push, 1)
Types::TRect FPageRect;
#pragma pack(pop)
_di_IRichEditOle FRichEditOle;
_di_IRichEditOleCallback FRichEditOleCallback;
Tom_tlb::_di_ITextDocument FTextDocument;
TVerRuler* FVerRuler;
THorRuler* FHorRuler;
HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
bool __fastcall GetPlainText(void);
bool __fastcall ProtectChange(int StartPos, int EndPos);
bool __fastcall SaveClipboard(int NumObj, int NumChars);
void __fastcall SetHideScrollBars(bool Value);
HIDESBASE void __fastcall SetHideSelection(bool Value);
void __fastcall SetPlainText(bool Value);
void __fastcall SetRichEditStrings(Classes::TStrings* Value);
void __fastcall SetDefAttributes(TTextAttributes* Value);
void __fastcall SetSelAttributes(TTextAttributes* Value);
HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Message);
HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
HIDESBASE MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
void __fastcall SetAutoURLDetect(bool Value);
void __fastcall SetScrollPos(const Types::TPoint &Value);
bool __fastcall GetAutoURLDetect(void);
Types::TPoint __fastcall GetScrollPos();
bool __fastcall GetCanRedo(void);
HIDESBASE bool __fastcall GetCanUndo(void);
AnsiString __fastcall GetRedoName();
AnsiString __fastcall GetUndoName();
Tom_tlb::_di_ITextDocument __fastcall GetTom();
_di_IRichEditOle __fastcall GetRichEditOle();
void __fastcall SetRichEditOleCallback(_di_IRichEditOleCallback RichEditOleCallback);
void __fastcall SetVerRuler(TVerRuler* Value);
void __fastcall SetHorRuler(THorRuler* Value);
void __fastcall UpdateRuler(void);
protected:
virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
virtual void __fastcall CreateWnd(void);
virtual void __fastcall DestroyWnd(void);
virtual void __fastcall RequestSize(const Types::TRect &Rect);
DYNAMIC void __fastcall SelectionChange(void);
virtual void __fastcall DoSetMaxLength(int Value);
virtual Types::TPoint __fastcall GetCaretPos();
virtual int __fastcall GetSelLength(void);
virtual int __fastcall GetSelStart(void);
virtual AnsiString __fastcall GetSelText();
virtual void __fastcall SetSelLength(int Value);
virtual void __fastcall SetSelStart(int Value);
__property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
__property bool HideScrollBars = {read=FHideScrollBars, write=SetHideScrollBars, default=1};
__property Classes::TStrings* Lines = {read=FRichEditStrings, write=SetRichEditStrings};
__property TRichEditSaveClipboard OnSaveClipboard = {read=FOnSaveClipboard, write=FOnSaveClipboard};
__property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelChange, write=FOnSelChange};
__property TRichEditProtectChange OnProtectChange = {read=FOnProtectChange, write=FOnProtectChange};
__property TRichEditResizeEvent OnResizeRequest = {read=FOnResizeRequest, write=FOnResizeRequest};
__property bool PlainText = {read=GetPlainText, write=SetPlainText, default=0};
__property _di_IRichEditOle RichEditOle = {read=GetRichEditOle};
public:
__fastcall virtual TCustomRichEdit2(Classes::TComponent* AOwner);
__fastcall virtual ~TCustomRichEdit2(void);
virtual void __fastcall Clear(void);
int __fastcall FindText(const AnsiString SearchStr, int StartPos, int Length, TSearchTypes Options);
virtual int __fastcall GetSelTextBuf(char * Buffer, int BufSize);
virtual void __fastcall Print(const AnsiString Caption);
/* class method */ static void __fastcall RegisterConversionFormat(TMetaClass* vmt, const AnsiString AExtension, TMetaClass* AConversionClass);
__property TMetaClass* DefaultConverter = {read=FDefaultConverter, write=FDefaultConverter};
__property TTextAttributes* DefAttributes = {read=FDefAttributes, write=SetDefAttributes};
__property TTextAttributes* SelAttributes = {read=FSelAttributes, write=SetSelAttributes};
__property Types::TRect PageRect = {read=FPageRect, write=FPageRect};
__property TParaAttributes* Paragraph = {read=FParagraph};
__property TVerRuler* VerRuler = {read=FVerRuler, write=SetVerRuler};
__property THorRuler* HorRuler = {read=FHorRuler, write=SetHorRuler};
void __fastcall SetZoom(int Numerator, int Denominator);
void __fastcall GetZoom(int &Numerator, int &Denominator);
__property bool AutoURLDetect = {read=GetAutoURLDetect, write=SetAutoURLDetect, nodefault};
__property Types::TPoint ScrollPos = {read=GetScrollPos, write=SetScrollPos};
__property bool CanRedo = {read=GetCanRedo, nodefault};
__property bool CanUndo = {read=GetCanUndo, nodefault};
__property AnsiString RedoName = {read=GetRedoName};
__property AnsiString UndoName = {read=GetUndoName};
bool __fastcall InsertObjectDialog(void);
void __fastcall SetTypographyOptions(bool Value);
__property Tom_tlb::_di_ITextDocument TOM = {read=GetTom};
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TCustomRichEdit2(HWND ParentWindow) : Stdctrls::TCustomMemo(ParentWindow) { }
#pragma option pop
};
class PASCALIMPLEMENTATION TTextAttributes : public Classes::TPersistent
{
typedef Classes::TPersistent inherited;
private:
TCustomRichEdit2* RichEdit;
TAttributeType FType;
void __fastcall GetAttributes(Richedit2::CHARFORMAT2A &Format);
Graphics::TFontCharset __fastcall GetCharset(void);
Graphics::TColor __fastcall GetColor(void);
TConsistentAttributes __fastcall GetConsistentAttributes(void);
int __fastcall GetHeight(void);
AnsiString __fastcall GetName();
Graphics::TFontPitch __fastcall GetPitch(void);
bool __fastcall GetProtected(void);
int __fastcall GetSize(void);
Graphics::TFontStyles __fastcall GetStyle(void);
int __fastcall GetOffset(void);
Graphics::TColor __fastcall GetBackColor(void);
int __fastcall GetUnderlineType(void);
void __fastcall SetAttributes(Richedit2::CHARFORMAT2A &Format);
void __fastcall SetCharset(Graphics::TFontCharset Value);
void __fastcall SetColor(Graphics::TColor Value);
void __fastcall SetHeight(int Value);
void __fastcall SetName(AnsiString Value);
void __fastcall SetPitch(Graphics::TFontPitch Value);
void __fastcall SetProtected(bool Value);
void __fastcall SetSize(int Value);
void __fastcall SetStyle(Graphics::TFontStyles Value);
void __fastcall SetOffset(int Value);
void __fastcall SetBackColor(Graphics::TColor Value);
void __fastcall SetUnderlineType(Graphics::TColor Value);
protected:
void __fastcall InitFormat(Richedit2::CHARFORMAT2A &Format);
virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
public:
__fastcall TTextAttributes(TCustomRichEdit2* AOwner, TAttributeType AttributeType);
virtual void __fastcall Assign(Classes::TPersistent* Source);
__property Graphics::TFontCharset Charset = {read=GetCharset, write=SetCharset, nodefault};
__property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
__property TConsistentAttributes ConsistentAttributes = {read=GetConsistentAttributes, nodefault};
__property AnsiString Name = {read=GetName, write=SetName};
__property Graphics::TFontPitch Pitch = {read=GetPitch, write=SetPitch, nodefault};
__property bool Protected = {read=GetProtected, write=SetProtected, nodefault};
__property int Size = {read=GetSize, write=SetSize, nodefault};
__property Graphics::TFontStyles Style = {read=GetStyle, write=SetStyle, nodefault};
__property int Height = {read=GetHeight, write=SetHeight, nodefault};
public:
#pragma option push -w-inl
/* TPersistent.Destroy */ inline __fastcall virtual ~TTextAttributes(void) { }
#pragma option pop
};
class DELPHICLASS TConversion;
class PASCALIMPLEMENTATION TConversion : public System::TObject
{
typedef System::TObject inherited;
public:
virtual int __fastcall ConvertReadStream(Classes::TStream* Stream, char * Buffer, int BufSize);
virtual int __fastcall ConvertWriteStream(Classes::TStream* Stream, char * Buffer, int BufSize);
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TConversion(void) : System::TObject() { }
#pragma option pop
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TConversion(void) { }
#pragma option pop
};
struct TConversionFormat;
typedef TConversionFormat *PConversionFormat;
#pragma pack(push, 4)
struct TConversionFormat
{
TMetaClass*ConversionClass;
AnsiString Extension;
TConversionFormat *Next;
} ;
#pragma pack(pop)
#pragma pack(push, 4)
struct TRichEditStreamInfo
{
TConversion* Converter;
Classes::TStream* Stream;
} ;
#pragma pack(pop)
typedef TRichEditStreamInfo *PRichEditStreamInfo;
class DELPHICLASS TRichEdit2;
class PASCALIMPLEMENTATION TRichEdit2 : public TCustomRichEdit2
{
typedef TCustomRichEdit2 inherited;
__published:
__property Align = {default=0};
__property Alignment = {default=0};
__property Anchors = {default=3};
__property BiDiMode ;
__property BorderStyle = {default=1};
__property BorderWidth = {default=0};
__property Color = {default=-2147483643};
__property Ctl3D ;
__property DragCursor = {default=-12};
__property DragKind = {default=0};
__property DragMode = {default=0};
__property Enabled = {default=1};
__property Font ;
__property HideSelection = {default=1};
__property HideScrollBars = {default=1};
__property ImeMode = {default=3};
__property ImeName ;
__property Constraints ;
__property Lines ;
__property MaxLength = {default=0};
__property ParentBiDiMode = {default=1};
__property ParentColor = {default=0};
__property ParentCtl3D = {default=1};
__property ParentFont = {default=1};
__property ParentShowHint = {default=1};
__property PlainText = {default=0};
__property PopupMenu ;
__property ReadOnly = {default=0};
__property ScrollBars = {default=0};
__property ShowHint ;
__property TabOrder = {default=-1};
__property TabStop = {default=1};
__property Visible = {default=1};
__property WantTabs = {default=0};
__property WantReturns = {default=1};
__property WordWrap = {default=1};
__property OnChange ;
__property OnContextPopup ;
__property OnDragDrop ;
__property OnDragOver ;
__property OnEndDock ;
__property OnEndDrag ;
__property OnEnter ;
__property OnExit ;
__property OnKeyDown ;
__property OnKeyPress ;
__property OnKeyUp ;
__property OnMouseDown ;
__property OnMouseMove ;
__property OnMouseUp ;
__property OnMouseWheel ;
__property OnMouseWheelDown ;
__property OnMouseWheelUp ;
__property OnProtectChange ;
__property OnResizeRequest ;
__property OnSaveClipboard ;
__property OnSelectionChange ;
__property OnStartDock ;
__property OnStartDrag ;
__property HorRuler ;
__property VerRuler ;
__property AutoURLDetect ;
public:
#pragma option push -w-inl
/* TCustomRichEdit2.Create */ inline __fastcall virtual TRichEdit2(Classes::TComponent* AOwner) : TCustomRichEdit2(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomRichEdit2.Destroy */ inline __fastcall virtual ~TRichEdit2(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TRichEdit2(HWND ParentWindow) : TCustomRichEdit2(ParentWindow) { }
#pragma option pop
};
typedef int TTabKind;
//-- var, const, procedure ---------------------------------------------------
static const Shortint REO_NULL = 0x0;
static const Shortint REO_READWRITEMASK = 0x3f;
static const Shortint REO_DONTNEEDPALETTE = 0x20;
static const Shortint REO_BLANK = 0x10;
static const Shortint REO_DYNAMICSIZE = 0x8;
static const Shortint REO_INVERTEDSELECT = 0x4;
static const Shortint REO_BELOWBASELINE = 0x2;
static const Shortint REO_RESIZABLE = 0x1;
static const unsigned REO_LINK = 0x80000000;
static const int REO_STATIC = 0x40000000;
static const int REO_SELECTED = 0x8000000;
static const int REO_OPEN = 0x4000000;
static const int REO_INPLACEACTIVE = 0x2000000;
static const int REO_HILITED = 0x1000000;
static const int REO_LINKAVAILABLE = 0x800000;
static const int REO_GETMETAFILE = 0x400000;
static const unsigned REO_IOB_SELECTION = 0xffffffff;
static const int REO_CP_SELECTION = 0xffffffff;
extern PACKAGE void __fastcall Register(void);
extern PACKAGE int __fastcall PixelsToTwipsX(int Value);
extern PACKAGE int __fastcall BooleanToTom(bool Value);
extern PACKAGE bool __fastcall TomToBoolean(int Value);
extern PACKAGE int __fastcall PrinterPixelsToTwipsX(int Value);
extern PACKAGE int __fastcall TwipsToPixels(int Value);
} /* namespace Richedit2ctrl */
using namespace Richedit2ctrl;
#pragma option pop // -w-
#pragma option pop // -Vx
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // RichEdit2Ctrl