vbahelper/source/msforms/vbabutton.cxx

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