sc/source/ui/vba/vbaoleobjects.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbaoleobjects.cxx,v $
  10  * $Revision: 1.3 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #include <com/sun/star/container/XEnumerationAccess.hpp>
  32 #include <com/sun/star/drawing/XControlShape.hpp>
  33 #include <com/sun/star/container/XNamed.hpp>
  34 #include <ooo/vba/excel/XOLEObject.hpp>
  35
  36 #include "vbaoleobject.hxx"
  37 #include "vbaoleobjects.hxx"
  38
  39 using namespace com::sun::star;
  40 using namespace ooo::vba;
  41
  42 typedef ::cppu::WeakImplHelper1< container::XIndexAccess > XIndexAccess_BASE;
  43
  44 class IndexAccessWrapper : public XIndexAccess_BASE
  45 {
  46 typedef std::vector< uno::Reference< drawing::XControlShape > > OLEObjects;
  47     OLEObjects vObjects;
  48 public:
  49         IndexAccessWrapper(  const uno::Reference< container::XIndexAccess >& xIndexAccess )
  50     {
  51         sal_Int32 nLen = xIndexAccess->getCount();
  52         for ( sal_Int32 index = 0; index < nLen; ++index )
  53         {
  54                 uno::Reference< drawing::XControlShape > xControlShape( xIndexAccess->getByIndex( index), uno::UNO_QUERY);
  55             if ( xControlShape.is() )
  56                 vObjects.push_back( xControlShape );
  57         }
  58     }
  59
  60     virtual ::sal_Int32 SAL_CALL getCount() throw (uno::RuntimeException)
  61     {
  62         return vObjects.size();
  63     }
  64
  65     virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException)
  66     {
  67         if ( Index < 0 || Index >= getCount() )
  68             throw lang::IndexOutOfBoundsException();
  69         return uno::makeAny( vObjects[ Index ] );
  70     }
  71
  72         // Methods XElementAcess
  73         virtual uno::Type SAL_CALL getElementType() throw (uno::RuntimeException)
  74         {
  75             return drawing::XControlShape::static_type(0);
  76         }
  77
  78         virtual ::sal_Bool SAL_CALL hasElements() throw (uno::RuntimeException)
  79         {
  80             return ( getCount() > 0 );
  81         }
  82
  83 };
  84
  85 class EnumWrapper : public EnumerationHelper_BASE
  86 {
  87
  88         uno::Reference<XHelperInterface > m_xParent;
  89         uno::Reference<uno::XComponentContext > m_xContext;
  90         uno::Reference<container::XIndexAccess > m_xIndexAccess;
  91         sal_Int32 nIndex;
  92 public:
  93         EnumWrapper(  const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, uno::Reference< container::XIndexAccess >& xIndexAccess ) :  m_xParent( xParent ), m_xContext( xContext), m_xIndexAccess( xIndexAccess ), nIndex( 0 ) {}
  94
  95         virtual ::sal_Bool SAL_CALL hasMoreElements(  ) throw (uno::RuntimeException)
  96         {
  97                 return ( nIndex < m_xIndexAccess->getCount() );
  98         }
  99
 100         virtual uno::Any SAL_CALL nextElement(  ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
 101         {
 102                 if ( nIndex < m_xIndexAccess->getCount() )
 103         {
 104             uno::Reference< drawing::XControlShape > xControlShape (  m_xIndexAccess->getByIndex( nIndex++ ), uno::UNO_QUERY_THROW );
 105                 return uno::makeAny( uno::Reference< ov::excel::XOLEObject >( new ScVbaOLEObject( m_xParent, m_xContext, xControlShape ) ) );
 106         }
 107                 throw container::NoSuchElementException();
 108         }
 109 };
 110
 111 uno::Reference< container::XIndexAccess > oleObjectIndexWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess )
 112 {
 113     return new IndexAccessWrapper( xIndexAccess );
 114 }
 115
 116 ScVbaOLEObjects::ScVbaOLEObjects( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext,
 117                 const css::uno::Reference< css::container::XIndexAccess >& xIndexAccess )
 118             : OLEObjectsImpl_BASE( xParent, xContext, oleObjectIndexWrapper( xIndexAccess  ) )
 119 {
 120 }
 121 uno::Reference< container::XEnumeration >
 122 ScVbaOLEObjects::createEnumeration() throw (uno::RuntimeException)
 123 {
 124     return new EnumWrapper( getParent(), mxContext, m_xIndexAccess );
 125 }
 126
 127 uno::Any
 128 ScVbaOLEObjects::createCollectionObject( const css::uno::Any& aSource )
 129 {
 130     if( aSource.hasValue() )
 131     {
 132         uno::Reference< drawing::XControlShape > xControlShape( aSource, uno::UNO_QUERY_THROW );
 133     // parent of OLEObject is the same parent as the collection ( e.g. the sheet )
 134         return uno::makeAny( uno::Reference< ov::excel::XOLEObject >( new ScVbaOLEObject( getParent(), mxContext, xControlShape ) ) );
 135     }
 136     return uno::Any();
 137 }
 138
 139 uno::Any
 140 ScVbaOLEObjects::getItemByStringIndex( const rtl::OUString& sIndex ) throw (uno::RuntimeException)
 141 {
 142     try
 143     {
 144         return OLEObjectsImpl_BASE::getItemByStringIndex( sIndex );
 145     }
 146     catch( uno::RuntimeException )
 147     {
 148         uno::Reference< container::XIndexAccess > xIndexAccess( m_xIndexAccess, uno::UNO_QUERY_THROW );
 149         sal_Int32 nCount = xIndexAccess->getCount();
 150         for( int index = 0; index < nCount; index++ )
 151         {
 152             uno::Any aUnoObj =  xIndexAccess->getByIndex( index );
 153             uno::Reference< drawing::XControlShape > xControlShape( aUnoObj, uno::UNO_QUERY_THROW );
 154             uno::Reference< awt::XControlModel > xControlModel( xControlShape->getControl() );
 155             uno::Reference< container::XNamed > xNamed( xControlModel, uno::UNO_QUERY_THROW );
 156             if( sIndex.equals( xNamed->getName() ))
 157             {
 158                 return createCollectionObject( aUnoObj );
 159             }
 160
 161         }
 162         return uno::Any();
 163     }
 164 }
 165
 166 uno::Type
 167 ScVbaOLEObjects::getElementType() throw (uno::RuntimeException)
 168 {
 169     return ooo::vba::excel::XOLEObject::static_type(0);
 170 }
 171 rtl::OUString&
 172 ScVbaOLEObjects::getServiceImplName()
 173 {
 174     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaOLEObjects") );
 175     return sImplName;
 176 }
 177
 178 uno::Sequence< rtl::OUString >
 179 ScVbaOLEObjects::getServiceNames()
 180 {
 181     static uno::Sequence< rtl::OUString > aServiceNames;
 182     if ( aServiceNames.getLength() == 0 )
 183     {
 184         aServiceNames.realloc( 1 );
 185         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.OLEObjects" ) );
 186     }
 187     return aServiceNames;
 188 }