1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir #include "vbabutton.hxx" 29*cdf0e10cSrcweir #include "vbanewfont.hxx" 30*cdf0e10cSrcweir 31*cdf0e10cSrcweir using namespace com::sun::star; 32*cdf0e10cSrcweir using namespace ooo::vba; 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir 35*cdf0e10cSrcweir const static rtl::OUString LABEL( RTL_CONSTASCII_USTRINGPARAM("Label") ); 36*cdf0e10cSrcweir ScVbaButton::ScVbaButton( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, AbstractGeometryAttributes* pGeomHelper ) : ButtonImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper ) 37*cdf0e10cSrcweir { 38*cdf0e10cSrcweir } 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir // Attributes 41*cdf0e10cSrcweir rtl::OUString SAL_CALL 42*cdf0e10cSrcweir ScVbaButton::getCaption() throw (css::uno::RuntimeException) 43*cdf0e10cSrcweir { 44*cdf0e10cSrcweir rtl::OUString Label; 45*cdf0e10cSrcweir m_xProps->getPropertyValue( LABEL ) >>= Label; 46*cdf0e10cSrcweir return Label; 47*cdf0e10cSrcweir } 48*cdf0e10cSrcweir 49*cdf0e10cSrcweir void SAL_CALL 50*cdf0e10cSrcweir ScVbaButton::setCaption( const rtl::OUString& _caption ) throw (::com::sun::star::uno::RuntimeException) 51*cdf0e10cSrcweir { 52*cdf0e10cSrcweir m_xProps->setPropertyValue( LABEL, uno::makeAny( _caption ) ); 53*cdf0e10cSrcweir } 54*cdf0e10cSrcweir 55*cdf0e10cSrcweir sal_Bool SAL_CALL ScVbaButton::getAutoSize() throw (uno::RuntimeException) 56*cdf0e10cSrcweir { 57*cdf0e10cSrcweir return sal_False; 58*cdf0e10cSrcweir } 59*cdf0e10cSrcweir 60*cdf0e10cSrcweir void SAL_CALL ScVbaButton::setAutoSize( sal_Bool /*bAutoSize*/ ) throw (uno::RuntimeException) 61*cdf0e10cSrcweir { 62*cdf0e10cSrcweir } 63*cdf0e10cSrcweir 64*cdf0e10cSrcweir sal_Bool SAL_CALL ScVbaButton::getCancel() throw (uno::RuntimeException) 65*cdf0e10cSrcweir { 66*cdf0e10cSrcweir return sal_False; 67*cdf0e10cSrcweir } 68*cdf0e10cSrcweir 69*cdf0e10cSrcweir void SAL_CALL ScVbaButton::setCancel( sal_Bool /*bCancel*/ ) throw (uno::RuntimeException) 70*cdf0e10cSrcweir { 71*cdf0e10cSrcweir } 72*cdf0e10cSrcweir 73*cdf0e10cSrcweir sal_Bool SAL_CALL ScVbaButton::getDefault() throw (uno::RuntimeException) 74*cdf0e10cSrcweir { 75*cdf0e10cSrcweir return sal_False; 76*cdf0e10cSrcweir } 77*cdf0e10cSrcweir 78*cdf0e10cSrcweir void SAL_CALL ScVbaButton::setDefault( sal_Bool /*bDefault*/ ) throw (uno::RuntimeException) 79*cdf0e10cSrcweir { 80*cdf0e10cSrcweir } 81*cdf0e10cSrcweir 82*cdf0e10cSrcweir sal_Int32 SAL_CALL ScVbaButton::getBackColor() throw (uno::RuntimeException) 83*cdf0e10cSrcweir { 84*cdf0e10cSrcweir return 0; 85*cdf0e10cSrcweir } 86*cdf0e10cSrcweir 87*cdf0e10cSrcweir void SAL_CALL ScVbaButton::setBackColor( sal_Int32 /*nBackColor*/ ) throw (uno::RuntimeException) 88*cdf0e10cSrcweir { 89*cdf0e10cSrcweir } 90*cdf0e10cSrcweir 91*cdf0e10cSrcweir sal_Int32 SAL_CALL ScVbaButton::getForeColor() throw (uno::RuntimeException) 92*cdf0e10cSrcweir { 93*cdf0e10cSrcweir return 0; 94*cdf0e10cSrcweir } 95*cdf0e10cSrcweir 96*cdf0e10cSrcweir void SAL_CALL ScVbaButton::setForeColor( sal_Int32 /*nForeColor*/ ) throw (uno::RuntimeException) 97*cdf0e10cSrcweir { 98*cdf0e10cSrcweir } 99*cdf0e10cSrcweir 100*cdf0e10cSrcweir uno::Reference< msforms::XNewFont > SAL_CALL ScVbaButton::getFont() throw (uno::RuntimeException) 101*cdf0e10cSrcweir { 102*cdf0e10cSrcweir return new VbaNewFont( this, mxContext, m_xProps ); 103*cdf0e10cSrcweir } 104*cdf0e10cSrcweir 105*cdf0e10cSrcweir rtl::OUString& 106*cdf0e10cSrcweir ScVbaButton::getServiceImplName() 107*cdf0e10cSrcweir { 108*cdf0e10cSrcweir static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaButton") ); 109*cdf0e10cSrcweir return sImplName; 110*cdf0e10cSrcweir } 111*cdf0e10cSrcweir 112*cdf0e10cSrcweir uno::Sequence< rtl::OUString > 113*cdf0e10cSrcweir ScVbaButton::getServiceNames() 114*cdf0e10cSrcweir { 115*cdf0e10cSrcweir static uno::Sequence< rtl::OUString > aServiceNames; 116*cdf0e10cSrcweir if ( aServiceNames.getLength() == 0 ) 117*cdf0e10cSrcweir { 118*cdf0e10cSrcweir aServiceNames.realloc( 1 ); 119*cdf0e10cSrcweir aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Button" ) ); 120*cdf0e10cSrcweir } 121*cdf0e10cSrcweir return aServiceNames; 122*cdf0e10cSrcweir } 123