Class TOLEEdit (unit OLERichEdit)

Inherits from

TRichEdit

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Clear;

!!0.

destructor Destroy;


function Objectselected:Boolean;


procedure CloseOLEObjects;

Protected declarations

procedure CreateWnd;

!!0.

function GetPopupMenu: TPopupMenu;

!!0.

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.

Properties

property AutoVerbMenu : boolean

!!0.

Events

Variables

FRichEditOle : IRichEditOLE;

Public declarations

FRichEditOleCallback : IRichEditOleCallback;


FAutoVerbMenu : boolean;


FObjectVerbs : TStringList;


FPopupVerbMenu : TPopupMenu;

Private declarations } {$IFDEF VerbMenu

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;