Class TOLEEdit (unit OLERichEdit) |
Inherits from
TRichEdit
constructor Create(AOwner: TComponent);
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.
property AutoVerbMenu : boolean
!!0.
FRichEditOle : IRichEditOLE;
Public declarations
FRichEditOleCallback : IRichEditOleCallback;
FAutoVerbMenu : boolean;
FObjectVerbs : TStringList;
FPopupVerbMenu : TPopupMenu;
Private declarations } {$IFDEF VerbMenu
FSelObject : IOleObject;
constructor Create(AOwner: TComponent);
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
property AutoVerbMenu : boolean
!!0.01 -- overriden to close objects
FRichEditOle : IRichEditOLE;
Public declarations
FRichEditOleCallback : IRichEditOleCallback;
FAutoVerbMenu : boolean;
FObjectVerbs : TStringList;
FPopupVerbMenu : TPopupMenu;
Private declarations } {$IFDEF VerbMenu
FSelObject : IOleObject;