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
This commit is contained in:
Kurt Zenker
parent
711fda0491
commit
9a4efbf614
1 changed files with 382 additions and 0 deletions
382
forms/source/component/scrollbar.cxx
Normal file
382
forms/source/component/scrollbar.cxx
Normal file
|
|
@ -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 <comphelper/streamsection.hxx>
|
||||
#endif
|
||||
|
||||
#ifndef INCLUDED_RTL_MATH_HXX
|
||||
#include <rtl/math.hxx>
|
||||
#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<XMultiServiceFactory>& _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
|
||||
//........................................................................
|
||||
Loading…
Reference in a new issue