LCOV - code coverage report
Current view: top level - vbahelper/source/msforms - vbacontrols.cxx (source / functions) Hit Total Coverage
Test: commit 10e77ab3ff6f4314137acd6e2702a6e5c1ce1fae Lines: 1 223 0.4 %
Date: 2014-11-03 Functions: 2 29 6.9 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
       2             : /*
       3             :  * This file is part of the LibreOffice project.
       4             :  *
       5             :  * This Source Code Form is subject to the terms of the Mozilla Public
       6             :  * License, v. 2.0. If a copy of the MPL was not distributed with this
       7             :  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
       8             :  *
       9             :  * This file incorporates work covered by the following license notice:
      10             :  *
      11             :  *   Licensed to the Apache Software Foundation (ASF) under one or more
      12             :  *   contributor license agreements. See the NOTICE file distributed
      13             :  *   with this work for additional information regarding copyright
      14             :  *   ownership. The ASF licenses this file to you under the Apache
      15             :  *   License, Version 2.0 (the "License"); you may not use this file
      16             :  *   except in compliance with the License. You may obtain a copy of
      17             :  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
      18             :  */
      19             : 
      20             : #include <com/sun/star/awt/XControl.hpp>
      21             : #include <com/sun/star/awt/XControlContainer.hpp>
      22             : #include <com/sun/star/awt/FontWeight.hpp>
      23             : #include <com/sun/star/awt/FontSlant.hpp>
      24             : #include <com/sun/star/awt/FontStrikeout.hpp>
      25             : #include <com/sun/star/awt/FontUnderline.hpp>
      26             : #include <com/sun/star/container/XNameContainer.hpp>
      27             : #include <com/sun/star/script/XInvocation.hpp>
      28             : #include <com/sun/star/lang/WrappedTargetException.hpp>
      29             : #include <com/sun/star/lang/WrappedTargetRuntimeException.hpp>
      30             : 
      31             : #include "vbacontrols.hxx"
      32             : #include "vbacontrol.hxx"
      33             : #include <cppuhelper/implbase2.hxx>
      34             : #include <ooo/vba/XControlProvider.hpp>
      35             : #include <boost/unordered_map.hpp>
      36             : 
      37             : using namespace com::sun::star;
      38             : using namespace ooo::vba;
      39             : 
      40             : 
      41             : typedef ::cppu::WeakImplHelper2< container::XNameAccess, container::XIndexAccess > ArrayWrapImpl;
      42             : 
      43             : typedef  boost::unordered_map< OUString, sal_Int32, OUStringHash,
      44             :     ::std::equal_to< OUString >  > ControlIndexMap;
      45             : typedef  std::vector< uno::Reference< awt::XControl > > ControlVec;
      46             : 
      47           0 : class ControlArrayWrapper : public ArrayWrapImpl
      48             : {
      49             :     uno::Reference< awt::XControlContainer > mxDialog;
      50             :     uno::Sequence< OUString > msNames;
      51             :     ControlVec mControls;
      52             :     ControlIndexMap mIndices;
      53             : 
      54             : private:
      55           0 :     void SetArrayElementTo( const uno::Reference< awt::XControl >& xCtrl, sal_Int32 nIndex = -1 )
      56             :     {
      57             :         // initialize the element with specified index to the control
      58           0 :         if ( xCtrl.is() )
      59             :         {
      60           0 :             if ( nIndex == -1 )
      61           0 :                 nIndex = msNames.getLength();
      62             : 
      63           0 :             if ( nIndex >= msNames.getLength() )
      64           0 :                 msNames.realloc( nIndex );
      65             : 
      66           0 :             msNames[ nIndex ] = getControlName( xCtrl );
      67           0 :             mControls.push_back( xCtrl );
      68           0 :             mIndices[ msNames[ nIndex ] ] = nIndex;
      69             :         }
      70           0 :     }
      71             :     void getNestedControls( ControlVec& vControls, uno::Reference< awt::XControlContainer >& xContainer )
      72             :     {
      73             :         uno::Sequence< uno::Reference< awt::XControl > > aControls = xContainer->getControls();
      74             :         const uno::Reference< awt::XControl >* pCtrl = aControls.getConstArray();
      75             :         const uno::Reference< awt::XControl >* pCtrlsEnd = pCtrl + aControls.getLength();
      76             :         for ( ; pCtrl < pCtrlsEnd; ++pCtrl )
      77             :         {
      78             :             uno::Reference< awt::XControlContainer > xC( *pCtrl, uno::UNO_QUERY );
      79             :             vControls.push_back( *pCtrl );
      80             :             if ( xC.is() )
      81             :                 getNestedControls( vControls, xC );
      82             :         }
      83             :     }
      84             : public:
      85           0 :     ControlArrayWrapper( const uno::Reference< awt::XControl >& xDialog )
      86           0 :     {
      87             :         try
      88             :         {
      89           0 :             mxDialog.set( xDialog, uno::UNO_QUERY_THROW );
      90           0 :             uno::Sequence< uno::Reference< awt::XControl > > sXControls = mxDialog->getControls();
      91             : 
      92           0 :             msNames.realloc( sXControls.getLength() );
      93           0 :             for ( sal_Int32 i = 0; i < sXControls.getLength(); ++i )
      94           0 :                 SetArrayElementTo( sXControls[ i ], i );
      95             :         }
      96           0 :         catch (const uno::Exception&)
      97             :         {
      98             :             // accept the case when the dialog already does not exist
      99             :             // in this case the wrapper should work in dummy mode
     100             :         }
     101           0 :     }
     102             : 
     103           0 :     static OUString getControlName( const uno::Reference< awt::XControl >& xCtrl )
     104             :     {
     105           0 :         if ( !xCtrl.is() )
     106           0 :             throw uno::RuntimeException();
     107             : 
     108           0 :         uno::Reference< beans::XPropertySet > xProp( xCtrl->getModel(), uno::UNO_QUERY_THROW );
     109           0 :         OUString sName;
     110           0 :         xProp->getPropertyValue( "Name" ) >>= sName;
     111           0 :         return sName;
     112             :     }
     113             : 
     114             : 
     115             :     // XElementAccess
     116           0 :     virtual uno::Type SAL_CALL getElementType(  ) throw (uno::RuntimeException, std::exception) SAL_OVERRIDE
     117             :     {
     118           0 :         return cppu::UnoType<awt::XControl>::get();
     119             :     }
     120             : 
     121           0 :     virtual sal_Bool SAL_CALL hasElements(  ) throw (uno::RuntimeException, std::exception) SAL_OVERRIDE
     122             :     {
     123           0 :         return ( !mControls.empty() );
     124             :     }
     125             : 
     126             :     // XNameAcess
     127           0 :     virtual uno::Any SAL_CALL getByName( const OUString& aName ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException, std::exception) SAL_OVERRIDE
     128             :     {
     129           0 :         if ( !hasByName( aName ) )
     130           0 :             throw container::NoSuchElementException();
     131           0 :         return getByIndex( mIndices[ aName ] );
     132             :     }
     133             : 
     134           0 :     virtual uno::Sequence< OUString > SAL_CALL getElementNames(  ) throw (uno::RuntimeException, std::exception) SAL_OVERRIDE
     135             :     {
     136           0 :         return msNames;
     137             :     }
     138             : 
     139           0 :     virtual sal_Bool SAL_CALL hasByName( const OUString& aName ) throw (css::uno::RuntimeException, std::exception) SAL_OVERRIDE
     140             :     {
     141           0 :         ControlIndexMap::iterator it = mIndices.find( aName );
     142           0 :         return it != mIndices.end();
     143             :     }
     144             : 
     145             :     // XElementAccess
     146           0 :     virtual ::sal_Int32 SAL_CALL getCount(  ) throw (css::uno::RuntimeException, std::exception) SAL_OVERRIDE
     147             :     {
     148           0 :         return mControls.size();
     149             :     }
     150             : 
     151           0 :     virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException, std::exception ) SAL_OVERRIDE
     152             :     {
     153           0 :         if ( Index < 0 || Index >= static_cast< sal_Int32 >( mControls.size() ) )
     154           0 :             throw lang::IndexOutOfBoundsException();
     155           0 :         return uno::makeAny( mControls[ Index ] );
     156             :     }
     157             : };
     158             : 
     159             : 
     160           0 : class ControlsEnumWrapper : public EnumerationHelper_BASE
     161             : {
     162             :     uno::Reference<XHelperInterface > m_xParent;
     163             :     uno::Reference<uno::XComponentContext > m_xContext;
     164             :     uno::Reference<container::XIndexAccess > m_xIndexAccess;
     165             :     uno::Reference<awt::XControl > m_xDlg;
     166             :     uno::Reference< frame::XModel > m_xModel;
     167             :     double mfOffsetX;
     168             :     double mfOffsetY;
     169             :     sal_Int32 nIndex;
     170             : 
     171             : public:
     172             : 
     173           0 :     ControlsEnumWrapper(
     174             :         const uno::Reference< XHelperInterface >& xParent,
     175             :         const uno::Reference< uno::XComponentContext >& xContext,
     176             :         const uno::Reference< container::XIndexAccess >& xIndexAccess,
     177             :         const uno::Reference< awt::XControl >& xDlg,
     178             :         const uno::Reference< frame::XModel >& xModel,
     179             :         double fOffsetX, double fOffsetY ) :
     180             :     m_xParent( xParent ),
     181             :     m_xContext( xContext),
     182             :     m_xIndexAccess( xIndexAccess ),
     183             :     m_xDlg( xDlg ),
     184             :     m_xModel( xModel ),
     185             :     mfOffsetX( fOffsetX ),
     186             :     mfOffsetY( fOffsetY ),
     187           0 :     nIndex( 0 ) {}
     188             : 
     189           0 :     virtual sal_Bool SAL_CALL hasMoreElements(  ) throw (uno::RuntimeException, std::exception) SAL_OVERRIDE
     190             :     {
     191           0 :         return ( nIndex < m_xIndexAccess->getCount() );
     192             :     }
     193             : 
     194           0 :     virtual uno::Any SAL_CALL nextElement(  ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException, std::exception) SAL_OVERRIDE
     195             :     {
     196           0 :         if ( nIndex < m_xIndexAccess->getCount() )
     197             :         {
     198           0 :             uno::Reference< awt::XControl > xControl;
     199           0 :             m_xIndexAccess->getByIndex( nIndex++ ) >>= xControl;
     200             : 
     201           0 :             uno::Reference< msforms::XControl > xVBAControl;
     202           0 :             if ( xControl.is() && m_xDlg.is() )
     203           0 :                 xVBAControl = ScVbaControlFactory::createUserformControl( m_xContext, xControl, m_xDlg, m_xModel, mfOffsetX, mfOffsetY );
     204           0 :             return uno::makeAny( xVBAControl );
     205             :         }
     206           0 :         throw container::NoSuchElementException();
     207             :     }
     208             : 
     209             : };
     210             : 
     211             : 
     212             : static uno::Reference<container::XIndexAccess >
     213           0 : lcl_controlsWrapper( const uno::Reference< awt::XControl >& xDlg )
     214             : {
     215           0 :     return new ControlArrayWrapper( xDlg );
     216             : }
     217             : 
     218           0 : ScVbaControls::ScVbaControls(
     219             :         const uno::Reference< XHelperInterface >& xParent,
     220             :         const uno::Reference< uno::XComponentContext >& xContext,
     221             :         const css::uno::Reference< awt::XControl >& xDialog,
     222             :         const uno::Reference< frame::XModel >& xModel,
     223             :         double fOffsetX, double fOffsetY ) :
     224             :     ControlsImpl_BASE( xParent, xContext, lcl_controlsWrapper( xDialog  ) ),
     225             :     mxDialog( xDialog ),
     226             :     mxModel( xModel ),
     227             :     mfOffsetX( fOffsetX ),
     228           0 :     mfOffsetY( fOffsetY )
     229             : {
     230           0 : }
     231             : 
     232             : uno::Reference< container::XEnumeration >
     233           0 : ScVbaControls::createEnumeration() throw (uno::RuntimeException)
     234             : {
     235           0 :     uno::Reference< container::XEnumeration > xEnum( new ControlsEnumWrapper( mxParent, mxContext, m_xIndexAccess, mxDialog, mxModel, mfOffsetX, mfOffsetY ) );
     236           0 :     if ( !xEnum.is() )
     237           0 :         throw uno::RuntimeException();
     238           0 :     return xEnum;
     239             : }
     240             : 
     241             : uno::Any
     242           0 : ScVbaControls::createCollectionObject( const css::uno::Any& aSource )
     243             : {
     244             :     // Create control from awt::XControl
     245           0 :     uno::Reference< awt::XControl > xControl( aSource, uno::UNO_QUERY_THROW );
     246           0 :     uno::Reference< msforms::XControl > xVBAControl = ScVbaControlFactory::createUserformControl( mxContext, xControl, mxDialog, mxModel, mfOffsetX, mfOffsetY );
     247           0 :     return uno::Any( xVBAControl );
     248             : }
     249             : 
     250             : void SAL_CALL
     251           0 : ScVbaControls::Move( double cx, double cy ) throw (uno::RuntimeException, std::exception)
     252             : {
     253           0 :     uno::Reference< container::XEnumeration > xEnum( createEnumeration() );
     254           0 :     while ( xEnum->hasMoreElements() )
     255             :     {
     256           0 :         uno::Reference< msforms::XControl > xControl( xEnum->nextElement(), uno::UNO_QUERY_THROW );
     257           0 :         xControl->setLeft( xControl->getLeft() + cx );
     258           0 :         xControl->setTop( xControl->getTop() + cy );
     259           0 :     }
     260           0 : }
     261             : 
     262           0 : uno::Any SAL_CALL ScVbaControls::Add( const uno::Any& Object, const uno::Any& StringKey, const uno::Any& /*Before*/, const uno::Any& /*After*/ )
     263             :     throw (uno::RuntimeException, std::exception)
     264             : {
     265           0 :     uno::Any aResult;
     266           0 :     OUString aComServiceName;
     267             : 
     268             :     try
     269             :     {
     270           0 :         if ( !mxDialog.is() )
     271           0 :             throw uno::RuntimeException();
     272             : 
     273           0 :         uno::Reference< awt::XControl > xNewControl;
     274           0 :         uno::Reference< lang::XMultiServiceFactory > xModelFactory( mxDialog->getModel(), uno::UNO_QUERY_THROW );
     275             : 
     276           0 :         uno::Reference< container::XNameContainer > xDialogContainer( xModelFactory, uno::UNO_QUERY_THROW );
     277             : 
     278           0 :         Object >>= aComServiceName;
     279             : 
     280             :         // TODO: Support Before and After?
     281           0 :         OUString aNewName;
     282           0 :         StringKey >>= aNewName;
     283           0 :         if ( aNewName.isEmpty() )
     284             :         {
     285           0 :             aNewName = aComServiceName;
     286           0 :             if ( aNewName.isEmpty() )
     287           0 :                 aNewName = "Control";
     288             : 
     289           0 :             sal_Int32 nInd = 0;
     290           0 :             while( xDialogContainer->hasByName( aNewName ) && (nInd < SAL_MAX_INT32) )
     291             :             {
     292           0 :                 aNewName = aComServiceName;
     293           0 :                 aNewName += OUString::number( nInd++ );
     294             :             }
     295             :         }
     296             : 
     297           0 :         double fDefWidth = 72.0, fDefHeight = 18.0;
     298           0 :         if ( !aComServiceName.isEmpty() )
     299             :         {
     300             :             // create a UNO control model based on the passed control type
     301           0 :             uno::Reference< awt::XControlModel > xNewModel;
     302           0 :             bool bFontSupport = false;
     303           0 :             bool bNativeAX = false;
     304           0 :             if( aComServiceName.equalsIgnoreAsciiCase( "Forms.CommandButton.1" ) )
     305             :             {
     306           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlButtonModel" ), uno::UNO_QUERY_THROW );
     307           0 :                 fDefWidth = 72.0; fDefHeight = 24.0;
     308           0 :                 bFontSupport = true;
     309             :             }
     310           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Label.1" ) )
     311             :             {
     312           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlFixedTextModel" ), uno::UNO_QUERY_THROW );
     313           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     314           0 :                 bFontSupport = true;
     315             :             }
     316           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Image.1" ) )
     317             :             {
     318           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlImageControlModel" ), uno::UNO_QUERY_THROW );
     319           0 :                 fDefWidth = 72.0; fDefHeight = 72.0;
     320             :             }
     321           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.CheckBox.1" ) )
     322             :             {
     323           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlCheckBoxModel" ), uno::UNO_QUERY_THROW );
     324           0 :                 fDefWidth = 108.0; fDefHeight = 18.0;
     325           0 :                 bFontSupport = true;
     326             :             }
     327           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.OptionButton.1" ) )
     328             :             {
     329           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlRadioButtonModel" ), uno::UNO_QUERY_THROW );
     330           0 :                 fDefWidth = 108.0; fDefHeight = 18.0;
     331           0 :                 bFontSupport = true;
     332             :             }
     333           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.TextBox.1" ) )
     334             :             {
     335           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlEditModel" ), uno::UNO_QUERY_THROW );
     336           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     337           0 :                 bFontSupport = true;
     338             :             }
     339           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ListBox.1" ) )
     340             :             {
     341           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlListBoxModel" ), uno::UNO_QUERY_THROW );
     342           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     343           0 :                 bFontSupport = true;
     344             :             }
     345           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ComboBox.1" ) )
     346             :             {
     347           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlComboBoxModel" ), uno::UNO_QUERY_THROW );
     348           0 :                 uno::Reference< beans::XPropertySet > xProps( xNewModel, uno::UNO_QUERY_THROW );
     349           0 :                 xProps->setPropertyValue( "Dropdown" , uno::Any( true ) );
     350           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     351           0 :                 bFontSupport = true;
     352             :             }
     353           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ToggleButton.1" ) )
     354             :             {
     355           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlButtonModel" ), uno::UNO_QUERY_THROW );
     356           0 :                 uno::Reference< beans::XPropertySet > xProps( xNewModel, uno::UNO_QUERY_THROW );
     357           0 :                 xProps->setPropertyValue( "Toggle" , uno::Any( true ) );
     358           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     359           0 :                 bFontSupport = true;
     360             :             }
     361           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Frame.1" ) )
     362             :             {
     363           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlGroupBoxModel" ), uno::UNO_QUERY_THROW );
     364           0 :                 fDefWidth = 216.0; fDefHeight = 144.0;
     365           0 :                 bFontSupport = true;
     366             :             }
     367           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.SpinButton.1" ) )
     368             :             {
     369           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlSpinButtonModel" ), uno::UNO_QUERY_THROW );
     370           0 :                 fDefWidth = 12.75; fDefHeight = 25.5;
     371             :             }
     372           0 :             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ScrollBar.1" ) )
     373             :             {
     374           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.awt.UnoControlScrollBarModel" ), uno::UNO_QUERY_THROW );
     375           0 :                 fDefWidth = 12.75; fDefHeight = 63.8;
     376             :             }
     377             :             else
     378             :             {
     379           0 :                 xNewModel.set( xModelFactory->createInstance( "com.sun.star.custom.awt.UnoControlSystemAXContainerModel" ), uno::UNO_QUERY_THROW );
     380           0 :                 fDefWidth = 72.0; fDefHeight = 18.0;
     381           0 :                 bNativeAX = true;
     382             :             }
     383             : 
     384             :             // need to set a few font properties to get rid of the default DONT_KNOW values
     385           0 :             if( bFontSupport )
     386             :             {
     387           0 :                 uno::Reference< beans::XPropertySet > xModelProps( xNewModel, uno::UNO_QUERY_THROW );
     388           0 :                 xModelProps->setPropertyValue( "FontName" , uno::Any( OUString("Tahoma" ) ) );
     389           0 :                 xModelProps->setPropertyValue( "FontHeight" , uno::Any( float( 8.0 ) ) );
     390           0 :                 xModelProps->setPropertyValue( "FontWeight" , uno::Any( awt::FontWeight::NORMAL ) );
     391           0 :                 xModelProps->setPropertyValue( "FontSlant" , uno::Any( awt::FontSlant_NONE ) );
     392           0 :                 xModelProps->setPropertyValue( "FontUnderline" , uno::Any( awt::FontUnderline::NONE ) );
     393           0 :                 xModelProps->setPropertyValue( "FontStrikeout" , uno::Any( awt::FontStrikeout::NONE ) );
     394             :             }
     395             : 
     396           0 :             xDialogContainer->insertByName( aNewName, uno::makeAny( xNewModel ) );
     397           0 :             uno::Reference< awt::XControlContainer > xControlContainer( mxDialog, uno::UNO_QUERY_THROW );
     398           0 :             xNewControl = xControlContainer->getControl( aNewName );
     399             : 
     400           0 :             if( bNativeAX ) try
     401             :             {
     402           0 :                 uno::Reference< script::XInvocation > xControlInvoke( xNewControl, uno::UNO_QUERY_THROW );
     403             : 
     404           0 :                 uno::Sequence< uno::Any > aArgs( 1 );
     405           0 :                 aArgs[0] <<= aComServiceName;
     406           0 :                 uno::Sequence< sal_Int16 > aOutIDDummy;
     407           0 :                 uno::Sequence< uno::Any > aOutDummy;
     408           0 :                 xControlInvoke->invoke( "SOAddAXControl" , aArgs, aOutIDDummy, aOutDummy );
     409             :             }
     410           0 :             catch (const uno::Exception&)
     411             :             {
     412           0 :                 xDialogContainer->removeByName( aNewName );
     413           0 :                 throw;
     414           0 :             }
     415             :         }
     416             : 
     417           0 :         if ( xNewControl.is() )
     418             :         {
     419           0 :             UpdateCollectionIndex( lcl_controlsWrapper( mxDialog  ) );
     420           0 :             aResult <<= xNewControl;
     421           0 :             aResult = createCollectionObject( aResult );
     422           0 :             uno::Reference< msforms::XControl > xVBAControl( aResult, uno::UNO_QUERY_THROW );
     423           0 :             if( fDefWidth > 0.0 )
     424           0 :                 xVBAControl->setWidth( fDefWidth );
     425           0 :             if( fDefHeight > 0.0 )
     426           0 :                 xVBAControl->setHeight( fDefHeight );
     427             :         }
     428             :         else
     429           0 :             throw uno::RuntimeException();
     430             :     }
     431           0 :     catch (const uno::RuntimeException&)
     432             :     {
     433           0 :         throw;
     434             :     }
     435           0 :     catch (const uno::Exception& e)
     436             :     {
     437             :         throw lang::WrappedTargetRuntimeException( "Can not create AXControl!",
     438             :                 uno::Reference< uno::XInterface >(),
     439           0 :                 uno::makeAny( e ) );
     440             :     }
     441             : 
     442           0 :     return aResult;
     443             : }
     444             : 
     445           0 : void SAL_CALL ScVbaControls::Remove( const uno::Any& StringKeyOrIndex )
     446             :     throw (uno::RuntimeException, std::exception)
     447             : {
     448           0 :     OUString aControlName;
     449           0 :     sal_Int32 nIndex = -1;
     450             : 
     451             :     try
     452             :     {
     453           0 :         if ( !mxDialog.is() )
     454           0 :             throw uno::RuntimeException();
     455             : 
     456           0 :         uno::Reference< lang::XMultiServiceFactory > xModelFactory( mxDialog->getModel(), uno::UNO_QUERY_THROW );
     457           0 :         uno::Reference< container::XNameContainer > xDialogContainer( xModelFactory, uno::UNO_QUERY_THROW );
     458             : 
     459           0 :         if ( !( ( StringKeyOrIndex >>= aControlName ) && !aControlName.isEmpty() )
     460           0 :           && !( ( StringKeyOrIndex >>= nIndex ) && nIndex >= 0 && nIndex < m_xIndexAccess->getCount() ) )
     461           0 :             throw uno::RuntimeException();
     462             : 
     463           0 :         uno::Reference< awt::XControl > xControl;
     464           0 :         if ( !aControlName.isEmpty() )
     465             :         {
     466           0 :             uno::Reference< awt::XControlContainer > xControlContainer( mxDialog, uno::UNO_QUERY_THROW );
     467           0 :             xControl = xControlContainer->getControl( aControlName );
     468             :         }
     469             :         else
     470             :         {
     471           0 :             m_xIndexAccess->getByIndex( nIndex ) >>= xControl;
     472             :         }
     473             : 
     474           0 :         if ( !xControl.is() )
     475           0 :             throw uno::RuntimeException();
     476             : 
     477           0 :         if ( aControlName.isEmpty() )
     478           0 :             aControlName = ControlArrayWrapper::getControlName( xControl );
     479             : 
     480           0 :         xDialogContainer->removeByName( aControlName );
     481           0 :         xControl->dispose();
     482             :     }
     483           0 :     catch (const uno::RuntimeException&)
     484             :     {
     485             :         // the exceptions are not rethrown, impossibility to find or remove the control is currently not reported
     486             :         // since in most cases it means just that the controls is already not there, the VBA seems to do it in the same way
     487             : 
     488             :         // throw;
     489             :     }
     490           0 :     catch (const uno::Exception&)
     491             :     {
     492             :         // throw lang::WrappedTargetException("Can not create AXControl!",
     493             :         //         uno::Reference< uno::XInterface >(),
     494             :         //         uno::makeAny( e ) );
     495           0 :     }
     496           0 : }
     497             : 
     498             : 
     499             : uno::Type
     500           0 : ScVbaControls::getElementType() throw (uno::RuntimeException)
     501             : {
     502           0 :     return cppu::UnoType<ooo::vba::msforms::XControl>::get();
     503             : }
     504             : 
     505           6 : VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaControls, "ooo.vba.msforms.Controls" )
     506             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10