Alaska Software Inc. - DSOframer and Events
Username: Password:
AuthorTopic: DSOframer and Events
AUGE_OHRDSOframer 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