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 #include "vbamultipage.hxx"
24*b1cdbd2cSJim Jagielski #include <ooo/vba/XCollection.hpp>
25*b1cdbd2cSJim Jagielski #include "vbapages.hxx"
26*b1cdbd2cSJim Jagielski #include <vector>
27*b1cdbd2cSJim Jagielski
28*b1cdbd2cSJim Jagielski using namespace com::sun::star;
29*b1cdbd2cSJim Jagielski using namespace ooo::vba;
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski // uno servicename com.sun.star.awt.UnoControlProgressBarMode
32*b1cdbd2cSJim Jagielski const rtl::OUString SVALUE( RTL_CONSTASCII_USTRINGPARAM("ProgressValue") );
33*b1cdbd2cSJim Jagielski const rtl::OUString SVALUEMAX( RTL_CONSTASCII_USTRINGPARAM("ProgressValueMax") );
34*b1cdbd2cSJim Jagielski const rtl::OUString SSTEP( RTL_CONSTASCII_USTRINGPARAM("Step") );
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski typedef cppu::WeakImplHelper1< container::XIndexAccess > PagesImpl_Base;
37*b1cdbd2cSJim Jagielski class PagesImpl : public PagesImpl_Base
38*b1cdbd2cSJim Jagielski {
39*b1cdbd2cSJim Jagielski sal_Int32 mnPages;
40*b1cdbd2cSJim Jagielski public:
PagesImpl(sal_Int32 nPages)41*b1cdbd2cSJim Jagielski PagesImpl( sal_Int32 nPages ) : mnPages( nPages ) {}
getCount()42*b1cdbd2cSJim Jagielski virtual ::sal_Int32 SAL_CALL getCount() throw (uno::RuntimeException) { return mnPages; }
getByIndex(::sal_Int32 Index)43*b1cdbd2cSJim Jagielski virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, ::uno::RuntimeException)
44*b1cdbd2cSJim Jagielski {
45*b1cdbd2cSJim Jagielski if ( Index < 0 || Index > mnPages )
46*b1cdbd2cSJim Jagielski throw lang::IndexOutOfBoundsException();
47*b1cdbd2cSJim Jagielski return uno::makeAny( uno::Reference< uno::XInterface >() );
48*b1cdbd2cSJim Jagielski }
49*b1cdbd2cSJim Jagielski // XElementAccess
getElementType()50*b1cdbd2cSJim Jagielski virtual uno::Type SAL_CALL getElementType() throw (uno::RuntimeException)
51*b1cdbd2cSJim Jagielski {
52*b1cdbd2cSJim Jagielski // no Pages object yet #FIXME
53*b1cdbd2cSJim Jagielski //return msforms::XPage::static_type(0);
54*b1cdbd2cSJim Jagielski return uno::XInterface::static_type(0);
55*b1cdbd2cSJim Jagielski }
hasElements()56*b1cdbd2cSJim Jagielski virtual ::sal_Bool SAL_CALL hasElements( ) throw (uno::RuntimeException)
57*b1cdbd2cSJim Jagielski {
58*b1cdbd2cSJim Jagielski return ( mnPages > 0 );
59*b1cdbd2cSJim Jagielski }
60*b1cdbd2cSJim Jagielski };
61*b1cdbd2cSJim Jagielski uno::Reference< container::XIndexAccess >
getPages(sal_Int32 nPages)62*b1cdbd2cSJim Jagielski ScVbaMultiPage::getPages( sal_Int32 nPages )
63*b1cdbd2cSJim Jagielski {
64*b1cdbd2cSJim Jagielski return new PagesImpl( nPages );
65*b1cdbd2cSJim Jagielski }
66*b1cdbd2cSJim Jagielski
ScVbaMultiPage(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,const uno::Reference<awt::XControl> & xDialog)67*b1cdbd2cSJim Jagielski ScVbaMultiPage::ScVbaMultiPage(
68*b1cdbd2cSJim Jagielski const uno::Reference< ov::XHelperInterface >& xParent,
69*b1cdbd2cSJim Jagielski const uno::Reference< uno::XComponentContext >& xContext,
70*b1cdbd2cSJim Jagielski const uno::Reference< uno::XInterface >& xControl,
71*b1cdbd2cSJim Jagielski const uno::Reference< frame::XModel >& xModel,
72*b1cdbd2cSJim Jagielski AbstractGeometryAttributes* pGeomHelper,
73*b1cdbd2cSJim Jagielski const uno::Reference< awt::XControl >& xDialog ) :
74*b1cdbd2cSJim Jagielski MultiPageImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper )
75*b1cdbd2cSJim Jagielski {
76*b1cdbd2cSJim Jagielski mxDialogProps.set( xDialog->getModel(), uno::UNO_QUERY_THROW );
77*b1cdbd2cSJim Jagielski // set dialog step to value of multipage pseudo model
78*b1cdbd2cSJim Jagielski setValue(getValue());
79*b1cdbd2cSJim Jagielski }
80*b1cdbd2cSJim Jagielski
81*b1cdbd2cSJim Jagielski // Attributes
82*b1cdbd2cSJim Jagielski sal_Int32 SAL_CALL
getValue()83*b1cdbd2cSJim Jagielski ScVbaMultiPage::getValue() throw (css::uno::RuntimeException)
84*b1cdbd2cSJim Jagielski {
85*b1cdbd2cSJim Jagielski sal_Int32 nValue = 0;
86*b1cdbd2cSJim Jagielski m_xProps->getPropertyValue( SVALUE ) >>= nValue;
87*b1cdbd2cSJim Jagielski return nValue;
88*b1cdbd2cSJim Jagielski }
89*b1cdbd2cSJim Jagielski
90*b1cdbd2cSJim Jagielski void SAL_CALL
setValue(const sal_Int32 _value)91*b1cdbd2cSJim Jagielski ScVbaMultiPage::setValue( const sal_Int32 _value ) throw (::com::sun::star::uno::RuntimeException)
92*b1cdbd2cSJim Jagielski {
93*b1cdbd2cSJim Jagielski // track change in dialog ( dialog value is 1 based, 0 is a special value )
94*b1cdbd2cSJim Jagielski m_xProps->setPropertyValue( SVALUE, uno::makeAny( _value ) );
95*b1cdbd2cSJim Jagielski mxDialogProps->setPropertyValue( SSTEP, uno::makeAny( _value + 1) );
96*b1cdbd2cSJim Jagielski }
97*b1cdbd2cSJim Jagielski
98*b1cdbd2cSJim Jagielski
99*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()100*b1cdbd2cSJim Jagielski ScVbaMultiPage::getServiceImplName()
101*b1cdbd2cSJim Jagielski {
102*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaMultiPage") );
103*b1cdbd2cSJim Jagielski return sImplName;
104*b1cdbd2cSJim Jagielski }
105*b1cdbd2cSJim Jagielski
106*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Pages(const uno::Any & index)107*b1cdbd2cSJim Jagielski ScVbaMultiPage::Pages( const uno::Any& index ) throw (uno::RuntimeException)
108*b1cdbd2cSJim Jagielski {
109*b1cdbd2cSJim Jagielski sal_Int32 nValue = 0;
110*b1cdbd2cSJim Jagielski m_xProps->getPropertyValue( SVALUEMAX ) >>= nValue;
111*b1cdbd2cSJim Jagielski uno::Reference< XCollection > xColl( new ScVbaPages( this, mxContext, getPages( nValue ) ) );
112*b1cdbd2cSJim Jagielski if ( !index.hasValue() )
113*b1cdbd2cSJim Jagielski return uno::makeAny( xColl );
114*b1cdbd2cSJim Jagielski return xColl->Item( uno::makeAny( index ), uno::Any() );
115*b1cdbd2cSJim Jagielski }
116*b1cdbd2cSJim Jagielski
117*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()118*b1cdbd2cSJim Jagielski ScVbaMultiPage::getServiceNames()
119*b1cdbd2cSJim Jagielski {
120*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
121*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
122*b1cdbd2cSJim Jagielski {
123*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
124*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.MultiPage" ) );
125*b1cdbd2cSJim Jagielski }
126*b1cdbd2cSJim Jagielski return aServiceNames;
127*b1cdbd2cSJim Jagielski }
128