diff options
Diffstat (limited to 'binfilter/bf_forms/source/component/forms_RadioButton.cxx')
-rw-r--r-- | binfilter/bf_forms/source/component/forms_RadioButton.cxx | 535 |
1 files changed, 535 insertions, 0 deletions
diff --git a/binfilter/bf_forms/source/component/forms_RadioButton.cxx b/binfilter/bf_forms/source/component/forms_RadioButton.cxx new file mode 100644 index 000000000000..2e705fdfa998 --- /dev/null +++ b/binfilter/bf_forms/source/component/forms_RadioButton.cxx @@ -0,0 +1,535 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include <comphelper/proparrhlp.hxx> + +#include "RadioButton.hxx" +#include "property.hrc" +#include "services.hxx" + +#include <com/sun/star/container/XIndexAccess.hpp> + +#include <com/sun/star/beans/PropertyAttribute.hpp> + +#include <com/sun/star/form/FormComponentType.hpp> + +#include <comphelper/property.hxx> + +namespace binfilter { + +//......................................................................... +namespace frm +{ +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::sdb; +using namespace ::com::sun::star::sdbc; +//using namespace ::com::sun::star::sdbcx; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::container; +using namespace ::com::sun::star::form; +using namespace ::com::sun::star::awt; +using namespace ::com::sun::star::io; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::util; + +//================================================================== +//------------------------------------------------------------------------------ +InterfaceRef SAL_CALL ORadioButtonControl_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException) +{ + return *(new ORadioButtonControl(_rxFactory)); +} + +//------------------------------------------------------------------------------ +StringSequence SAL_CALL ORadioButtonControl::getSupportedServiceNames() throw(RuntimeException) +{ + StringSequence aSupported = OBoundControl::getSupportedServiceNames(); + aSupported.realloc(aSupported.getLength() + 1); + + ::rtl::OUString* pArray = aSupported.getArray(); + pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_RADIOBUTTON; + return aSupported; +} + + +//------------------------------------------------------------------ +ORadioButtonControl::ORadioButtonControl(const Reference<XMultiServiceFactory>& _rxFactory) + :OBoundControl(_rxFactory, VCL_CONTROL_RADIOBUTTON) +{ +} + +//------------------------------------------------------------------ +void SAL_CALL ORadioButtonControl::createPeer(const Reference<starawt::XToolkit>& _rxToolkit, const Reference<starawt::XWindowPeer>& _rxParent) throw (RuntimeException) +{ + OBoundControl::createPeer(_rxToolkit, _rxParent); + + // switch off the auto-toggle, we do this ourself .... + // (formerly this switch-off was done in the toolkit - but the correct place is here ...) +// Reference< XVclWindowPeer > xVclWindowPeer( getPeer(), UNO_QUERY ); +// if (xVclWindowPeer.is()) +// xVclWindowPeer->setProperty(::rtl::OUString::createFromAscii("AutoToggle"), ::cppu::bool2any(sal_False)); + // new order: do _not_ switch off the auto toggle because: + // * today, it is not necessary anymore to handle the toggling ourself (everything works fine without it) + // * without auto toggle, the AccessibleEvents as fired by the radio buttons are + // a. newly checked button: "unchecked"->"checked" + // b. previously checked button: "checked"->"unchecked" + // This is deadly for AT-tools, which then get the "unchecked" event _immediately_ after the "checked" event, + // and only read the latter. This makes radio buttons pretty unusable in form documents. + // So we switched AutoToggle _on_, again, because then VCL can handle the notifications, and will send + // them in the proper order. +} + +//================================================================== +InterfaceRef SAL_CALL ORadioButtonModel_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException) +{ + return *(new ORadioButtonModel(_rxFactory)); +} + +//------------------------------------------------------------------ +DBG_NAME( ORadioButtonModel ) +//------------------------------------------------------------------ +ORadioButtonModel::ORadioButtonModel(const Reference<XMultiServiceFactory>& _rxFactory) + :OBoundControlModel(_rxFactory, VCL_CONTROLMODEL_RADIOBUTTON, FRM_CONTROL_RADIOBUTTON, sal_False) + // use the old control name for compytibility reasons + ,OPropertyChangeListener(m_aMutex) + ,m_bInReset(sal_False) +{ + DBG_CTOR( ORadioButtonModel, NULL ); + + m_nClassId = FormComponentType::RADIOBUTTON; + m_nDefaultChecked = RB_NOCHECK; + m_aLabelServiceName = FRM_SUN_COMPONENT_GROUPBOX; + m_sDataFieldConnectivityProperty = PROPERTY_STATE; + + implConstruct(); +} + +//------------------------------------------------------------------ +ORadioButtonModel::ORadioButtonModel( const ORadioButtonModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory ) + :OBoundControlModel( _pOriginal, _rxFactory, sal_False) + ,OPropertyChangeListener( m_aMutex ) + ,m_bInReset( sal_False ) +{ + DBG_CTOR( ORadioButtonModel, NULL ); + + m_nDefaultChecked = _pOriginal->m_nDefaultChecked; + m_sReferenceValue = _pOriginal->m_sReferenceValue; + + implConstruct(); +} + +//------------------------------------------------------------------------------ +ORadioButtonModel::~ORadioButtonModel() +{ + DBG_DTOR( ORadioButtonModel, NULL ); +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::implConstruct() +{ + increment(m_refCount); + if (m_xAggregateSet.is()) + { + OPropertyChangeMultiplexer* pMultiplexer = new OPropertyChangeMultiplexer(this, m_xAggregateSet); + pMultiplexer->addProperty(PROPERTY_STATE); + } + decrement(m_refCount); +} + +// XCloneable +//------------------------------------------------------------------------------ +IMPLEMENT_DEFAULT_CLONING( ORadioButtonModel ) + +// XServiceInfo +//------------------------------------------------------------------------------ +StringSequence SAL_CALL ORadioButtonModel::getSupportedServiceNames() throw(RuntimeException) +{ + StringSequence aSupported = OBoundControlModel::getSupportedServiceNames(); + aSupported.realloc(aSupported.getLength() + 2); + + ::rtl::OUString* pArray = aSupported.getArray(); + pArray[aSupported.getLength()-2] = FRM_SUN_COMPONENT_DATABASE_RADIOBUTTON; + pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_RADIOBUTTON; + return aSupported; +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::getFastPropertyValue(Any& rValue, sal_Int32 nHandle) const +{ + switch (nHandle) + { + case PROPERTY_ID_REFVALUE : rValue <<= m_sReferenceValue; break; + case PROPERTY_ID_DEFAULTCHECKED : rValue <<= m_nDefaultChecked; break; + default: + OBoundControlModel::getFastPropertyValue(rValue, nHandle); + } +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::SetSiblingPropsTo(const ::rtl::OUString& rPropName, const Any& rValue) +{ + // mein Name + ::rtl::OUString sMyName(m_aName); + + // meine Siblings durchiterieren + Reference<XIndexAccess> xIndexAccess(getParent(), UNO_QUERY); + if (xIndexAccess.is()) + { + Reference<XPropertySet> xMyProps; + query_interface(static_cast<XWeak*>(this), xMyProps); + ::rtl::OUString sCurrentName; + for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i) + { + Reference<XPropertySet> xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), UNO_QUERY); + if (!xSiblingProperties.is()) + continue; + if (xMyProps == xSiblingProperties) + continue; // mich selber nicht umsetzen + + // nur wenn es ein Radio-Button ist + if (!hasProperty(PROPERTY_CLASSID, xSiblingProperties)) + continue; + sal_Int16 nType; + xSiblingProperties->getPropertyValue(PROPERTY_CLASSID) >>= nType; + if (nType != FormComponentType::RADIOBUTTON) + continue; + + // das 'zur selben Gruppe gehoeren' wird am Namen festgemacht + xSiblingProperties->getPropertyValue(PROPERTY_NAME) >>= sCurrentName; + if (sCurrentName == sMyName) + xSiblingProperties->setPropertyValue(rPropName, rValue); + } + } +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::setFastPropertyValue_NoBroadcast(sal_Int32 nHandle, const Any& rValue) throw (Exception) +{ + switch (nHandle) + { + case PROPERTY_ID_REFVALUE : + DBG_ASSERT(rValue.getValueType().getTypeClass() == TypeClass_STRING, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" ); + rValue >>= m_sReferenceValue; + break; + + case PROPERTY_ID_DEFAULTCHECKED : + DBG_ASSERT(rValue.getValueType().getTypeClass() == TypeClass_SHORT, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" ); + rValue >>= m_nDefaultChecked; + _reset(); + break; + + default: + OBoundControlModel::setFastPropertyValue_NoBroadcast(nHandle, rValue); + } + + // if the label control changed ... + if (nHandle == PROPERTY_ID_CONTROLLABEL) + { // ... forward this to our siblings + SetSiblingPropsTo(PROPERTY_CONTROLLABEL, rValue); + } + + // wenn sich die ControlSource-Eigenschaft geaendert hat ... + if (nHandle == PROPERTY_ID_CONTROLSOURCE) + { // ... muss ich allen meinen Siblings, die in der selben RadioButton-Gruppe sind wie ich, auch die + // neue ControlSource mitgeben + SetSiblingPropsTo(PROPERTY_CONTROLSOURCE, rValue); + } + + // die andere Richtung : wenn sich mein Name aendert ... + if (nHandle == PROPERTY_ID_NAME) + { + // ... muss ich testen, ob ich Siblings mit dem selben Namen habe, damit ich deren ControlSource uebernehmen kann + Reference<XIndexAccess> xIndexAccess(getParent(), UNO_QUERY); + if (xIndexAccess.is()) + { + ::rtl::OUString sName; + ::rtl::OUString sControlSource; + + Reference<XPropertySet> xMyProps; + query_interface(static_cast<XWeak*>(this), xMyProps); + for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i) + { + Reference<XPropertySet> xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), UNO_QUERY); + if (!xSiblingProperties.is()) + continue; + + if (xMyProps == xSiblingProperties) + // nur wenn ich nicht mich selber gefunden habe + continue; + + sal_Int16 nType; + xSiblingProperties->getPropertyValue(PROPERTY_CLASSID) >>= nType; + if (nType != FormComponentType::RADIOBUTTON) + // nur Radio-Buttons + continue; + + xSiblingProperties->getPropertyValue(PROPERTY_NAME) >>= sName; + // Control, das zur gleichen Gruppe gehoert ? + if (rValue == sName) + { + setPropertyValue(PROPERTY_CONTROLSOURCE, xSiblingProperties->getPropertyValue(PROPERTY_CONTROLSOURCE)); + break; + } + } + } + } + + if (nHandle == PROPERTY_ID_DEFAULTCHECKED) + { + sal_Int16 nValue; + rValue >>= nValue; + if (1 == nValue) + { // bei allen Radios der selben Gruppe das 'default checked' ruecksetzen, denn wie schon der highlander wusste : + // es kann nur einen geben. + Any aZero; + nValue = 0; + aZero <<= nValue; + SetSiblingPropsTo(PROPERTY_DEFAULTCHECKED, aZero); + } + } +} + +//------------------------------------------------------------------------------ +sal_Bool ORadioButtonModel::convertFastPropertyValue( + Any& _rConvertedValue, Any& _rOldValue, sal_Int32 _nHandle, const Any& _rValue) + throw (IllegalArgumentException) +{ + sal_Bool bModified(sal_False); + switch (_nHandle) + { + case PROPERTY_ID_REFVALUE : + bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_sReferenceValue); + break; + case PROPERTY_ID_DEFAULTCHECKED : + bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_nDefaultChecked); + break; + default: + bModified = OBoundControlModel::convertFastPropertyValue(_rConvertedValue, _rOldValue, _nHandle, _rValue); + break; + } + return bModified; +} + +//------------------------------------------------------------------------------ +Reference<XPropertySetInfo> SAL_CALL ORadioButtonModel::getPropertySetInfo() throw(RuntimeException) +{ + Reference<XPropertySetInfo> xInfo( createPropertySetInfo( getInfoHelper() ) ); + return xInfo; +} + +//------------------------------------------------------------------------------ +cppu::IPropertyArrayHelper& ORadioButtonModel::getInfoHelper() +{ + return *const_cast<ORadioButtonModel*>(this)->getArrayHelper(); +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::fillProperties( + Sequence< Property >& _rProps, + Sequence< Property >& _rAggregateProps ) const +{ + FRM_BEGIN_PROP_HELPER(10) + // the "State" property is transient, so change this + // ModifyPropertyAttributes(_rAggregateProps, PROPERTY_STATE, PropertyAttribute::TRANSIENT, 0); + + DECL_PROP2(CLASSID, sal_Int16, READONLY, TRANSIENT); + DECL_PROP1(REFVALUE, ::rtl::OUString, BOUND); + DECL_PROP1(DEFAULTCHECKED, sal_Int16, BOUND); + DECL_PROP1(NAME, ::rtl::OUString, BOUND); + DECL_PROP1(TAG, ::rtl::OUString, BOUND); + DECL_PROP1(TABINDEX, sal_Int16, BOUND); + DECL_PROP1(CONTROLSOURCE, rtl::OUString, BOUND); + DECL_IFACE_PROP3(BOUNDFIELD, XPropertySet, BOUND,READONLY, TRANSIENT); + DECL_IFACE_PROP2(CONTROLLABEL, XPropertySet, BOUND, MAYBEVOID); + DECL_PROP2(CONTROLSOURCEPROPERTY, rtl::OUString, READONLY, TRANSIENT); + FRM_END_PROP_HELPER(); +} + +//------------------------------------------------------------------------------ +::rtl::OUString SAL_CALL ORadioButtonModel::getServiceName() throw(RuntimeException) +{ + return FRM_COMPONENT_RADIOBUTTON; // old (non-sun) name for compatibility ! +} + +//------------------------------------------------------------------------------ +void SAL_CALL ORadioButtonModel::write(const Reference<XObjectOutputStream>& _rxOutStream) + throw(IOException, RuntimeException) +{ + OBoundControlModel::write(_rxOutStream); + + // Version + _rxOutStream->writeShort(0x0003); + + // Properties + _rxOutStream << m_sReferenceValue; + _rxOutStream << (sal_Int16)m_nDefaultChecked; + writeHelpTextCompatibly(_rxOutStream); + + // from version 0x0003 : common properties + writeCommonProperties(_rxOutStream); +} + +//------------------------------------------------------------------------------ +void SAL_CALL ORadioButtonModel::read(const Reference<XObjectInputStream>& _rxInStream) throw(IOException, RuntimeException) +{ + OBoundControlModel::read(_rxInStream); + ::osl::MutexGuard aGuard(m_aMutex); + + // Version + UINT16 nVersion = _rxInStream->readShort(); + + switch (nVersion) + { + case 0x0001 : _rxInStream >> m_sReferenceValue; _rxInStream >> m_nDefaultChecked; break; + case 0x0002 : + _rxInStream >> m_sReferenceValue; + _rxInStream >> m_nDefaultChecked; + readHelpTextCompatibly(_rxInStream); + break; + case 0x0003 : + _rxInStream >> m_sReferenceValue; + _rxInStream >> m_nDefaultChecked; + readHelpTextCompatibly(_rxInStream); + readCommonProperties(_rxInStream); + break; + default : + DBG_ERROR("ORadioButtonModel::read : unknown version !"); + m_sReferenceValue = ::rtl::OUString(); + m_nDefaultChecked = 0; + defaultCommonProperties(); + break; + } + // Nach dem Lesen die Defaultwerte anzeigen + if (m_aControlSource.getLength()) + // (not if we don't have a control source - the "State" property acts like it is persistent, then + _reset(); +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::_propertyChanged(const PropertyChangeEvent& _rEvent) throw(RuntimeException) +{ + if (_rEvent.PropertyName.equals(PROPERTY_STATE)) + { + if (_rEvent.NewValue == (sal_Int16)1) + { + // wenn sich mein Status auf 'checked' geaendert hat, muss ich alle meine Siblings, die in der selben Gruppe + // sind wie ich, entsprechend zuruecksetzen + Any aZero; + aZero <<= (sal_Int16)0; + + SetSiblingPropsTo(PROPERTY_STATE, aZero); + ::osl::MutexGuard aGuard(m_aMutex); + + // as we aren't commitable we have to take care of the field we are bound to ourself + Reference<XPropertySet> xField = getField(); + if (xField.is() && !m_bInReset) + { + xField->setPropertyValue(PROPERTY_VALUE, makeAny(m_sReferenceValue)); + } + } + } +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::_onValueChanged() +{ + Any aValue; + aValue <<= (sal_Int16)((m_xColumn->getString() == m_sReferenceValue) ? RB_CHECK : RB_NOCHECK); + m_bInReset = sal_True; + { // release our mutex once (it's acquired in the calling method !), as setting aggregate properties + // may cause any uno controls belonging to us to lock the solar mutex, which is potentially dangerous with + // our own mutex locked + // FS - 72451 - 31.01.00 + MutexRelease aRelease(m_aMutex); + m_xAggregateSet->setPropertyValue(PROPERTY_STATE, aValue); + } + m_bInReset = sal_False; +} + +//------------------------------------------------------------------------------ +Any ORadioButtonModel::_getControlValue() const +{ + return m_xAggregateSet->getPropertyValue(PROPERTY_STATE); +} + +//------------------------------------------------------------------------------ +void ORadioButtonModel::_reset( void ) +{ + Any aValue; + aValue <<= (sal_Int16)m_nDefaultChecked; + { // release our mutex once (it's acquired in the calling method !), as setting aggregate properties + // may cause any uno controls belonging to us to lock the solar mutex, which is potentially dangerous with + // our own mutex locked + // FS - 72451 - 31.01.00 + MutexRelease aRelease(m_aMutex); + m_xAggregateSet->setPropertyValue(PROPERTY_STATE, aValue); + } +} + +//----------------------------------------------------------------------------- +sal_Bool ORadioButtonModel::_commit() +{ + if (!m_bInReset) + // normally we don't have a commit as we forward all state changes immediately to our field we're bound to + return sal_True; + + // we're in reset, so this commit means "put the value into the field you're bound to" + // 72769 - 08.02.00 - FS + Reference<XPropertySet> xField = getField(); + DBG_ASSERT(xField.is(), "ORadioButtonModel::_commit : committing while resetting, but not bound ?"); + if (xField.is()) + { + try + { + sal_Int16 nValue; + m_xAggregateSet->getPropertyValue(PROPERTY_STATE) >>= nValue; + if (nValue == 1) + xField->setPropertyValue(PROPERTY_VALUE, makeAny(m_sReferenceValue)); + } + catch(Exception&) + { + DBG_ERROR("ORadioButtonModel::_commit : could not commit !"); + } + } + return sal_True; +} + +//----------------------------------------------------------------------------- +void ORadioButtonModel::reset(void) throw (RuntimeException) +{ + m_bInReset = sal_True; + OBoundControlModel::reset(); + m_bInReset = sal_False; +} + +//......................................................................... +} +//......................................................................... + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |