Class TDelphiOle (unit myOle) |
Inherits from
TObject
constructor Create;
- ////////////////////////////////////////////////////////////////////////////// TDelphiOle //////////////////////////////////////////////////////////////////////////////
procedure Changed;
must be virtual for TClassFactory to work
function DoVerb(iVerb: Longint): HResult;
result in HIMETRIC
procedure Draw(dwDrawAspect: Longint;const bounds:TRect;Canvas:TCanvas);
class function GetCLSID:TCLSID;
function GetExtent(dwDrawAspect: Longint):TPoint;
class function GetProgID:string;
class function GetUserType:string;
procedure Load(str:TStream);
procedure Release;
procedure Save(str:TStream);
procedure ViewChanged(dwAspect:DWORD);
procedure SetOwner(newOwner:TMyOle);
ok, this is not always true, but in most cases changes in object data are also reflected in object view we should also call data advisory SendOnDataChange.
property owner : TMyOle
fOwner : TMyOle;
save published properties
constructor Create;
////////////////////////////////////////////////////////////////////////////// TDelphiOle //////////////////////////////////////////////////////////////////////////////
procedure Changed;
must be virtual for TClassFactory to work
function DoVerb(iVerb: Longint): HResult;
result in HIMETRIC
procedure Draw(dwDrawAspect: Longint;const bounds:TRect;Canvas:TCanvas);
class function GetCLSID:TCLSID;
function GetExtent(dwDrawAspect: Longint):TPoint;
class function GetProgID:string;
class function GetUserType:string;
procedure Load(str:TStream);
procedure Release;
procedure Save(str:TStream);
procedure ViewChanged(dwAspect:DWORD);
procedure SetOwner(newOwner:TMyOle);
ok, this is not always true, but in most cases changes in object data are also reflected in object view we should also call data advisory SendOnDataChange...
property owner : TMyOle
fOwner : TMyOle;
save published properties