| Class TOLEEdit (unit OLERichEdit) |
TRichEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Clear;
destructor Destroy;
function Objectselected:Boolean;
procedure CloseOLEObjects;
procedure CreateWnd;
function GetPopupMenu: TPopupMenu;
procedure DestroyVerbs;
procedure DoVerb(Verb: Integer);
procedure PopupVerbMenuClick(Sender: TObject);
procedure UpdateVerbs;
procedure WMDestroy(var Msg: TMessage);| Properties |
property AutoVerbMenu : boolean| Events |
| Variables |
FRichEditOle : IRichEditOLE;
FRichEditOleCallback : IRichEditOleCallback;
FAutoVerbMenu : boolean;
FObjectVerbs : TStringList;
FPopupVerbMenu : TPopupMenu;
FSelObject : IOleObject;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Clear;!!0.01
destructor Destroy;
function Objectselected:Boolean;
procedure CloseOLEObjects;Protected declarations
procedure CreateWnd;!!0.01 -- added method
function GetPopupMenu: TPopupMenu;!!0.01 -- overriden to close objects
procedure DestroyVerbs;The following four methods lifted more or less intact from TOleContainer
procedure DoVerb(Verb: Integer);
procedure PopupVerbMenuClick(Sender: TObject);
procedure UpdateVerbs;
procedure WMDestroy(var Msg: TMessage);!!0.01 -- added method
| Properties |
property AutoVerbMenu : boolean!!0.01 -- overriden to close objects
| Events |
| Variables |
FRichEditOle : IRichEditOLE;Public declarations
FRichEditOleCallback : IRichEditOleCallback;
FAutoVerbMenu : boolean;
FObjectVerbs : TStringList;
FPopupVerbMenu : TPopupMenu;Private declarations } {$IFDEF VerbMenu
FSelObject : IOleObject;