| Class TDelphiOle (unit myOle) |
TObject
| Constructors |
constructor Create;| Functions |
procedure Changed;
function DoVerb(iVerb: Longint): HResult;
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);| Properties |
property owner : TMyOle| Events |
| Variables |
fOwner : TMyOle;| Constructors |
constructor Create;////////////////////////////////////////////////////////////////////////////// TDelphiOle //////////////////////////////////////////////////////////////////////////////
| Functions |
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...
| Properties |
property owner : TMyOle| Events |
| Variables |
fOwner : TMyOle;save published properties