1 /************************************************************************* 2 * 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * Copyright 2000, 2010 Oracle and/or its affiliates. 6 * 7 * OpenOffice.org - a multi-platform office productivity suite 8 * 9 * This file is part of OpenOffice.org. 10 * 11 * OpenOffice.org is free software: you can redistribute it and/or modify 12 * it under the terms of the GNU Lesser General Public License version 3 13 * only, as published by the Free Software Foundation. 14 * 15 * OpenOffice.org is distributed in the hope that it will be useful, 16 * but WITHOUT ANY WARRANTY; without even the implied warranty of 17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 * GNU Lesser General Public License version 3 for more details 19 * (a copy is included in the LICENSE file that accompanied this code). 20 * 21 * You should have received a copy of the GNU Lesser General Public License 22 * version 3 along with OpenOffice.org. If not, see 23 * <http://www.openoffice.org/license.html> 24 * for a copy of the LGPLv3 License. 25 * 26 ************************************************************************/ 27 #ifndef SC_VBA_COMMANDBARCONTROLS_HXX 28 #define SC_VBA_COMMANDBARCONTROLS_HXX 29 30 #include <ooo/vba/XCommandBarControls.hpp> 31 #include <com/sun/star/awt/XMenu.hpp> 32 #include <vbahelper/vbahelperinterface.hxx> 33 #include <vbahelper/vbacollectionimpl.hxx> 34 #include "vbacommandbarhelper.hxx" 35 36 typedef CollTestImplHelper< ov::XCommandBarControls > CommandBarControls_BASE; 37 38 class ScVbaCommandBarControls : public CommandBarControls_BASE 39 { 40 private: 41 VbaCommandBarHelperRef pCBarHelper; 42 css::uno::Reference< css::container::XIndexAccess > m_xBarSettings; 43 rtl::OUString m_sResourceUrl; 44 sal_Bool m_bIsMenu; 45 46 css::uno::Sequence< css::beans::PropertyValue > CreateMenuItemData( const rtl::OUString& sCommandURL, 47 const rtl::OUString& sHelpURL, 48 const rtl::OUString& sLabel, 49 sal_uInt16 nType, 50 const css::uno::Any& aSubMenu, 51 sal_Bool isVisible, 52 sal_Bool isEnabled ); 53 css::uno::Sequence< css::beans::PropertyValue > CreateToolbarItemData( const rtl::OUString& sCommandURL, const rtl::OUString& sHelpURL, const rtl::OUString& sLabel, sal_uInt16 nType, const css::uno::Any& aSubMenu, sal_Bool isVisible, sal_Int32 nStyle ); 54 55 public: 56 ScVbaCommandBarControls( const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext >& xContext, const css::uno::Reference< css::container::XIndexAccess >& xIndexAccess, VbaCommandBarHelperRef pHelper, const css::uno::Reference< css::container::XIndexAccess >& xBarSettings, const rtl::OUString& sResourceUrl ) throw( css::uno::RuntimeException ); 57 sal_Bool IsMenu(){ return m_bIsMenu; } 58 59 // XEnumerationAccess 60 virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException); 61 virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException); 62 virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource ); 63 64 // Methods 65 virtual css::uno::Any SAL_CALL Item( const css::uno::Any& Index, const css::uno::Any& /*Index2*/ ) throw (css::uno::RuntimeException); 66 virtual css::uno::Reference< ov::XCommandBarControl > SAL_CALL Add( const css::uno::Any& Type, const css::uno::Any& Id, const css::uno::Any& Parameter, const css::uno::Any& Before, const css::uno::Any& Temporary ) throw (css::script::BasicErrorException, css::uno::RuntimeException); 67 // XHelperInterface 68 virtual rtl::OUString& getServiceImplName(); 69 virtual css::uno::Sequence<rtl::OUString> getServiceNames(); 70 }; 71 72 class VbaDummyCommandBarControls : public CommandBarControls_BASE 73 { 74 public: 75 VbaDummyCommandBarControls( 76 const css::uno::Reference< ov::XHelperInterface >& xParent, 77 const css::uno::Reference< css::uno::XComponentContext >& xContext ) throw( css::uno::RuntimeException ); 78 79 // XEnumerationAccess 80 virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException); 81 virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException); 82 virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource ); 83 84 // Methods 85 virtual css::uno::Any SAL_CALL Item( const css::uno::Any& Index, const css::uno::Any& /*Index2*/ ) throw (css::uno::RuntimeException); 86 virtual css::uno::Reference< ov::XCommandBarControl > SAL_CALL Add( const css::uno::Any& Type, const css::uno::Any& Id, const css::uno::Any& Parameter, const css::uno::Any& Before, const css::uno::Any& Temporary ) throw (css::script::BasicErrorException, css::uno::RuntimeException); 87 // XHelperInterface 88 virtual rtl::OUString& getServiceImplName(); 89 virtual css::uno::Sequence<rtl::OUString> getServiceNames(); 90 }; 91 92 #endif//SC_VBA_COMMANDBARCONTROLS_HXX 93