vbahelper/source/msforms/vbaprogressbar.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 #include "vbaprogressbar.hxx"
  29 #include <vector>
  30
  31 using namespace com::sun::star;
  32 using namespace ooo::vba;
  33
  34 // uno servicename com.sun.star.awt.UnoControlProgressBarMode
  35 const rtl::OUString SVALUE( RTL_CONSTASCII_USTRINGPARAM("ProgressValue") );
  36
  37 ScVbaProgressBar::ScVbaProgressBar( const 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 ) : ProgressBarImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper )
  38 {
  39 }
  40
  41 // Attributes
  42 uno::Any SAL_CALL
  43 ScVbaProgressBar::getValue() throw (css::uno::RuntimeException)
  44 {
  45     return m_xProps->getPropertyValue( SVALUE );
  46 }
  47
  48 void SAL_CALL
  49 ScVbaProgressBar::setValue( const uno::Any& _value ) throw (::com::sun::star::uno::RuntimeException)
  50 {
  51     m_xProps->setPropertyValue( SVALUE,  _value );
  52 }
  53
  54 rtl::OUString
  55 ScVbaProgressBar::getServiceImplName()
  56 {
  57     return rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ScVbaProgressBar"));
  58 }
  59
  60 uno::Sequence< rtl::OUString >
  61 ScVbaProgressBar::getServiceNames()
  62 {
  63     static uno::Sequence< rtl::OUString > aServiceNames;
  64     if ( aServiceNames.getLength() == 0 )
  65     {
  66         aServiceNames.realloc( 1 );
  67         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Label" ) );
  68     }
  69     return aServiceNames;
  70 }
  71
  72 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */