office-gobmx/forms/source/component/scrollbar.cxx
Sebastian Spaeth ead7290449 Add vim/emacs modelines to all source files
Fixes #fdo30794
Based on bin/add-modelines script (originally posted in mail
1286706307.1871.1399280959@webmail.messagingengine.com)

Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de>
2010-10-13 10:57:23 +02:00

322 lines
13 KiB
C++

/* -*- 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.
*
************************************************************************/
// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_forms.hxx"
#include "scrollbar.hxx"
#include <comphelper/streamsection.hxx>
#include <comphelper/basicio.hxx>
#include <rtl/math.hxx>
//--------------------------------------------------------------------------
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 ::com::sun::star::form::binding;
//====================================================================
//= helper
//====================================================================
//--------------------------------------------------------------------
Any translateExternalDoubleToControlIntValue(
const Any& _rExternalValue, const Reference< XPropertySet >& _rxProperties,
const ::rtl::OUString& _rMinValueName, const ::rtl::OUString& _rMaxValueName )
{
OSL_ENSURE( _rxProperties.is(), "translateExternalDoubleToControlIntValue: no aggregate!?" );
sal_Int32 nControlValue( 0 );
double nExternalValue = 0;
if ( _rExternalValue >>= 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( _rMinValueName ) >>= 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, sal_False )
,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_2( OScrollBarModel, OControlModel, FRM_SUN_COMPONENT_SCROLLBAR, BINDABLE_INTEGER_VALUE_RANGE )
// 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();
}
//--------------------------------------------------------------------
void OScrollBarModel::describeFixedProperties( Sequence< Property >& _rProps ) const
{
BEGIN_DESCRIBE_PROPERTIES( 3, OControlModel )
DECL_PROP1( DEFAULT_SCROLL_VALUE, sal_Int32, BOUND );
DECL_PROP1( TABINDEX, sal_Int16, BOUND );
DECL_PROP2( CONTROLSOURCEPROPERTY,::rtl::OUString, READONLY, TRANSIENT );
END_DESCRIBE_PROPERTIES();
}
//------------------------------------------------------------------------------
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( const Any& _rExternalValue ) const
{
return translateExternalDoubleToControlIntValue( _rExternalValue, m_xAggregateSet,
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScrollValueMin" ) ),
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScrollValueMax" ) ) );
}
//--------------------------------------------------------------------
Any OScrollBarModel::translateControlValueToExternalValue( ) const
{
// by definition, the base class simply obtains the property value
return translateControlIntToExternalDoubleValue( OBoundControlModel::translateControlValueToExternalValue() );
}
//--------------------------------------------------------------------
Sequence< Type > OScrollBarModel::getSupportedBindingTypes()
{
return Sequence< Type >( &::getCppuType( static_cast< double* >( NULL ) ), 1 );
}
//........................................................................
} // namespace frm
//........................................................................
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */