1*e6ed5fbcSAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*e6ed5fbcSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*e6ed5fbcSAndrew Rist * or more contributor license agreements. See the NOTICE file 5*e6ed5fbcSAndrew Rist * distributed with this work for additional information 6*e6ed5fbcSAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*e6ed5fbcSAndrew Rist * to you under the Apache License, Version 2.0 (the 8*e6ed5fbcSAndrew Rist * "License"); you may not use this file except in compliance 9*e6ed5fbcSAndrew Rist * with the License. You may obtain a copy of the License at 10cdf0e10cSrcweir * 11*e6ed5fbcSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12cdf0e10cSrcweir * 13*e6ed5fbcSAndrew Rist * Unless required by applicable law or agreed to in writing, 14*e6ed5fbcSAndrew Rist * software distributed under the License is distributed on an 15*e6ed5fbcSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*e6ed5fbcSAndrew Rist * KIND, either express or implied. See the License for the 17*e6ed5fbcSAndrew Rist * specific language governing permissions and limitations 18*e6ed5fbcSAndrew Rist * under the License. 19cdf0e10cSrcweir * 20*e6ed5fbcSAndrew Rist *************************************************************/ 21*e6ed5fbcSAndrew Rist 22*e6ed5fbcSAndrew Rist 23cdf0e10cSrcweir #include "vbaprogressbar.hxx" 24cdf0e10cSrcweir #include <vector> 25cdf0e10cSrcweir 26cdf0e10cSrcweir using namespace com::sun::star; 27cdf0e10cSrcweir using namespace ooo::vba; 28cdf0e10cSrcweir 29cdf0e10cSrcweir // uno servicename com.sun.star.awt.UnoControlProgressBarMode 30cdf0e10cSrcweir const rtl::OUString SVALUE( RTL_CONSTASCII_USTRINGPARAM("ProgressValue") ); 31cdf0e10cSrcweir 32cdf0e10cSrcweir 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 ) 33cdf0e10cSrcweir { 34cdf0e10cSrcweir } 35cdf0e10cSrcweir 36cdf0e10cSrcweir // Attributes 37cdf0e10cSrcweir uno::Any SAL_CALL 38cdf0e10cSrcweir ScVbaProgressBar::getValue() throw (css::uno::RuntimeException) 39cdf0e10cSrcweir { 40cdf0e10cSrcweir return m_xProps->getPropertyValue( SVALUE ); 41cdf0e10cSrcweir } 42cdf0e10cSrcweir 43cdf0e10cSrcweir void SAL_CALL 44cdf0e10cSrcweir ScVbaProgressBar::setValue( const uno::Any& _value ) throw (::com::sun::star::uno::RuntimeException) 45cdf0e10cSrcweir { 46cdf0e10cSrcweir m_xProps->setPropertyValue( SVALUE, _value ); 47cdf0e10cSrcweir } 48cdf0e10cSrcweir 49cdf0e10cSrcweir rtl::OUString& 50cdf0e10cSrcweir ScVbaProgressBar::getServiceImplName() 51cdf0e10cSrcweir { 52cdf0e10cSrcweir static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaProgressBar") ); 53cdf0e10cSrcweir return sImplName; 54cdf0e10cSrcweir } 55cdf0e10cSrcweir 56cdf0e10cSrcweir uno::Sequence< rtl::OUString > 57cdf0e10cSrcweir ScVbaProgressBar::getServiceNames() 58cdf0e10cSrcweir { 59cdf0e10cSrcweir static uno::Sequence< rtl::OUString > aServiceNames; 60cdf0e10cSrcweir if ( aServiceNames.getLength() == 0 ) 61cdf0e10cSrcweir { 62cdf0e10cSrcweir aServiceNames.realloc( 1 ); 63cdf0e10cSrcweir aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Label" ) ); 64cdf0e10cSrcweir } 65cdf0e10cSrcweir return aServiceNames; 66cdf0e10cSrcweir } 67