INTEGRATION: CWS frmcontrols01 (1.1.2); FILE ADDED

2003/10/31 09:33:29 fs 1.1.2.7: #i21948# TabIndex property
2003/10/30 10:49:33 fs 1.1.2.6: #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:41 fs 1.1.2.5: #i21605# allow to bind the control to spreadsheet cells
2003/10/29 07:26:00 fs 1.1.2.4: #i21277# no real need for an own control component
2003/10/28 12:12:15 fs 1.1.2.3: resolved post-RESYNC problems
2003/10/28 09:51:17 fs 1.1.2.2: resolved post-RESYNC problems
2003/10/27 11:13:30 fs 1.1.2.1: #i21605# spin button form control/models

1 files changed, 329 insertions, 0 deletions

diff --git a/forms/source/component/spinbutton.cxx b/forms/source/component/spinbutton.cxx
new file mode 100644
index 000000000000..cd5984bb15b9
--- /dev/null
+++ b/forms/source/component/spinbutton.cxx
@@ -0,0 +1,329 @@
+/*************************************************************************
+ *
+ *  $RCSfile: spinbutton.cxx,v $
+ *
+ *  $Revision: 1.2 $
+ *
+ *  last change: $Author: kz $ $Date: 2003-12-11 12:30:46 $
+ *
+ *  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_SPINBUTTON_HXX
+#include "spinbutton.hxx"
+#endif
+
+#ifndef _COMPHELPER_STREAMSECTION_HXX_
+#include <comphelper/streamsection.hxx>
+#endif
+
+//--------------------------------------------------------------------------
+extern "C" void SAL_CALL createRegistryInfo_OSpinButtonModel()
+{
+    static ::frm::OMultiInstanceAutoRegistration< ::frm::OSpinButtonModel >   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;
+
+    //====================================================================
+    //= OSpinButtonModel
+    //====================================================================
+    // implemented elsewhere
+    Any translateExternalDoubleToControlIntValue(
+        const Reference< XValueBinding >& _rxBinding, const Reference< XPropertySet >& _rxProperties,
+        const ::rtl::OUString& _rMinValueName, const ::rtl::OUString& _rMaxValueName );
+    Any translateControlIntToExternalDoubleValue( const Any& _rControlIntValue );
+
+    //====================================================================
+    //= OSpinButtonModel
+    //====================================================================
+    //--------------------------------------------------------------------
+    DBG_NAME( OSpinButtonModel )
+    //--------------------------------------------------------------------
+    OSpinButtonModel::OSpinButtonModel( const Reference<XMultiServiceFactory>& _rxFactory )
+        :OBoundControlModel( _rxFactory, VCL_CONTROLMODEL_SPINBUTTON, VCL_CONTROL_SPINBUTTON, sal_True, sal_True )
+        ,m_nDefaultSpinValue( 0 )
+    {
+        DBG_CTOR( OSpinButtonModel, NULL );
+
+        m_nClassId = FormComponentType::SPINBUTTON;
+        initValueProperty( PROPERTY_SPIN_VALUE, PROPERTY_ID_SPIN_VALUE );
+    }
+
+    //--------------------------------------------------------------------
+    OSpinButtonModel::OSpinButtonModel( const OSpinButtonModel* _pOriginal, const Reference< XMultiServiceFactory >& _rxFactory )
+        :OBoundControlModel( _pOriginal, _rxFactory )
+    {
+        DBG_CTOR( OSpinButtonModel, NULL );
+        m_nDefaultSpinValue = _pOriginal->m_nDefaultSpinValue;
+    }
+
+    //--------------------------------------------------------------------
+    OSpinButtonModel::~OSpinButtonModel( )
+    {
+        DBG_DTOR( OSpinButtonModel, NULL );
+    }
+
+    //--------------------------------------------------------------------
+    IMPLEMENT_SERVICE_REGISTRATION_1( OSpinButtonModel, OControlModel, FRM_SUN_COMPONENT_SPINBUTTON )
+        // 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( OSpinButtonModel )
+
+    //------------------------------------------------------------------------------
+    void SAL_CALL OSpinButtonModel::disposing()
+    {
+        OBoundControlModel::disposing();
+    }
+
+    //--------------------------------------------------------------------
+    Reference< XPropertySetInfo > SAL_CALL OSpinButtonModel::getPropertySetInfo() throw(RuntimeException)
+    {
+        return Reference< XPropertySetInfo >( createPropertySetInfo( getInfoHelper() ) );
+    }
+
+    //--------------------------------------------------------------------
+    cppu::IPropertyArrayHelper& OSpinButtonModel::getInfoHelper()
+    {
+        return *const_cast< OSpinButtonModel* >( this )->getArrayHelper();
+    }
+
+    //--------------------------------------------------------------------
+    void OSpinButtonModel::fillProperties( Sequence< Property >& _rProps, Sequence< Property >& _rAggregateProps ) const
+    {
+        FRM_BEGIN_PROP_HELPER( 6 )
+            DECL_PROP2( CLASSID,              sal_Int16,       READONLY, TRANSIENT );
+            DECL_PROP1( DEFAULT_SPIN_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 OSpinButtonModel::getFastPropertyValue( Any& _rValue, sal_Int32 _nHandle ) const
+    {
+        switch ( _nHandle )
+        {
+            case PROPERTY_ID_DEFAULT_SPIN_VALUE:
+                _rValue <<= m_nDefaultSpinValue;
+                break;
+
+            default:
+                OBoundControlModel::getFastPropertyValue( _rValue, _nHandle );
+        }
+    }
+
+    //------------------------------------------------------------------------------
+    void OSpinButtonModel::setFastPropertyValue_NoBroadcast( sal_Int32 _nHandle, const Any& _rValue ) throw ( Exception )
+    {
+        switch ( _nHandle )
+        {
+            case PROPERTY_ID_DEFAULT_SPIN_VALUE:
+                OSL_VERIFY( _rValue >>= m_nDefaultSpinValue );
+                resetNoBroadcast();
+                break;
+
+            default:
+                OBoundControlModel::setFastPropertyValue_NoBroadcast( _nHandle, _rValue );
+        }
+    }
+
+    //------------------------------------------------------------------------------
+    sal_Bool OSpinButtonModel::convertFastPropertyValue(
+                Any& _rConvertedValue, Any& _rOldValue, sal_Int32 _nHandle, const Any& _rValue )
+                throw ( IllegalArgumentException )
+    {
+        sal_Bool bModified( sal_False );
+        switch ( _nHandle )
+        {
+            case PROPERTY_ID_DEFAULT_SPIN_VALUE:
+                bModified = tryPropertyValue( _rConvertedValue, _rOldValue, _rValue, m_nDefaultSpinValue );
+                break;
+
+            default:
+                bModified = OBoundControlModel::convertFastPropertyValue( _rConvertedValue, _rOldValue, _nHandle, _rValue );
+                break;
+        }
+        return bModified;
+    }
+
+    //--------------------------------------------------------------------
+    Any OSpinButtonModel::getPropertyDefaultByHandle( sal_Int32 _nHandle ) const
+    {
+        Any aReturn;
+
+        switch ( _nHandle )
+        {
+        case PROPERTY_ID_DEFAULT_SPIN_VALUE:
+            aReturn <<= (sal_Int32)0;
+            break;
+
+        default:
+            aReturn = OBoundControlModel::getPropertyDefaultByHandle( _nHandle );
+            break;
+        }
+
+        return aReturn;
+    }
+
+    //------------------------------------------------------------------------------
+    Any OSpinButtonModel::translateDbColumnToControlValue( )
+    {
+        OSL_ENSURE( sal_False, "OSpinButtonModel::commitControlValueToDbColumn: never to be called (we're not bound)!" );
+        return Any();
+    }
+
+    //------------------------------------------------------------------------------
+    sal_Bool OSpinButtonModel::commitControlValueToDbColumn( bool _bPostReset )
+    {
+        OSL_ENSURE( sal_False, "OSpinButtonModel::commitControlValueToDbColumn: never to be called (we're not bound)!" );
+        return sal_True;
+    }
+
+    //------------------------------------------------------------------------------
+    Any OSpinButtonModel::getDefaultForReset() const
+    {
+        return makeAny( (sal_Int32)m_nDefaultSpinValue );
+    }
+
+    //--------------------------------------------------------------------
+    ::rtl::OUString SAL_CALL OSpinButtonModel::getServiceName() throw( RuntimeException )
+    {
+        return FRM_SUN_COMPONENT_SPINBUTTON;
+    }
+
+    //--------------------------------------------------------------------
+    void SAL_CALL OSpinButtonModel::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_nDefaultSpinValue;
+        writeHelpTextCompatibly( _rxOutStream );
+    }
+
+    //--------------------------------------------------------------------
+    void SAL_CALL OSpinButtonModel::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_nDefaultSpinValue;
+                readHelpTextCompatibly( _rxInStream );
+            }
+            else
+                defaultCommonProperties();
+
+            // here, everything in the stream section which is left will be skipped
+        }
+    }
+
+    //--------------------------------------------------------------------
+    Any OSpinButtonModel::translateExternalValueToControlValue( )
+    {
+        return translateExternalDoubleToControlIntValue( m_xExternalBinding, m_xAggregateSet,
+            ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SpinValueMin" ) ),
+            ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SpinValueMax" ) ) );
+    }
+
+    //--------------------------------------------------------------------
+    Any OSpinButtonModel::translateControlValueToExternalValue( )
+    {
+        // by definition, the base class simply obtains the property value
+        return translateControlIntToExternalDoubleValue( OBoundControlModel::translateControlValueToExternalValue() );
+    }
+
+    //--------------------------------------------------------------------
+    sal_Bool OSpinButtonModel::approveValueBinding( const Reference< XValueBinding >& _rxBinding )
+    {
+        OSL_PRECOND( _rxBinding.is(), "OSpinButtonModel::approveValueBinding: invalid binding!" );
+
+        // only strings are accepted for simplicity
+        return  _rxBinding.is()
+            &&  _rxBinding->supportsType( ::getCppuType( static_cast< double* >( NULL ) ) );
+    }
+
+//........................................................................
+}   // namespace frm
+//........................................................................