From 9a4efbf614793baf844b9b4a453255afbf428a90 Mon Sep 17 00:00:00 2001 From: Kurt Zenker Date: Thu, 11 Dec 2003 11:30:16 +0000 Subject: [PATCH] INTEGRATION: CWS frmcontrols01 (1.1.2); FILE ADDED 2003/10/31 10:17:34 fs 1.1.2.8: #i21952# TabIndex property added 2003/10/30 10:49:32 fs 1.1.2.7: #112861# have a ControlSource property, so no UNDO action is being created when the value changes while we're bound 2003/10/29 11:43:39 fs 1.1.2.6: #i21605# allow to bind the control to spreadsheet cells 2003/10/29 07:24:25 fs 1.1.2.5: #i21277# no real need for an own control component 2003/10/28 12:12:16 fs 1.1.2.4: resolved post-RESYNC problems 2003/10/28 09:51:16 fs 1.1.2.3: resolved post-RESYNC problems 2003/10/27 11:14:32 fs 1.1.2.2: #i21277# default scroll value is 32 bit 2003/10/22 13:08:44 fs 1.1.2.1: initial checkin - declaration/implementation for form layer scroll bar control/models --- forms/source/component/scrollbar.cxx | 382 +++++++++++++++++++++++++++ 1 file changed, 382 insertions(+) create mode 100644 forms/source/component/scrollbar.cxx diff --git a/forms/source/component/scrollbar.cxx b/forms/source/component/scrollbar.cxx new file mode 100644 index 000000000000..c857d4cc38b0 --- /dev/null +++ b/forms/source/component/scrollbar.cxx @@ -0,0 +1,382 @@ +/************************************************************************* + * + * $RCSfile: scrollbar.cxx,v $ + * + * $Revision: 1.2 $ + * + * last change: $Author: kz $ $Date: 2003-12-11 12:30:16 $ + * + * The Contents of this file are made available subject to the terms of + * either of the following licenses + * + * - GNU Lesser General Public License Version 2.1 + * - Sun Industry Standards Source License Version 1.1 + * + * Sun Microsystems Inc., October, 2000 + * + * GNU Lesser General Public License Version 2.1 + * ============================================= + * Copyright 2000 by Sun Microsystems, Inc. + * 901 San Antonio Road, Palo Alto, CA 94303, USA + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License version 2.1, as published by the Free Software Foundation. + * + * This library 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 for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, + * MA 02111-1307 USA + * + * + * Sun Industry Standards Source License Version 1.1 + * ================================================= + * The contents of this file are subject to the Sun Industry Standards + * Source License Version 1.1 (the "License"); You may not use this file + * except in compliance with the License. You may obtain a copy of the + * License at http://www.openoffice.org/license.html. + * + * Software provided under this License is provided on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, + * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. + * See the License for the specific provisions governing your rights and + * obligations concerning the Software. + * + * The Initial Developer of the Original Code is: Sun Microsystems, Inc. + * + * Copyright: 2000 by Sun Microsystems, Inc. + * + * All Rights Reserved. + * + * Contributor(s): _______________________________________ + * + * + ************************************************************************/ +#ifndef FORMS_SOURCE_COMPONENT_SCROLLBAR_HXX +#include "scrollbar.hxx" +#endif + +#ifndef _COMPHELPER_STREAMSECTION_HXX_ +#include +#endif + +#ifndef INCLUDED_RTL_MATH_HXX +#include +#endif + +//-------------------------------------------------------------------------- +extern "C" void SAL_CALL createRegistryInfo_OScrollBarModel() +{ + static ::frm::OMultiInstanceAutoRegistration< ::frm::OScrollBarModel > aRegisterModel; +} + +//........................................................................ +namespace frm +{ +//........................................................................ + + using namespace ::com::sun::star::uno; + using namespace ::com::sun::star::beans; + using namespace ::com::sun::star::form; + using namespace ::com::sun::star::awt; + using namespace ::com::sun::star::lang; + using namespace ::com::sun::star::util; + using namespace ::com::sun::star::io; + using namespace ::drafts::com::sun::star::form; + + //==================================================================== + //= helper + //==================================================================== + //-------------------------------------------------------------------- + Any translateExternalDoubleToControlIntValue( + const Reference< XValueBinding >& _rxBinding, const Reference< XPropertySet >& _rxProperties, + const ::rtl::OUString& _rMinValueName, const ::rtl::OUString& _rMaxValueName ) + { + OSL_PRECOND( _rxBinding.is(), "translateExternalDoubleToControlIntValue: no external binding!" ); + OSL_ENSURE( _rxProperties.is(), "translateExternalDoubleToControlIntValue: no aggregate!?" ); + + sal_Int32 nControlValue( 0 ); + if ( _rxBinding.is() ) + { + Any aExternalValue = _rxBinding->getValue( ::getCppuType( static_cast< double* >( NULL ) ) ); + double nExternalValue = 0; + if ( aExternalValue >>= nExternalValue ) + { + if ( ::rtl::math::isInf( nExternalValue ) ) + { + + // set the minimum or maximum of the scroll values + ::rtl::OUString sLimitPropertyName = ::rtl::math::isSignBitSet( nExternalValue ) + ? _rMinValueName : _rMaxValueName; + if ( _rxProperties.is() ) + _rxProperties->getPropertyValue( sLimitPropertyName ) >>= nControlValue; + } + else + { + nControlValue = (sal_Int32)::rtl::math::round( nExternalValue ); + } + } + else + { + if ( _rxProperties.is() ) + _rxProperties->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScrollValueMin" ) ) ) >>= nControlValue; + } + } + + return makeAny( nControlValue ); + } + + //-------------------------------------------------------------------- + Any translateControlIntToExternalDoubleValue( const Any& _rControlIntValue ) + { + Any aExternalDoubleValue; + sal_Int32 nScrollValue = 0; + if ( _rControlIntValue >>= nScrollValue ) + aExternalDoubleValue <<= (double)nScrollValue; + else + { + OSL_ENSURE( sal_False, "translateControlIntToExternalDoubleValue: no integer scroll value!" ); + // aExternalDoubleValue is void here, which is okay for this purpose ... + } + + return aExternalDoubleValue; + } + + //==================================================================== + //= OScrollBarModel + //==================================================================== + //-------------------------------------------------------------------- + DBG_NAME( OScrollBarModel ) + //-------------------------------------------------------------------- + OScrollBarModel::OScrollBarModel( const Reference& _rxFactory ) + :OBoundControlModel( _rxFactory, VCL_CONTROLMODEL_SCROLLBAR, VCL_CONTROL_SCROLLBAR, sal_True, sal_True ) + ,m_nDefaultScrollValue( 0 ) + { + DBG_CTOR( OScrollBarModel, NULL ); + + m_nClassId = FormComponentType::SCROLLBAR; + initValueProperty( PROPERTY_SCROLL_VALUE, PROPERTY_ID_SCROLL_VALUE ); + } + + //-------------------------------------------------------------------- + OScrollBarModel::OScrollBarModel( const OScrollBarModel* _pOriginal, const Reference< XMultiServiceFactory >& _rxFactory ) + :OBoundControlModel( _pOriginal, _rxFactory ) + { + DBG_CTOR( OScrollBarModel, NULL ); + m_nDefaultScrollValue = _pOriginal->m_nDefaultScrollValue; + } + + //-------------------------------------------------------------------- + OScrollBarModel::~OScrollBarModel( ) + { + DBG_DTOR( OScrollBarModel, NULL ); + } + + //-------------------------------------------------------------------- + IMPLEMENT_SERVICE_REGISTRATION_1( OScrollBarModel, OControlModel, FRM_SUN_COMPONENT_SCROLLBAR ) + // note that we're passing OControlModel as "base class". This is because + // OBoundControlModel, our real base class, claims to support the DataAwareControlModel + // service, which isn't really true for us. We only derive from this class + // to benefit from the functionality for binding to spreadsheet cells + + //------------------------------------------------------------------------------ + IMPLEMENT_DEFAULT_CLONING( OScrollBarModel ) + + //------------------------------------------------------------------------------ + void SAL_CALL OScrollBarModel::disposing() + { + OBoundControlModel::disposing(); + } + + //-------------------------------------------------------------------- + Reference< XPropertySetInfo > SAL_CALL OScrollBarModel::getPropertySetInfo() throw(RuntimeException) + { + return Reference< XPropertySetInfo >( createPropertySetInfo( getInfoHelper() ) ); + } + + //-------------------------------------------------------------------- + cppu::IPropertyArrayHelper& OScrollBarModel::getInfoHelper() + { + return *const_cast< OScrollBarModel* >( this )->getArrayHelper(); + } + + //-------------------------------------------------------------------- + void OScrollBarModel::fillProperties( Sequence< Property >& _rProps, Sequence< Property >& _rAggregateProps ) const + { + FRM_BEGIN_PROP_HELPER( 6 ) + DECL_PROP2( CLASSID, sal_Int16, READONLY, TRANSIENT ); + DECL_PROP1( DEFAULT_SCROLL_VALUE, sal_Int32, BOUND ); + DECL_PROP1( NAME, ::rtl::OUString, BOUND ); + DECL_PROP1( TABINDEX, sal_Int16, BOUND ); + DECL_PROP1( TAG, ::rtl::OUString, BOUND ); + DECL_PROP2( CONTROLSOURCEPROPERTY,::rtl::OUString, READONLY, TRANSIENT ); + FRM_END_PROP_HELPER(); + } + + //------------------------------------------------------------------------------ + void OScrollBarModel::getFastPropertyValue( Any& _rValue, sal_Int32 _nHandle ) const + { + switch ( _nHandle ) + { + case PROPERTY_ID_DEFAULT_SCROLL_VALUE: + _rValue <<= m_nDefaultScrollValue; + break; + + default: + OBoundControlModel::getFastPropertyValue( _rValue, _nHandle ); + } + } + + //------------------------------------------------------------------------------ + void OScrollBarModel::setFastPropertyValue_NoBroadcast( sal_Int32 _nHandle, const Any& _rValue ) throw ( Exception ) + { + switch ( _nHandle ) + { + case PROPERTY_ID_DEFAULT_SCROLL_VALUE: + OSL_VERIFY( _rValue >>= m_nDefaultScrollValue ); + resetNoBroadcast(); + break; + + default: + OBoundControlModel::setFastPropertyValue_NoBroadcast( _nHandle, _rValue ); + } + } + + //------------------------------------------------------------------------------ + sal_Bool OScrollBarModel::convertFastPropertyValue( + Any& _rConvertedValue, Any& _rOldValue, sal_Int32 _nHandle, const Any& _rValue ) + throw ( IllegalArgumentException ) + { + sal_Bool bModified( sal_False ); + switch ( _nHandle ) + { + case PROPERTY_ID_DEFAULT_SCROLL_VALUE: + bModified = tryPropertyValue( _rConvertedValue, _rOldValue, _rValue, m_nDefaultScrollValue ); + break; + + default: + bModified = OBoundControlModel::convertFastPropertyValue( _rConvertedValue, _rOldValue, _nHandle, _rValue ); + break; + } + return bModified; + } + + //-------------------------------------------------------------------- + Any OScrollBarModel::getPropertyDefaultByHandle( sal_Int32 _nHandle ) const + { + Any aReturn; + + switch ( _nHandle ) + { + case PROPERTY_ID_DEFAULT_SCROLL_VALUE: + aReturn <<= (sal_Int32)0; + break; + + default: + aReturn = OBoundControlModel::getPropertyDefaultByHandle( _nHandle ); + break; + } + + return aReturn; + } + + //------------------------------------------------------------------------------ + Any OScrollBarModel::translateDbColumnToControlValue( ) + { + OSL_ENSURE( sal_False, "OScrollBarModel::commitControlValueToDbColumn: never to be called (we're not bound)!" ); + return Any(); + } + + //------------------------------------------------------------------------------ + sal_Bool OScrollBarModel::commitControlValueToDbColumn( bool _bPostReset ) + { + OSL_ENSURE( sal_False, "OScrollBarModel::commitControlValueToDbColumn: never to be called (we're not bound)!" ); + return sal_True; + } + + //------------------------------------------------------------------------------ + Any OScrollBarModel::getDefaultForReset() const + { + return makeAny( (sal_Int32)m_nDefaultScrollValue ); + } + + //-------------------------------------------------------------------- + ::rtl::OUString SAL_CALL OScrollBarModel::getServiceName() throw( RuntimeException ) + { + return FRM_SUN_COMPONENT_SCROLLBAR; + } + + //-------------------------------------------------------------------- + void SAL_CALL OScrollBarModel::write( const Reference< XObjectOutputStream >& _rxOutStream ) + throw( IOException, RuntimeException ) + { + OBoundControlModel::write( _rxOutStream ); + ::osl::MutexGuard aGuard( m_aMutex ); + + OStreamSection aSection( Reference< XDataOutputStream >( _rxOutStream, UNO_QUERY ) ); + + // version + _rxOutStream->writeShort( 0x0001 ); + + // properties + _rxOutStream << m_nDefaultScrollValue; + writeHelpTextCompatibly( _rxOutStream ); + } + + //-------------------------------------------------------------------- + void SAL_CALL OScrollBarModel::read( const Reference< XObjectInputStream>& _rxInStream ) throw( IOException, RuntimeException ) + { + OBoundControlModel::read( _rxInStream ); + ::osl::MutexGuard aGuard( m_aMutex ); + + // version + { + OStreamSection aSection( Reference< XDataInputStream >( _rxInStream, UNO_QUERY ) ); + + sal_uInt16 nVersion = _rxInStream->readShort(); + if ( nVersion == 0x0001 ) + { + _rxInStream >> m_nDefaultScrollValue; + readHelpTextCompatibly( _rxInStream ); + } + else + defaultCommonProperties(); + + // here, everything in the stream section which is left will be skipped + } + } + + //-------------------------------------------------------------------- + Any OScrollBarModel::translateExternalValueToControlValue( ) + { + return translateExternalDoubleToControlIntValue( m_xExternalBinding, m_xAggregateSet, + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScrollValueMin" ) ), + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScrollValueMax" ) ) ); + } + + //-------------------------------------------------------------------- + Any OScrollBarModel::translateControlValueToExternalValue( ) + { + // by definition, the base class simply obtains the property value + return translateControlIntToExternalDoubleValue( OBoundControlModel::translateControlValueToExternalValue() ); + } + + //-------------------------------------------------------------------- + sal_Bool OScrollBarModel::approveValueBinding( const Reference< XValueBinding >& _rxBinding ) + { + OSL_PRECOND( _rxBinding.is(), "OScrollBarModel::approveValueBinding: invalid binding!" ); + + // only strings are accepted for simplicity + return _rxBinding.is() + && _rxBinding->supportsType( ::getCppuType( static_cast< double* >( NULL ) ) ); + } + +//........................................................................ +} // namespace frm +//........................................................................