Hi Bernard,
thanks for your tests and for your explanations and the code example. I
think, I understand now, how to use the listener and where to look, what
should be possible with the property.
kind regards
Regina
Bernard Marcelly schrieb:
Message de Regina Henschel date 2010-01-09 18:55 :
OK, I see that all EllipseShape properties are without "value change
may be listened". So I have to find another way.
But the property "ZoomValue" has got "value change may be listened",
and there is no reaction on changing zoom in Writer, Draw and Impress,
but only in Calc. Why?
After some tests I conclude that the implementation is approximate
regarding this listener...
Calc :
the property attribute of ZoomValue is : zero.
It should not fire a PropertyChangeEvent.
Yet, it does fire. But disposing is not fired when closing the window.
Draw/Impress :
the property attribute of ZoomValue is : 2.
It should fire a PropertyChangeEvent.
But it does not. Yet it fires the disposing event when closing the window.
---- Basic code, in container "My macros" for easier use ----
Option Explicit
Global propsObject as object
Global oListener as object
Sub listenPropertyChange
Dim propsObject As Object
Dim sListenerName as string, sProperty as string
sListenerName = "com.sun.star.beans.XPropertyChangeListener"
if IsNull(propsObject) then
oListener = CreateUnoListener( "myChangeListener_", sListenerName )
propsObject = ThisComponent.CurrentController ' Calc, Draw, Impress
' propsObject = ThisComponent.CurrentController.ViewSettings ' Writer
sProperty = "ZoomValue"
propsObject.addPropertyChangeListener(sProperty, oListener)
MsgBox("Listener installed")
else
MsgBox("Listener already in use", 16)
end if
End Sub
sub stopListener
if IsNull(propsObject) then
MsgBox("Listener not installed", 16)
else
propsObject.removePropertyChangeListener(sProperty,oListener)
propsObject = Nothing
oListener = Nothing
MsgBox("Listener removed")
end if
end sub
Sub myChangeListener_disposing(oEvt As Object)
MsgBox("myChangeListener disposing")
propsObject = Nothing
oListener = Nothing
End Sub
Sub myChangeListener_propertyChange(oEvt As Object)
xray oEvt
End Sub
----
Regards
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
