Code: Alles auswählen
::oCalCon := CreateObject("Codejock.CalendarControl"+HX_VERSION(),,cLicense )
::oDialogs := CreateObject("Codejock.CalendarDialogs"+HX_VERSION() )
::oDialogs:Calendar := ::oCalCon
::oDialogs:ShowNewEvent()
aber dann ...
Code: Alles auswählen
::oOptions := ::oCalCon:callMethod("Options") -> crash
dito.
::oCalCon := ::oCalCon:dynamicCast( ActiveXObject() )
::oOptions := ::oCalCon:callMethod("Options") -> crash
Code: Alles auswählen
::oCalCon := XbpActiveXControl() :new( ::drawingArea,, { 0, 30 }, { 652, 400 + 50 } )
::oCalCon:CLSID := "Codejock.CalendarControl" + HX_VERSION()
::oCalCon:License := cLicense
::oCalCon:TabStop := .T.
::oCalCon:create()
::oOptions := ::oCalCon:callMethod("Options") -> funktioniert
::oDialogs:Calendar := ::oCalCon ->crash
ich "denke" bei CreateObject() wird :SubClass im Gegensatz zu XbpActiveXControl() nicht verwendet ?
wie bekomme ich CreateObject() dazu bei der Method(e) "Options", welche mir ein Object zurück gibt, zu funktionieren ?
überlegung ...
Code: Alles auswählen
Super Class
AutomationObject()
// mittels
oObj := oObj:dynamicCast( ActiveXObject() )
// wird daraus
Sub Class
ActiveXObject()
// mittels
oObj := oObj:??? // tja was ... ???
// wird daraus
Sub Class
XbpActiveXControl()