Author | Topic: DSOframer and Events | |
---|---|---|
AUGE_OHR | DSOframer and Events on Tue, 11 Aug 2009 06:39:12 +0200 hi, did someone try DSOframer (see Alaska WebSite) i change from Word to Excel using ::oControl:CreateNew("Excel.Sheet") ::oExcel := ::oControl:ActiveDocument() ::oExApp := ::oExcel:Application while Excel is "in" a XbpDialog i like to "disable" User click into Worksheet oForm:oControl:disable() -> nothing happend oForm:oExcel:disable() -> Crash oForm:oExApp:disable() -> Crash next i try to get Event from Excel but i fail again ... xVar := oForm:oControl:isEventPublished("BeforeDoubleClick") ->0??? IF xVar <> NIL lSuccess := oForm:oControl:SubscribeEvent(xVar,{|TargetRange,CancelBo ENDIF and this crash xVar := oForm:oExcel:isEventPublished("BeforeDoubleClick") IF xVar <> NIL lSuccess := oForm:oExcel:SubscribeEvent(xVar,{|TargetRange,CancelBoo ENDIF xVar := oForm:oExApp:isEventPublished("BeforeDoubleClick") IF xVar <> NIL lSuccess := oForm:oExApp:SubscribeEvent(xVar,{|TargetRange,CancelBoo ENDIF i also try oForm:oControl:lbClick := {| aPos, uNIL, self | TONE(123) } oForm:oControl:lbDblClick := {| aPos, uNIL, self | TONE(123) } oForm:oControl:lbDown := {| aPos, uNIL, self | TONE(123) } oForm:oControl:lbUp := {| aPos, uNIL, self | TONE(123) } oForm:oControl:rbClick := {| aPos, uNIL, self | TONE(123) } oForm:oControl:rbDblClick := {| aPos, uNIL, self | TONE(123) } oForm:oControl:rbDown := {| aPos, uNIL, self | TONE(123) } oForm:oControl:rbUp := {| aPos, uNIL, self | TONE(123) } oForm:oControl:captureMouse( .T. ) oForm:oExcel:captureMouse( .T. ) oForm:oControl:enter := {| aPos, u2, oSelf | TONE(123),; ::drawingArea:captureMouse( .T. ) } oForm:oControl:leave := {| u1 , u2, oSelf | TONE(123),; ::drawingArea:captureMouse( .F. ) } but nothing work ... any Idee why this all does not work ? greetings by OHR Jimmy |