Class TOleCircle (unit TestObjects)

Inherits from

TDelphiOle

Constructors



Functions

function DoVerb(iVerb: Longint): HResult;


procedure Draw(dwDrawAspect: Longint;const bounds:TRect;Canvas:TCanvas);

////////////////////////////////////////////////////////////////////////////// TOleCircle //////////////////////////////////////////////////////////////////////////////

class function GetCLSID:TCLSID;

result in HIMETRIC

function GetExtent(dwDrawAspect: Longint):TPoint;


class function GetProgID:string;


class function GetUserType:string;

{7CA25701-0DFB-11CF-85B0-444553540000

procedure Load(str:TStream);


procedure Save(str:TStream);


Properties

Events

Variables


Constructors


Functions


function DoVerb(iVerb: Longint): HResult;


procedure Draw(dwDrawAspect: Longint;const bounds:TRect;Canvas:TCanvas);

////////////////////////////////////////////////////////////////////////////// TOleCircle //////////////////////////////////////////////////////////////////////////////


class function GetCLSID:TCLSID;

result in HIMETRIC


function GetExtent(dwDrawAspect: Longint):TPoint;


class function GetProgID:string;


class function GetUserType:string;

{7CA25701-0DFB-11CF-85B0-444553540000


procedure Load(str:TStream);


procedure Save(str:TStream);


Properties


Events


Variables