OpenOffice.info

Hallo Peter,

der Thread auf der api-Liste ist in [url]http://api.openoffice.org/servlets/BrowseList?listName=dev&by=thread&from=2326032&to=2326032[/url]. Die letzte Antwort von Bernhard enthält auch Basic-Code zum Testen.

Wesentliche Ergebnisse:
Eine Property hat einen Teil "Attribute", das die Eigenschaften beschreibt.[url]http://api.openoffice.org/docs/common/ref/com/sun/star/beans/PropertyAttribute.html[/url]
Wenn man in Xray die Anzeige auf Details schaltet, wird der Wert rechts angezeigt. Ansonsten kann man ihn über getPropertSetInfo erfragen oder im Watch-Fenster der IDE nachschauen.
Eine Property, bei der Attribute den Wert BOUND enthält, sollte bei Änderung ein PropertyChange-Ereignis auslösen.

Speziell bezüglich "ZoomValue" sieht es so aus, dass nur das Verhalten in Writer in Ordnung ist. In Calc hat "ZoomValue" nicht die Eigenschaft BOUND, löst bei Änderung des Zooms aber trotzdem aus. In Draw/Impress hat "ZoomValue" die Eigenschaft BOUND, löst aber nicht aus. Eigentlich müsste man dafür einen Issue schreiben. Ich bin mir aber nicht sicher, ob es sich lohnt. Ich hatte "ZoomValue" ja auch nur benutzt, um überhaupt mal mit einem PropertyChangeListener zu arbeiten.

mfG
Regina

[quote="regina"][...] aber außer Source sind alle Eventeigenschaften leer.[/quote]
Jepp. Obwohl oEvt sogar eine Eigenschaft "NewValue" hat. Aber mit [color=#00BF40][b]oEvt.Source.ZoomValue[/b][/color] kommt man an den Wert.

[quote="regina"]Ich frage mal in der API-Mailingliste.[/quote]
Würde mich auch interessieren, wieso es in Calc klappt, aber in Draw nicht. Kannst Du ein kurzes Feedback posten? Vielen Dank.

Peter

Hallo Peter,

danke fürs Testen. Auf die Idee, das Ganze mal in Calc zu probieren, bin ich gar nicht gekommen. In Calc wird die Routine zwar aufgerufen, aber außer Source sind alle Eventeigenschaften leer. Ich habe es jetzt auch in Writer und Impress probiert. Dort wird wie in Draw, das Ereignis gar nicht ausgelöst. Es scheint wohl nicht ein einfacher Fehler zu sein. Ich frage mal in der API-Mailingliste.
(oEvent --> oEvt habe ich geändert.)

mfG
Regina

Hallo Regina.

Ich kann in deinem Code keinen Fehler erkennen – mit Ausnahme der falschen Variablen ganz am Schluss: oEvent statt oEvt. Fällt aber nicht auf, weil die Verarbeitungs-Routine ja gar nicht aufgerufen wird. Seltsamerweise funktioniert dein Code (mit der kleinen oEvent/oEvt-Korrektur) in Calc problemlos. Scheint wohl irgendwie an Draw zu liegen. :(

Peter

Global oCurrentController as object
Global oListener as object
Global sProperty as string

sub startListener
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
oCurrentController.removePropertyChangeListener(sProperty,oListener)
end sub

Sub myChangeListener_disposing(oEvt)
    MsgBox "myChangeListerner disposing"
End Sub

Sub myChangeListener_propertyChange(oEvt)
	MsgBox "propertyChange"
	msgbox "PropertyName= " + oEvt.PropertyName
	MsgBox oEvt.Dbg_Properties
End Sub

Hallo,

ich lerne gerade mit Listenern umzugehen, zum Beispiel KeyHandler klappen. Aber einen PropertyChangeListener bekomme ich nicht hin. Eigentlich sollte auf Änderung des Zoom-Wertes reagiert werden. In XRay ist ZoomValue auch als 'value change may be listened' gekennzeichnet. Vielleicht erkennt ja jemand meinen Fehler. (Das Ganze benötige ich in Draw.)

mfG
Regina

[code]
Global oCurrentController as object
Global oListener as object
Global sProperty as string

sub startListener
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
oCurrentController.removePropertyChangeListener(sProperty,oListener)
end sub

Sub myChangeListener_disposing(oEvt)
MsgBox "myChangeListerner disposing"
End Sub

Sub myChangeListener_propertyChange(oEvt)
MsgBox "propertyChange"
msgbox "PropertyName= " + oEvt.PropertyName
MsgBox oEvt.Dbg_Properties
End Sub

[/code]