1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XEnumerationAccess.hpp>
25*b1cdbd2cSJim Jagielski #include <com/sun/star/drawing/XControlShape.hpp>
26*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XNamed.hpp>
27*b1cdbd2cSJim Jagielski #include <ooo/vba/excel/XOLEObject.hpp>
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielski #include "vbaoleobject.hxx"
30*b1cdbd2cSJim Jagielski #include "vbaoleobjects.hxx"
31*b1cdbd2cSJim Jagielski
32*b1cdbd2cSJim Jagielski using namespace com::sun::star;
33*b1cdbd2cSJim Jagielski using namespace ooo::vba;
34*b1cdbd2cSJim Jagielski
35*b1cdbd2cSJim Jagielski typedef ::cppu::WeakImplHelper1< container::XIndexAccess > XIndexAccess_BASE;
36*b1cdbd2cSJim Jagielski
37*b1cdbd2cSJim Jagielski class IndexAccessWrapper : public XIndexAccess_BASE
38*b1cdbd2cSJim Jagielski {
39*b1cdbd2cSJim Jagielski typedef std::vector< uno::Reference< drawing::XControlShape > > OLEObjects;
40*b1cdbd2cSJim Jagielski OLEObjects vObjects;
41*b1cdbd2cSJim Jagielski public:
IndexAccessWrapper(const uno::Reference<container::XIndexAccess> & xIndexAccess)42*b1cdbd2cSJim Jagielski IndexAccessWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess )
43*b1cdbd2cSJim Jagielski {
44*b1cdbd2cSJim Jagielski sal_Int32 nLen = xIndexAccess->getCount();
45*b1cdbd2cSJim Jagielski for ( sal_Int32 index = 0; index < nLen; ++index )
46*b1cdbd2cSJim Jagielski {
47*b1cdbd2cSJim Jagielski uno::Reference< drawing::XControlShape > xControlShape( xIndexAccess->getByIndex( index), uno::UNO_QUERY);
48*b1cdbd2cSJim Jagielski if ( xControlShape.is() )
49*b1cdbd2cSJim Jagielski vObjects.push_back( xControlShape );
50*b1cdbd2cSJim Jagielski }
51*b1cdbd2cSJim Jagielski }
52*b1cdbd2cSJim Jagielski
getCount()53*b1cdbd2cSJim Jagielski virtual ::sal_Int32 SAL_CALL getCount() throw (uno::RuntimeException)
54*b1cdbd2cSJim Jagielski {
55*b1cdbd2cSJim Jagielski return vObjects.size();
56*b1cdbd2cSJim Jagielski }
57*b1cdbd2cSJim Jagielski
getByIndex(::sal_Int32 Index)58*b1cdbd2cSJim Jagielski virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException)
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski if ( Index < 0 || Index >= getCount() )
61*b1cdbd2cSJim Jagielski throw lang::IndexOutOfBoundsException();
62*b1cdbd2cSJim Jagielski return uno::makeAny( vObjects[ Index ] );
63*b1cdbd2cSJim Jagielski }
64*b1cdbd2cSJim Jagielski
65*b1cdbd2cSJim Jagielski // Methods XElementAcess
getElementType()66*b1cdbd2cSJim Jagielski virtual uno::Type SAL_CALL getElementType() throw (uno::RuntimeException)
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski return drawing::XControlShape::static_type(0);
69*b1cdbd2cSJim Jagielski }
70*b1cdbd2cSJim Jagielski
hasElements()71*b1cdbd2cSJim Jagielski virtual ::sal_Bool SAL_CALL hasElements() throw (uno::RuntimeException)
72*b1cdbd2cSJim Jagielski {
73*b1cdbd2cSJim Jagielski return ( getCount() > 0 );
74*b1cdbd2cSJim Jagielski }
75*b1cdbd2cSJim Jagielski
76*b1cdbd2cSJim Jagielski };
77*b1cdbd2cSJim Jagielski
78*b1cdbd2cSJim Jagielski class EnumWrapper : public EnumerationHelper_BASE
79*b1cdbd2cSJim Jagielski {
80*b1cdbd2cSJim Jagielski
81*b1cdbd2cSJim Jagielski uno::Reference<XHelperInterface > m_xParent;
82*b1cdbd2cSJim Jagielski uno::Reference<uno::XComponentContext > m_xContext;
83*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexAccess > m_xIndexAccess;
84*b1cdbd2cSJim Jagielski sal_Int32 nIndex;
85*b1cdbd2cSJim Jagielski public:
EnumWrapper(const uno::Reference<XHelperInterface> & xParent,const uno::Reference<uno::XComponentContext> & xContext,uno::Reference<container::XIndexAccess> & xIndexAccess)86*b1cdbd2cSJim Jagielski 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 ) {}
87*b1cdbd2cSJim Jagielski
hasMoreElements()88*b1cdbd2cSJim Jagielski virtual ::sal_Bool SAL_CALL hasMoreElements( ) throw (uno::RuntimeException)
89*b1cdbd2cSJim Jagielski {
90*b1cdbd2cSJim Jagielski return ( nIndex < m_xIndexAccess->getCount() );
91*b1cdbd2cSJim Jagielski }
92*b1cdbd2cSJim Jagielski
nextElement()93*b1cdbd2cSJim Jagielski virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
94*b1cdbd2cSJim Jagielski {
95*b1cdbd2cSJim Jagielski if ( nIndex < m_xIndexAccess->getCount() )
96*b1cdbd2cSJim Jagielski {
97*b1cdbd2cSJim Jagielski uno::Reference< drawing::XControlShape > xControlShape ( m_xIndexAccess->getByIndex( nIndex++ ), uno::UNO_QUERY_THROW );
98*b1cdbd2cSJim Jagielski return uno::makeAny( uno::Reference< ov::excel::XOLEObject >( new ScVbaOLEObject( m_xParent, m_xContext, xControlShape ) ) );
99*b1cdbd2cSJim Jagielski }
100*b1cdbd2cSJim Jagielski throw container::NoSuchElementException();
101*b1cdbd2cSJim Jagielski }
102*b1cdbd2cSJim Jagielski };
103*b1cdbd2cSJim Jagielski
oleObjectIndexWrapper(const uno::Reference<container::XIndexAccess> & xIndexAccess)104*b1cdbd2cSJim Jagielski uno::Reference< container::XIndexAccess > oleObjectIndexWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess )
105*b1cdbd2cSJim Jagielski {
106*b1cdbd2cSJim Jagielski return new IndexAccessWrapper( xIndexAccess );
107*b1cdbd2cSJim Jagielski }
108*b1cdbd2cSJim Jagielski
ScVbaOLEObjects(const uno::Reference<XHelperInterface> & xParent,const uno::Reference<uno::XComponentContext> & xContext,const css::uno::Reference<css::container::XIndexAccess> & xIndexAccess)109*b1cdbd2cSJim Jagielski ScVbaOLEObjects::ScVbaOLEObjects( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext,
110*b1cdbd2cSJim Jagielski const css::uno::Reference< css::container::XIndexAccess >& xIndexAccess )
111*b1cdbd2cSJim Jagielski : OLEObjectsImpl_BASE( xParent, xContext, oleObjectIndexWrapper( xIndexAccess ) )
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski }
114*b1cdbd2cSJim Jagielski uno::Reference< container::XEnumeration >
createEnumeration()115*b1cdbd2cSJim Jagielski ScVbaOLEObjects::createEnumeration() throw (uno::RuntimeException)
116*b1cdbd2cSJim Jagielski {
117*b1cdbd2cSJim Jagielski return new EnumWrapper( getParent(), mxContext, m_xIndexAccess );
118*b1cdbd2cSJim Jagielski }
119*b1cdbd2cSJim Jagielski
120*b1cdbd2cSJim Jagielski uno::Any
createCollectionObject(const css::uno::Any & aSource)121*b1cdbd2cSJim Jagielski ScVbaOLEObjects::createCollectionObject( const css::uno::Any& aSource )
122*b1cdbd2cSJim Jagielski {
123*b1cdbd2cSJim Jagielski if( aSource.hasValue() )
124*b1cdbd2cSJim Jagielski {
125*b1cdbd2cSJim Jagielski uno::Reference< drawing::XControlShape > xControlShape( aSource, uno::UNO_QUERY_THROW );
126*b1cdbd2cSJim Jagielski // parent of OLEObject is the same parent as the collection ( e.g. the sheet )
127*b1cdbd2cSJim Jagielski return uno::makeAny( uno::Reference< ov::excel::XOLEObject >( new ScVbaOLEObject( getParent(), mxContext, xControlShape ) ) );
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski return uno::Any();
130*b1cdbd2cSJim Jagielski }
131*b1cdbd2cSJim Jagielski
132*b1cdbd2cSJim Jagielski uno::Any
getItemByStringIndex(const rtl::OUString & sIndex)133*b1cdbd2cSJim Jagielski ScVbaOLEObjects::getItemByStringIndex( const rtl::OUString& sIndex ) throw (uno::RuntimeException)
134*b1cdbd2cSJim Jagielski {
135*b1cdbd2cSJim Jagielski try
136*b1cdbd2cSJim Jagielski {
137*b1cdbd2cSJim Jagielski return OLEObjectsImpl_BASE::getItemByStringIndex( sIndex );
138*b1cdbd2cSJim Jagielski }
139*b1cdbd2cSJim Jagielski catch( uno::RuntimeException )
140*b1cdbd2cSJim Jagielski {
141*b1cdbd2cSJim Jagielski uno::Reference< container::XIndexAccess > xIndexAccess( m_xIndexAccess, uno::UNO_QUERY_THROW );
142*b1cdbd2cSJim Jagielski sal_Int32 nCount = xIndexAccess->getCount();
143*b1cdbd2cSJim Jagielski for( int index = 0; index < nCount; index++ )
144*b1cdbd2cSJim Jagielski {
145*b1cdbd2cSJim Jagielski uno::Any aUnoObj = xIndexAccess->getByIndex( index );
146*b1cdbd2cSJim Jagielski uno::Reference< drawing::XControlShape > xControlShape( aUnoObj, uno::UNO_QUERY_THROW );
147*b1cdbd2cSJim Jagielski uno::Reference< awt::XControlModel > xControlModel( xControlShape->getControl() );
148*b1cdbd2cSJim Jagielski uno::Reference< container::XNamed > xNamed( xControlModel, uno::UNO_QUERY_THROW );
149*b1cdbd2cSJim Jagielski if( sIndex.equals( xNamed->getName() ))
150*b1cdbd2cSJim Jagielski {
151*b1cdbd2cSJim Jagielski return createCollectionObject( aUnoObj );
152*b1cdbd2cSJim Jagielski }
153*b1cdbd2cSJim Jagielski
154*b1cdbd2cSJim Jagielski }
155*b1cdbd2cSJim Jagielski return uno::Any();
156*b1cdbd2cSJim Jagielski }
157*b1cdbd2cSJim Jagielski }
158*b1cdbd2cSJim Jagielski
159*b1cdbd2cSJim Jagielski uno::Type
getElementType()160*b1cdbd2cSJim Jagielski ScVbaOLEObjects::getElementType() throw (uno::RuntimeException)
161*b1cdbd2cSJim Jagielski {
162*b1cdbd2cSJim Jagielski return ooo::vba::excel::XOLEObject::static_type(0);
163*b1cdbd2cSJim Jagielski }
164*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()165*b1cdbd2cSJim Jagielski ScVbaOLEObjects::getServiceImplName()
166*b1cdbd2cSJim Jagielski {
167*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaOLEObjects") );
168*b1cdbd2cSJim Jagielski return sImplName;
169*b1cdbd2cSJim Jagielski }
170*b1cdbd2cSJim Jagielski
171*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()172*b1cdbd2cSJim Jagielski ScVbaOLEObjects::getServiceNames()
173*b1cdbd2cSJim Jagielski {
174*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
175*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
176*b1cdbd2cSJim Jagielski {
177*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
178*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.OLEObjects" ) );
179*b1cdbd2cSJim Jagielski }
180*b1cdbd2cSJim Jagielski return aServiceNames;
181*b1cdbd2cSJim Jagielski }
182