1 /*************************************************************************
3 * OpenOffice.org - a multi-platform office productivity suite
9 * last change: $Author$ $Date$
11 * The Contents of this file are made available subject to
12 * the terms of GNU Lesser General Public License Version 2.1.
15 * GNU Lesser General Public License Version 2.1
16 * =============================================
17 * Copyright 2005 by Sun Microsystems, Inc.
18 * 901 San Antonio Road, Palo Alto, CA 94303, USA
20 * This library is free software; you can redistribute it and/or
21 * modify it under the terms of the GNU Lesser General Public
22 * License version 2.1, as published by the Free Software Foundation.
24 * This library is distributed in the hope that it will be useful,
25 * but WITHOUT ANY WARRANTY; without even the implied warranty of
26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
27 * Lesser General Public License for more details.
29 * You should have received a copy of the GNU Lesser General Public
30 * License along with this library; if not, write to the Free Software
31 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
34 ************************************************************************/
35 #include "vbaspinbutton.hxx"
38 using namespace com::sun::star
;
39 using namespace ooo::vba
;
42 const static rtl::OUString
ORIENTATION( RTL_CONSTASCII_USTRINGPARAM("Orientation") );
43 const static rtl::OUString
SPINVALUE( RTL_CONSTASCII_USTRINGPARAM("SpinValue") );
44 const static rtl::OUString
SPINMAX( RTL_CONSTASCII_USTRINGPARAM("SpinValueMax") );
45 const static rtl::OUString
SPINMIN( RTL_CONSTASCII_USTRINGPARAM("SpinValueMin") );
47 ScVbaSpinButton::ScVbaSpinButton( const css::uno::Reference
< ov::XHelperInterface
>& xParent
, const uno::Reference
< uno::XComponentContext
>& xContext
, const uno::Reference
< uno::XInterface
>& xControl
, const uno::Reference
< frame::XModel
>& xModel
, AbstractGeometryAttributes
* pGeomHelper
) : SpinButtonImpl_BASE( xParent
, xContext
, xControl
, xModel
, pGeomHelper
)
53 ScVbaSpinButton::getValue() throw (css::uno::RuntimeException
)
55 return m_xProps
->getPropertyValue( SPINVALUE
);
59 ScVbaSpinButton::setValue( const uno::Any
& _value
) throw (::com::sun::star::uno::RuntimeException
)
61 m_xProps
->setPropertyValue( SPINVALUE
, _value
);
65 ScVbaSpinButton::getMax() throw (uno::RuntimeException
)
68 m_xProps
->getPropertyValue( SPINMAX
) >>= nMax
;
73 ScVbaSpinButton::setMax( sal_Int32 nVal
) throw (uno::RuntimeException
)
75 m_xProps
->setPropertyValue( SPINMAX
, uno::makeAny( nVal
) );
79 ScVbaSpinButton::getMin() throw (uno::RuntimeException
)
82 m_xProps
->getPropertyValue( SPINMIN
) >>= nVal
;
87 ScVbaSpinButton::setMin( sal_Int32 nVal
) throw (uno::RuntimeException
)
89 m_xProps
->setPropertyValue( SPINMIN
, uno::makeAny( nVal
) );
93 ScVbaSpinButton::getServiceImplName()
95 static rtl::OUString
sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaSpinButton") );
99 uno::Sequence
< rtl::OUString
>
100 ScVbaSpinButton::getServiceNames()
102 static uno::Sequence
< rtl::OUString
> aServiceNames
;
103 if ( aServiceNames
.getLength() == 0 )
105 aServiceNames
.realloc( 1 );
106 aServiceNames
[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Frame" ) );
108 return aServiceNames
;