>x = CREATEOBJECT("sample.sample") > >*-- This shouldn't be possible, since the property is defined as read only >*-- Note: The Object Browser shows the correct information (read-only). >x.TimerInterval = 200 > >*-- This shouldn't be possible, since the property is defined as read only. >*-- Additionally this doesn't give me an error, but IMO it should, since the >*-- property is numeric (TYPE("x.TimerInterval") returns "N"). >x.TimerInterval = "kjhk" >>
>* _COMATTRIB type library attributes >#DEFINE COMATTRIB_RESTRICTED 0x1 && Not accessible from macro languages. >#DEFINE COMATTRIB_HIDDEN 0x40 && Not displayed to user. >#DEFINE COMATTRIB_NONBROWSABLE 0x400 && appears in object browser, but not in properties browser. >#DEFINE COMATTRIB_READONLY 0x100000 && read-only (PropertyGet) >#DEFINE COMATTRIB_WRITEONLY 0x200000 && write-only (PropertyPut) > >DEFINE CLASS sample AS Session OLEPUBLIC > > TimerInterval = 0 > DIMENSION TimerInterval_COMATTRIB[5] > TimerInterval_COMATTRIB[1] = COMATTRIB_READONLY > TimerInterval_COMATTRIB[2] = "" > TimerInterval_COMATTRIB[3] = "TimerInterval" > TimerInterval_COMATTRIB[4] = "Long" > TimerInterval_COMATTRIB[5] = 0 > >ENDDEFINE >>