/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /* * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/. */ #include "vbamenus.hxx" #include "vbamenu.hxx" #include using namespace com::sun::star; using namespace ooo::vba; typedef ::cppu::WeakImplHelper1< container::XEnumeration > MenuEnumeration_BASE; class MenuEnumeration : public MenuEnumeration_BASE { uno::Reference< XHelperInterface > m_xParent; uno::Reference< uno::XComponentContext > m_xContext; uno::Reference< container::XEnumeration > m_xEnumeration; public: MenuEnumeration( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XEnumeration >& xEnumeration) throw ( uno::RuntimeException ) : m_xParent( xParent ), m_xContext( xContext ), m_xEnumeration( xEnumeration ) { } virtual sal_Bool SAL_CALL hasMoreElements() throw ( uno::RuntimeException, std::exception ) SAL_OVERRIDE { return m_xEnumeration->hasMoreElements(); } virtual uno::Any SAL_CALL nextElement() throw ( container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException, std::exception ) SAL_OVERRIDE { // FIXME: should be add menu if( hasMoreElements() ) { uno::Reference< XCommandBarControl > xCommandBarControl( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW ); if( xCommandBarControl->getType() == office::MsoControlType::msoControlPopup ) { uno::Reference< excel::XMenu > xMenu( new ScVbaMenu( m_xParent, m_xContext, xCommandBarControl ) ); return uno::makeAny( xMenu ); } nextElement(); } else throw container::NoSuchElementException(); return uno::Any(); } }; ScVbaMenus::ScVbaMenus( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< XCommandBarControls >& xCommandBarControls ) throw ( uno::RuntimeException ) : Menus_BASE( xParent, xContext, uno::Reference< container::XIndexAccess>() ), m_xCommandBarControls( xCommandBarControls ) { } // XEnumerationAccess uno::Type SAL_CALL ScVbaMenus::getElementType() throw ( uno::RuntimeException ) { return cppu::UnoType::get(); } uno::Reference< container::XEnumeration > ScVbaMenus::createEnumeration() throw ( uno::RuntimeException ) { uno::Reference< container::XEnumerationAccess > xEnumAccess( m_xCommandBarControls, uno::UNO_QUERY_THROW ); return uno::Reference< container::XEnumeration >( new MenuEnumeration( this, mxContext, xEnumAccess->createEnumeration() ) ); } uno::Any ScVbaMenus::createCollectionObject( const uno::Any& aSource ) { // make no sense return aSource; } sal_Int32 SAL_CALL ScVbaMenus::getCount() throw(css::uno::RuntimeException) { // FIXME: should check if it is a popup menu return m_xCommandBarControls->getCount(); } // ScVbaCollectionBaseImpl uno::Any SAL_CALL ScVbaMenus::Item( const uno::Any& aIndex, const uno::Any& /*aIndex2*/ ) throw( uno::RuntimeException ) { uno::Reference< XCommandBarControl > xCommandBarControl( m_xCommandBarControls->Item( aIndex, uno::Any() ), uno::UNO_QUERY_THROW ); if( xCommandBarControl->getType() != office::MsoControlType::msoControlPopup ) throw uno::RuntimeException(); return uno::makeAny( uno::Reference< excel::XMenu > ( new ScVbaMenu( this, mxContext, xCommandBarControl ) ) ); } uno::Reference< excel::XMenu > SAL_CALL ScVbaMenus::Add( const OUString& Caption, const css::uno::Any& Before, const css::uno::Any& Restore ) throw (css::script::BasicErrorException, css::uno::RuntimeException, std::exception) { sal_Int32 nType = office::MsoControlType::msoControlPopup; uno::Reference< XCommandBarControl > xCommandBarControl = m_xCommandBarControls->Add( uno::makeAny( nType ), uno::Any(), uno::Any(), Before, Restore ); xCommandBarControl->setCaption( Caption ); return uno::Reference< excel::XMenu >( new ScVbaMenu( this, mxContext, xCommandBarControl ) ); } // XHelperInterface OUString ScVbaMenus::getServiceImplName() { return OUString("ScVbaMenus"); } uno::Sequence ScVbaMenus::getServiceNames() { static uno::Sequence< OUString > aServiceNames; if ( aServiceNames.getLength() == 0 ) { aServiceNames.realloc( 1 ); aServiceNames[ 0 ] = "ooo.vba.excel.Menus"; } return aServiceNames; } /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ distro/collabora/lov-6.1'>distro/collabora/lov-6.1 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
AgeCommit message (Expand)Author
2014-11-16sal_uInt16 to more proper integer types, make some constificationMatteo Casalin
2014-08-12Refactored IDocumentLayoutAccess out of SwDoc.Valentin Kettner
2014-06-30Called C++ object pointer is nullCaolán McNamara
2014-06-24new compilerplugin returnbyrefNoel Grandin
2014-04-30sw: sal_Bool->boolNoel Grandin
2014-04-21remove comments why a file gets includedThomas Arnhold
2014-03-31sw: unused includes in layouterMiklos Vajna
2014-02-15fdo#62475 - remove visual noisePhilipp Riemer
2012-11-30re-base on ALv2 code. Includes:Michael Meeks
2012-11-27sal_Bool to boolTakeshi Abe
2012-06-25Convert methods in ftnbos.hxx from Svptrarr to std::vectorNoel Grandin
2012-03-22n#750258: removed strange non-wrapping conditionCédric Bosdonnat
2012-01-21Removed some unused parameters; added SAL_UNUSED_PARAMETER.Stephan Bergmann
2011-11-27remove include of pch header from swNorbert Thiebaud