Hello,
I need to react on the change of the property CircleStartAngle and
CircleEndAngle of an EllipseShape. I tried to use a
PropertyChangeListener but it doesn't work. So I tried a
PropertyChangeListener with a more simple example to learn whether I do
something wrong, see code below.
The subroutine myChangeListener_propertyChange are called in Calc, but
not in Draw, Writer or Impress.
When it is called in Calc, all event properties but "Source" are empty.
I hope, you can tell me what is wrong in my code.
kind regards
Regina
<code>
option explicit
Global oCurrentController as object
Global oListener as object
Global sProperty as string
sub startListener
msgbox("starting Listener")
dim sListenerName as string: sListenerName =
"com.sun.star.beans.XPropertyChangeListener"
oListener = CreateUnoListener( "myChangeListener_", sListenerName )
dim oDocument as variant: oDocument = ThisComponent
oCurrentController = oDocument.getCurrentController()
sProperty = "ZoomValue"
oCurrentController.addPropertyChangeListener(sProperty,oListener)
end sub
sub stopListener
msgbox("stop Listener")
oCurrentController.removePropertyChangeListener(sProperty,oListener)
end sub
Sub myChangeListener_disposing(oEvt as
com.sun.star.beans.PropertyChangeEvent)
MsgBox "myChangeListerner disposing"
End Sub
Sub myChangeListener_propertyChange(oEvt as
com.sun.star.beans.PropertyChangeEvent)
MsgBox "propertyChange"
msgbox ("PropertyName= " + oEvt.PropertyName)
MsgBox oEvt.Dbg_Properties
End Sub
</code>
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
