vbahelper/source/msforms/vbacontrols.cxx

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