diff options
Diffstat (limited to 'binfilter/bf_forms/source/component/forms_ComboBox.cxx')
-rw-r--r-- | binfilter/bf_forms/source/component/forms_ComboBox.cxx | 845 |
1 files changed, 0 insertions, 845 deletions
diff --git a/binfilter/bf_forms/source/component/forms_ComboBox.cxx b/binfilter/bf_forms/source/component/forms_ComboBox.cxx deleted file mode 100644 index 42a25ced0323..000000000000 --- a/binfilter/bf_forms/source/component/forms_ComboBox.cxx +++ /dev/null @@ -1,845 +0,0 @@ -/* -*- 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 "ComboBox.hxx" -#include "property.hrc" -#include "services.hxx" -#include "frm_resource.hxx" -#include "frm_resource.hrc" -#include "BaseListBox.hxx" -#include <comphelper/numbers.hxx> -#include <connectivity/dbtools.hxx> -#include <connectivity/dbconversion.hxx> - -#include <com/sun/star/container/XIndexAccess.hpp> -#include <com/sun/star/sdb/XSQLQueryComposerFactory.hpp> -#include <com/sun/star/sdb/XQueriesSupplier.hpp> -#include <com/sun/star/util/NumberFormat.hpp> -#include <com/sun/star/sdbc/XConnection.hpp> - -#include <com/sun/star/form/FormComponentType.hpp> - -#include <com/sun/star/beans/PropertyAttribute.hpp> - -#include <comphelper/property.hxx> - -#include <com/sun/star/sdbcx/XColumnsSupplier.hpp> - -#include <limits.h> - -namespace binfilter { - - using namespace ::dbtools; - -//......................................................................... -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; - -//======================================================================== -// class OComboBoxModel -//======================================================================== -sal_Int32 OComboBoxModel::nTextHandle = -1; - -//------------------------------------------------------------------ -InterfaceRef SAL_CALL OComboBoxModel_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException) -{ - return (*new OComboBoxModel(_rxFactory)); -} - -//------------------------------------------------------------------------------ -Sequence<Type> OComboBoxModel::_getTypes() -{ - return ::comphelper::concatSequences( - OBoundControlModel::_getTypes(), - OErrorBroadcaster::getTypes() - ); -} - -// XServiceInfo -//------------------------------------------------------------------------------ -StringSequence SAL_CALL OComboBoxModel::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_COMBOBOX; - pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_COMBOBOX; - return aSupported; -} - -//------------------------------------------------------------------------------ -Any SAL_CALL OComboBoxModel::queryAggregation(const Type& _rType) throw (RuntimeException) -{ - Any aReturn = OBoundControlModel::queryAggregation( _rType ); - return aReturn.hasValue() ? aReturn : OErrorBroadcaster::queryInterface( _rType ); -} - -//------------------------------------------------------------------ -DBG_NAME( OComboBoxModel ) -//------------------------------------------------------------------ -OComboBoxModel::OComboBoxModel(const Reference<XMultiServiceFactory>& _rxFactory) - :OBoundControlModel(_rxFactory, VCL_CONTROLMODEL_COMBOBOX, FRM_CONTROL_COMBOBOX) - // use the old control name for compytibility reasons - ,OErrorBroadcaster( OComponentHelper::rBHelper ) - ,m_eListSourceType(ListSourceType_TABLE) - ,m_bEmptyIsNull(sal_True) - ,m_aNullDate(DBTypeConversion::getStandardDate()) - ,m_nKeyType(NumberFormat::UNDEFINED) - ,m_nFormatKey(0) - ,m_nFieldType(DataType::OTHER) -{ - DBG_CTOR( OComboBoxModel, NULL ); - - m_nClassId = FormComponentType::COMBOBOX; - m_sDataFieldConnectivityProperty = PROPERTY_TEXT; - if (OComboBoxModel::nTextHandle == -1) - OComboBoxModel::nTextHandle = getOriginalHandle(PROPERTY_ID_TEXT); -} - -//------------------------------------------------------------------ -OComboBoxModel::OComboBoxModel( const OComboBoxModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory ) - :OBoundControlModel( _pOriginal, _rxFactory ) - ,OErrorBroadcaster( OComponentHelper::rBHelper ) - ,m_aNullDate(DBTypeConversion::getStandardDate()) - ,m_nKeyType(NumberFormat::UNDEFINED) - ,m_nFormatKey(0) - ,m_nFieldType(DataType::OTHER) -{ - DBG_CTOR( OComboBoxModel, NULL ); - - m_eListSourceType = _pOriginal->m_eListSourceType; - m_bEmptyIsNull = _pOriginal->m_bEmptyIsNull; - m_aListSource = _pOriginal->m_aListSource; - m_aDefaultText = _pOriginal->m_aDefaultText; -} - -//------------------------------------------------------------------ -OComboBoxModel::~OComboBoxModel() -{ - if (!OComponentHelper::rBHelper.bDisposed) - { - acquire(); - dispose(); - } - - DBG_DTOR( OComboBoxModel, NULL ); -} - -// XCloneable -//------------------------------------------------------------------------------ -IMPLEMENT_DEFAULT_CLONING( OComboBoxModel ) - -//------------------------------------------------------------------------------ -void OComboBoxModel::disposing() -{ - OBoundControlModel::disposing(); - OErrorBroadcaster::disposing(); - m_xFormatter = NULL; -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::getFastPropertyValue(Any& _rValue, sal_Int32 _nHandle) const -{ - switch (_nHandle) - { - case PROPERTY_ID_LISTSOURCETYPE : _rValue <<= m_eListSourceType; break; - case PROPERTY_ID_LISTSOURCE : _rValue <<= m_aListSource; break; - case PROPERTY_ID_EMPTY_IS_NULL : _rValue <<= m_bEmptyIsNull; break; - case PROPERTY_ID_DEFAULT_TEXT : _rValue <<= m_aDefaultText; break; - default: - OBoundControlModel::getFastPropertyValue(_rValue, _nHandle); - } -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::setFastPropertyValue_NoBroadcast(sal_Int32 _nHandle, const Any& _rValue) - throw (Exception) -{ - switch (_nHandle) - { - case PROPERTY_ID_LISTSOURCETYPE : - DBG_ASSERT(_rValue.getValueType().equals(::getCppuType(reinterpret_cast<ListSourceType*>(NULL))), - "OComboBoxModel::setFastPropertyValue_NoBroadcast : invalid type !" ); - _rValue >>= m_eListSourceType; - break; - - case PROPERTY_ID_LISTSOURCE : - DBG_ASSERT(_rValue.getValueType().getTypeClass() == TypeClass_STRING, - "OComboBoxModel::setFastPropertyValue_NoBroadcast : invalid type !" ); - _rValue >>= m_aListSource; - // die ListSource hat sich geaendert -> neu laden - if (ListSourceType_VALUELIST != m_eListSourceType) - { - if (m_xCursor.is() && !getField().is()) // combobox bereits mit Datenbank verbunden ? - // neu laden - loadData(); - } - break; - - case PROPERTY_ID_EMPTY_IS_NULL : - DBG_ASSERT(_rValue.getValueType().getTypeClass() == TypeClass_BOOLEAN, - "OComboBoxModel::setFastPropertyValue_NoBroadcast : invalid type !" ); - _rValue >>= m_bEmptyIsNull; - break; - - case PROPERTY_ID_DEFAULT_TEXT : - DBG_ASSERT(_rValue.getValueType().getTypeClass() == TypeClass_STRING, - "OComboBoxModel::setFastPropertyValue_NoBroadcast : invalid type !" ); - _rValue >>= m_aDefaultText; - _reset(); - break; - - default: - OBoundControlModel::setFastPropertyValue_NoBroadcast(_nHandle, _rValue); - } -} - -//------------------------------------------------------------------------------ -sal_Bool OComboBoxModel::convertFastPropertyValue( - Any& _rConvertedValue, Any& _rOldValue, sal_Int32 _nHandle, const Any& _rValue) - throw (IllegalArgumentException) -{ - sal_Bool bModified(sal_False); - switch (_nHandle) - { - case PROPERTY_ID_LISTSOURCETYPE : - bModified = tryPropertyValueEnum(_rConvertedValue, _rOldValue, _rValue, m_eListSourceType); - break; - - case PROPERTY_ID_LISTSOURCE : - bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_aListSource); - break; - - case PROPERTY_ID_EMPTY_IS_NULL : - bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_bEmptyIsNull); - break; - - case PROPERTY_ID_DEFAULT_TEXT : - bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_aDefaultText); - break; - - default: - bModified = OBoundControlModel::convertFastPropertyValue(_rConvertedValue, _rOldValue, _nHandle, _rValue); - break; - } - return bModified; -} - -//------------------------------------------------------------------------------ -Reference<XPropertySetInfo> SAL_CALL OComboBoxModel::getPropertySetInfo() throw(RuntimeException) -{ - Reference<XPropertySetInfo> xInfo( createPropertySetInfo( getInfoHelper() ) ); - return xInfo; -} - -//------------------------------------------------------------------------------ -cppu::IPropertyArrayHelper& OComboBoxModel::getInfoHelper() -{ - return *const_cast<OComboBoxModel*>(this)->getArrayHelper(); -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::fillProperties( - Sequence< Property >& _rProps, - Sequence< Property >& _rAggregateProps ) const -{ - FRM_BEGIN_PROP_HELPER(12) - DECL_PROP2(CLASSID, sal_Int16, READONLY, TRANSIENT); - DECL_PROP1(NAME, ::rtl::OUString, BOUND); - DECL_PROP1(TAG, ::rtl::OUString, BOUND); - DECL_PROP1(TABINDEX, sal_Int16, BOUND); - DECL_PROP1(LISTSOURCETYPE, ListSourceType, BOUND); - DECL_PROP1(LISTSOURCE, ::rtl::OUString, BOUND); - DECL_BOOL_PROP1(EMPTY_IS_NULL, BOUND); - DECL_PROP1(DEFAULT_TEXT, ::rtl::OUString, 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 OComboBoxModel::getServiceName() throw(RuntimeException) -{ - return FRM_COMPONENT_COMBOBOX; // old (non-sun) name for compatibility ! -} - -//------------------------------------------------------------------------------ -void SAL_CALL OComboBoxModel::write(const Reference<stario::XObjectOutputStream>& _rxOutStream) - throw(stario::IOException, RuntimeException) -{ - OBoundControlModel::write(_rxOutStream); - - // Version - // Version 0x0002: EmptyIsNull - // Version 0x0003: ListSource->Seq - // Version 0x0004: DefaultText - // Version 0x0005: HelpText - _rxOutStream->writeShort(0x0006); - - // Maskierung fuer any - sal_uInt16 nAnyMask = 0; - if (m_aBoundColumn.getValueType().getTypeClass() == TypeClass_SHORT) - nAnyMask |= BOUNDCOLUMN; - _rxOutStream << nAnyMask; - - StringSequence aListSourceSeq(&m_aListSource, 1); - _rxOutStream << aListSourceSeq; - _rxOutStream << (sal_Int16)m_eListSourceType; - - if ((nAnyMask & BOUNDCOLUMN) == BOUNDCOLUMN) - { - sal_Int16 nBoundColumn; - m_aBoundColumn >>= nBoundColumn; - _rxOutStream << nBoundColumn; - } - - _rxOutStream << (sal_Bool)m_bEmptyIsNull; - _rxOutStream << m_aDefaultText; - writeHelpTextCompatibly(_rxOutStream); - - // from version 0x0006 : common properties - writeCommonProperties(_rxOutStream); -} - -//------------------------------------------------------------------------------ -void SAL_CALL OComboBoxModel::read(const Reference<stario::XObjectInputStream>& _rxInStream) throw(stario::IOException, RuntimeException) -{ - OBoundControlModel::read(_rxInStream); - ::osl::MutexGuard aGuard(m_aMutex); - - // Version - sal_uInt16 nVersion = _rxInStream->readShort(); - DBG_ASSERT(nVersion > 0, "OComboBoxModel::read : version 0 ? this should never have been written !"); - - if (nVersion > 0x0006) - { - DBG_ERROR("OComboBoxModel::read : invalid (means unknown) version !"); - m_aListSource = ::rtl::OUString(); - m_aBoundColumn <<= (sal_Int16)0; - m_aDefaultText = ::rtl::OUString(); - m_eListSourceType = ListSourceType_TABLE; - m_bEmptyIsNull = sal_True; - defaultCommonProperties(); - return; - } - - // Maskierung fuer any - sal_uInt16 nAnyMask; - _rxInStream >> nAnyMask; - - // ListSource - if (nVersion < 0x0003) - { - ::rtl::OUString sListSource; - _rxInStream >> m_aListSource; - } - else // nVersion == 4 - { - m_aListSource = ::rtl::OUString(); - StringSequence aListSource; - _rxInStream >> aListSource; - const ::rtl::OUString* pToken = aListSource.getConstArray(); - sal_Int32 nLen = aListSource.getLength(); - for (sal_Int32 i = 0; i < nLen; ++i, ++pToken) - m_aListSource += *pToken; - } - - sal_Int16 nValue; - _rxInStream >> nValue; - m_eListSourceType = (ListSourceType)nValue; - - if ((nAnyMask & BOUNDCOLUMN) == BOUNDCOLUMN) - { - sal_Int16 nValue; - _rxInStream >> nValue; - m_aBoundColumn <<= nValue; - } - - if (nVersion > 0x0001) - { - sal_Bool bNull; - _rxInStream >> bNull; - m_bEmptyIsNull = bNull; - } - - if (nVersion > 0x0003) // nVersion == 4 - _rxInStream >> m_aDefaultText; - - // Stringliste muss geleert werden, wenn eine Listenquelle gesetzt ist - // dieses kann der Fall sein wenn im alive modus gespeichert wird - if (m_aListSource.getLength() && m_xAggregateSet.is()) - { - StringSequence aSequence; - m_xAggregateSet->setPropertyValue(PROPERTY_STRINGITEMLIST, makeAny(aSequence)); - } - - if (nVersion > 0x0004) - readHelpTextCompatibly(_rxInStream); - - if (nVersion > 0x0005) - readCommonProperties(_rxInStream); - - // 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 OComboBoxModel::loadData() -{ - DBG_ASSERT(m_eListSourceType != ListSourceType_VALUELIST, "OComboBoxModel::loadData : do not call for a value list !"); - //// - // Connection holen - Reference<XRowSet> xForm(m_xCursor, UNO_QUERY); - if (!xForm.is()) - return; - Reference<XConnection> xConnection = getConnection(xForm); - if (!xConnection.is()) - return; - - // we need a com::sun::star::sdb::Connection for some of the code below ... - Reference<XServiceInfo> xServiceInfo(xConnection, UNO_QUERY); - if (!xServiceInfo.is() || !xServiceInfo->supportsService(SRV_SDB_CONNECTION)) - { - DBG_ERROR("OComboBoxModel::loadData : invalid connection !"); - return; - } - - Reference<XStatement> xStmt; - Reference<XResultSet> xListCursor; - - if (!m_aListSource.getLength() || m_eListSourceType == ListSourceType_VALUELIST) - return; - - try - { - switch (m_eListSourceType) - { - case ListSourceType_TABLEFIELDS: - // don't work with a statement here, the fields will be collected below - break; - case ListSourceType_TABLE: - { - // does the bound field belong to the table ? - // if we use an alias for the bound field, we won't find it - // in that case we use the first field of the table - - Reference<XNameAccess> xFieldsByName = getTableFields(xConnection, m_aListSource); - Reference<XIndexAccess> xFieldsByIndex(xFieldsByName, UNO_QUERY); - - ::rtl::OUString aFieldName; - if (xFieldsByName.is() && xFieldsByName->hasByName(m_aControlSource)) - { - aFieldName = m_aControlSource; - } - else - { - // otherwise look for the alias - Reference<XSQLQueryComposerFactory> xFactory(xConnection, UNO_QUERY); - if (!xFactory.is()) - break; - - Reference<XSQLQueryComposer> xComposer = xFactory->createQueryComposer(); - try - { - Reference<XPropertySet> xFormAsSet(xForm, UNO_QUERY); - ::rtl::OUString aStatement; - xFormAsSet->getPropertyValue(PROPERTY_ACTIVECOMMAND) >>= aStatement; - xComposer->setQuery(aStatement); - } - catch(Exception&) - { - disposeComponent(xComposer); - break; - } - - // search the field - Reference<XColumnsSupplier> xSupplyFields(xComposer, UNO_QUERY); - DBG_ASSERT(xSupplyFields.is(), "OComboBoxModel::loadData : invalid query composer !"); - - Reference<XNameAccess> xFieldNames = xSupplyFields->getColumns(); - if (xFieldNames->hasByName(m_aControlSource)) - { - Reference<XPropertySet> xComposerFieldAsSet(*(Reference<XPropertySet>*)xFieldNames->getByName(m_aControlSource).getValue()); - if (hasProperty(PROPERTY_FIELDSOURCE, xComposerFieldAsSet)) - xComposerFieldAsSet->getPropertyValue(PROPERTY_FIELDSOURCE) >>= aFieldName; - } - - disposeComponent(xComposer); - } - - if (!aFieldName.getLength()) - break; - - Reference<XDatabaseMetaData> xMeta = xConnection->getMetaData(); - ::rtl::OUString aQuote = xMeta->getIdentifierQuoteString(); - ::rtl::OUString aStatement = ::rtl::OUString::createFromAscii("SELECT DISTINCT "); - - aStatement += quoteName(aQuote, aFieldName); - aStatement += ::rtl::OUString::createFromAscii(" FROM "); - aStatement += quoteTableName(xMeta, m_aListSource,::dbtools::eInDataManipulation); - - xStmt = xConnection->createStatement(); - xListCursor = xStmt->executeQuery(aStatement); - } break; - case ListSourceType_QUERY: - { - Reference<XQueriesSupplier> xSupplyQueries(xConnection, UNO_QUERY); - Reference<XPropertySet> xQuery(*(InterfaceRef*)xSupplyQueries->getQueries()->getByName(m_aListSource).getValue(), UNO_QUERY); - xStmt = xConnection->createStatement(); - Reference<XPropertySet>(xStmt, UNO_QUERY)->setPropertyValue(PROPERTY_ESCAPE_PROCESSING, xQuery->getPropertyValue(PROPERTY_ESCAPE_PROCESSING)); - - ::rtl::OUString sStatement; - xQuery->getPropertyValue(PROPERTY_COMMAND) >>= sStatement; - xListCursor = xStmt->executeQuery(sStatement); - } break; - default: - { - xStmt = xConnection->createStatement(); - if (ListSourceType_SQLPASSTHROUGH == m_eListSourceType) - { - Reference<XPropertySet> xStatementProps(xStmt, UNO_QUERY); - xStatementProps->setPropertyValue(PROPERTY_ESCAPE_PROCESSING, makeAny(sal_Bool(sal_False))); - } - xListCursor = xStmt->executeQuery(m_aListSource); - } - } - } - catch(SQLException& eSQL) - { - onError(eSQL, FRM_RES_STRING(RID_BASELISTBOX_ERROR_FILLLIST)); - disposeComponent(xListCursor); - disposeComponent(xStmt); - return; - } - catch(Exception& eUnknown) - { - eUnknown; - disposeComponent(xListCursor); - disposeComponent(xStmt); - return; - } - - if (ListSourceType_TABLEFIELDS != m_eListSourceType && !xListCursor.is()) - // something went wrong ... - return; - - ::std::vector< ::rtl::OUString > aStringList; - aStringList.reserve(16); - try - { - switch (m_eListSourceType) - { - case ListSourceType_SQL: - case ListSourceType_SQLPASSTHROUGH: - case ListSourceType_TABLE: - case ListSourceType_QUERY: - { - // die XDatabaseVAriant der ersten Spalte - Reference<XColumnsSupplier> xSupplyCols(xListCursor, UNO_QUERY); - DBG_ASSERT(xSupplyCols.is(), "OComboBoxModel::loadData : cursor supports the row set service but is no column supplier ??!"); - Reference<XIndexAccess> xColumns; - if (xSupplyCols.is()) - { - xColumns = Reference<XIndexAccess>(xSupplyCols->getColumns(), UNO_QUERY); - DBG_ASSERT(xColumns.is(), "OComboBoxModel::loadData : no columns supplied by the row set !"); - } - Reference<XColumn> xDataField; - if (xColumns.is()) - xDataField = Reference<XColumn>(*(InterfaceRef*)xColumns->getByIndex(0).getValue(), UNO_QUERY); - if (!xDataField.is()) - { - disposeComponent(xListCursor); - return; - } - - // Listen fuellen - sal_Int16 i = 0; - // per definitionem the list cursor is positioned _before_ the first row at the moment - while (xListCursor->next() && (i++<SHRT_MAX)) // max anzahl eintraege - { - - aStringList.push_back(DBTypeConversion::getValue(xDataField, - m_xFormatter, - m_aNullDate, - m_nFormatKey, - m_nKeyType)); - } - } - break; - case ListSourceType_TABLEFIELDS: - { - Reference<XNameAccess> xFieldNames = getTableFields(xConnection, m_aListSource); - if (xFieldNames.is()) - { - StringSequence seqNames = xFieldNames->getElementNames(); - sal_Int32 nFieldsCount = seqNames.getLength(); - const ::rtl::OUString* pustrNames = seqNames.getConstArray(); - - for (sal_Int32 k=0; k<nFieldsCount; ++k) - aStringList.push_back(pustrNames[k]); - } - } - break; - } - } - catch(SQLException& eSQL) - { - onError(eSQL, FRM_RES_STRING(RID_BASELISTBOX_ERROR_FILLLIST)); - disposeComponent(xListCursor); - disposeComponent(xStmt); - return; - } - catch(Exception& eUnknown) - { - eUnknown; - disposeComponent(xListCursor); - disposeComponent(xStmt); - return; - } - - // String-Sequence fuer ListBox erzeugen - StringSequence aStringSeq(aStringList.size()); - ::rtl::OUString* pStringAry = aStringSeq.getArray(); - for (sal_Int32 i = 0; i<aStringSeq.getLength(); ++i) - pStringAry[i] = aStringList[i]; - - // String-Sequence an ListBox setzen - m_xAggregateSet->setPropertyValue(PROPERTY_STRINGITEMLIST, makeAny(aStringSeq)); - - // destroy cursor & statement - disposeComponent(xListCursor); - disposeComponent(xStmt); -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::_loaded(const EventObject& rEvent) -{ - Reference<XPropertySet> xField = getField(); - if (xField.is()) - { - // jetzt den Key und typ ermitteln - xField->getPropertyValue(PROPERTY_FIELDTYPE) >>= m_nFieldType; - xField->getPropertyValue(PROPERTY_FORMATKEY) >>= m_nFormatKey; - - // XNumberFormatter besorgen - Reference<XRowSet> xRowSet(rEvent.Source, UNO_QUERY); - DBG_ASSERT(xRowSet.is(), "OComboBoxModel::_loaded : invalid event source !"); - Reference<XNumberFormatsSupplier> xSupplier = getNumberFormats(getConnection(xRowSet), sal_False, m_xServiceFactory); - if (xSupplier.is()) - { - m_xFormatter = Reference<XNumberFormatter>( - m_xServiceFactory->createInstance(FRM_NUMBER_FORMATTER), UNO_QUERY - ); - if (m_xFormatter.is()) - m_xFormatter->attachNumberFormatsSupplier(xSupplier); - - m_nKeyType = getNumberFormatType(xSupplier->getNumberFormats(), m_nFormatKey); - xSupplier->getNumberFormatSettings()->getPropertyValue(::rtl::OUString::createFromAscii("NullDate")) >>= m_aNullDate; - } - } - - m_xAggregateSet->getPropertyValue(PROPERTY_STRINGITEMLIST) >>= m_aDesignModeStringItems; - - // Daten nur laden, wenn eine Listenquelle angegeben wurde - if (m_aListSource.getLength() && m_xCursor.is()) - loadData(); -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::_unloaded() -{ - if (getField().is()) - { - m_xFormatter = 0; - m_nFieldType = DataType::OTHER; - m_nFormatKey = 0; - m_nKeyType = NumberFormat::UNDEFINED; - m_aNullDate = DBTypeConversion::getStandardDate(); - } - - // reset the string item list - m_xAggregateSet->setPropertyValue(PROPERTY_STRINGITEMLIST, makeAny(m_aDesignModeStringItems)); -} - -//------------------------------------------------------------------------------ -void SAL_CALL OComboBoxModel::reloaded( const EventObject& aEvent ) throw(RuntimeException) -{ - OBoundControlModel::reloaded(aEvent); - - // reload data if we have a list source - if (m_aListSource.getLength() && m_xCursor.is()) - loadData(); -} - -// XBoundComponent -//------------------------------------------------------------------------------ -sal_Bool OComboBoxModel::_commit() -{ - ::rtl::OUString aNewValue; - m_xAggregateFastSet->getFastPropertyValue(OComboBoxModel::nTextHandle) >>= aNewValue; - sal_Bool bModified = (aNewValue != m_aSaveValue); - if (bModified) - { - if (!aNewValue.getLength() && !m_bRequired && m_bEmptyIsNull) - m_xColumnUpdate->updateNull(); - else - { - try - { - DBTypeConversion::setValue(m_xColumnUpdate, m_xFormatter, m_aNullDate, aNewValue, - m_nFormatKey, m_nFieldType, m_nKeyType); - } - catch(Exception&) - { - return sal_False; - } - } - m_aSaveValue = aNewValue; - } - - // add the new value to the list - sal_Bool bAddToList = bModified; - // (only if this is not the "commit" triggered by a "reset") - if (m_bResetting) - bAddToList = sal_False; - - Any aAnyList = m_xAggregateSet->getPropertyValue(PROPERTY_STRINGITEMLIST); - if (bAddToList && aAnyList.getValueType().equals(::getCppuType(reinterpret_cast<StringSequence*>(NULL)))) - { - StringSequence aStringItemList = *(StringSequence*)aAnyList.getValue(); - const ::rtl::OUString* pStringItems = aStringItemList.getConstArray(); - sal_Int32 i; - for (i=0; i<aStringItemList.getLength(); ++i, ++pStringItems) - { - if (pStringItems->equals(aNewValue)) - break; - } - - // not found -> add - if (i >= aStringItemList.getLength()) - { - sal_Int32 nOldLen = aStringItemList.getLength(); - aStringItemList.realloc(nOldLen + 1); - ::rtl::OUString* pStringItems = aStringItemList.getArray() + nOldLen; - *pStringItems = aNewValue; - - aAnyList <<= aStringItemList; - m_xAggregateSet->setPropertyValue(PROPERTY_STRINGITEMLIST, aAnyList); - } - } - - return sal_True; -} - -// XPropertiesChangeListener -//------------------------------------------------------------------------------ -void OComboBoxModel::_onValueChanged() -{ - // 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 - // and in this special case do it before calling DBTypeConversion::getValue, as this uses the number formatter - // which's implementation locks the SM, too :( - // FS - 72451 - 31.01.00 - MutexRelease aRelease(m_aMutex); - DBG_ASSERT(m_xColumn.is(), "OComboBoxModel::_onValueChanged : have no column !"); - m_aSaveValue = DBTypeConversion::getValue(m_xColumn, - m_xFormatter, - m_aNullDate, - m_nFormatKey, - m_nKeyType); - - m_xAggregateFastSet->setFastPropertyValue(OComboBoxModel::nTextHandle, makeAny(m_aSaveValue)); -} - -//------------------------------------------------------------------------------ -void OComboBoxModel::_reset() -{ - { // 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_xAggregateFastSet->setFastPropertyValue(OComboBoxModel::nTextHandle, makeAny(m_aDefaultText)); - } -} - -//======================================================================== -//= OComboBoxControl -//======================================================================== - -//------------------------------------------------------------------ -InterfaceRef SAL_CALL OComboBoxControl_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException) -{ - return *(new OComboBoxControl(_rxFactory)); -} - -//------------------------------------------------------------------------------ -OComboBoxControl::OComboBoxControl(const Reference<XMultiServiceFactory>& _rxFactory) - :OBoundControl(_rxFactory, VCL_CONTROL_COMBOBOX) -{ -} - -//------------------------------------------------------------------------------ -StringSequence SAL_CALL OComboBoxControl::getSupportedServiceNames() throw(RuntimeException) -{ - StringSequence aSupported = OBoundControl::getSupportedServiceNames(); - aSupported.realloc(aSupported.getLength() + 1); - - ::rtl::OUString* pArray = aSupported.getArray(); - pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_COMBOBOX; - return aSupported; -} - -//......................................................................... -} -//......................................................................... - -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |