vbahelper/source/msforms/vbacontrol.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: vbacontrol.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 #include <com/sun/star/form/FormComponentType.hpp>
  31 #include <com/sun/star/awt/XControlModel.hpp>
  32 #include <com/sun/star/awt/XControl.hpp>
  33 #include <com/sun/star/awt/XWindow2.hpp>
  34 #include <com/sun/star/lang/XEventListener.hpp>
  35 #include <com/sun/star/drawing/XShape.hpp>
  36 #include <com/sun/star/drawing/XControlShape.hpp>
  37 #include <com/sun/star/awt/XControl.hpp>
  38 #include <com/sun/star/frame/XModel.hpp>
  39 #include <com/sun/star/view/XControlAccess.hpp>
  40 #include <com/sun/star/container/XChild.hpp>
  41 #include <com/sun/star/form/binding/XBindableValue.hpp>
  42 #include <com/sun/star/form/binding/XListEntrySink.hpp>
  43 #include <com/sun/star/table/CellAddress.hpp>
  44 #include <com/sun/star/table/CellRangeAddress.hpp>
  45 #include <ooo/vba/XControlProvider.hpp>
  46 #ifdef VBA_OOBUILD_HACK
  47 #include <svtools/bindablecontrolhelper.hxx>
  48 #endif
  49 #include"vbacontrol.hxx"
  50 #include"vbacombobox.hxx"
  51 #include "vbabutton.hxx"
  52 #include "vbalabel.hxx"
  53 #include "vbatextbox.hxx"
  54 #include "vbaradiobutton.hxx"
  55 #include "vbalistbox.hxx"
  56 #include "vbatogglebutton.hxx"
  57 #include "vbacheckbox.hxx"
  58 #include "vbaframe.hxx"
  59 #include "vbascrollbar.hxx"
  60 #include "vbaprogressbar.hxx"
  61 #include "vbamultipage.hxx"
  62 #include "vbaspinbutton.hxx"
  63 #include "vbaimage.hxx"
  64 #include <vbahelper/helperdecl.hxx>
  65
  66
  67 using namespace com::sun::star;
  68 using namespace ooo::vba;
  69
  70 uno::Reference< css::awt::XWindowPeer >
  71 ScVbaControl::getWindowPeer() throw (uno::RuntimeException)
  72 {
  73     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY );
  74
  75     uno::Reference< awt::XControlModel > xControlModel;
  76     uno::Reference< css::awt::XWindowPeer >  xWinPeer;
  77     if ( !xControlShape.is() )
  78     {
  79         // would seem to be a Userform control
  80         uno::Reference< awt::XControl > xControl( m_xControl, uno::UNO_QUERY_THROW );
  81         xWinPeer =  xControl->getPeer();
  82         return xWinPeer;
  83     }
  84     // form control
  85     xControlModel.set( xControlShape->getControl(), uno::UNO_QUERY_THROW );
  86
  87     uno::Reference< view::XControlAccess > xControlAccess( m_xModel->getCurrentController(), uno::UNO_QUERY_THROW );
  88     try
  89     {
  90         uno::Reference< awt::XControl > xControl( xControlAccess->getControl( xControlModel ), uno::UNO_QUERY );
  91         xWinPeer =  xControl->getPeer();
  92     }
  93     catch( uno::Exception )
  94     {
  95         throw uno::RuntimeException( rtl::OUString::createFromAscii( "The Control does not exsit" ),
  96                 uno::Reference< uno::XInterface >() );
  97     }
  98     return xWinPeer;
  99 }
 100
 101 //ScVbaControlListener
 102 class ScVbaControlListener: public cppu::WeakImplHelper1< lang::XEventListener >
 103 {
 104 private:
 105     ScVbaControl *pControl;
 106 public:
 107     ScVbaControlListener( ScVbaControl *pTmpControl );
 108     virtual ~ScVbaControlListener();
 109     virtual void SAL_CALL disposing( const lang::EventObject& rEventObject ) throw( uno::RuntimeException );
 110 };
 111
 112 ScVbaControlListener::ScVbaControlListener( ScVbaControl *pTmpControl ): pControl( pTmpControl )
 113 {
 114 }
 115
 116 ScVbaControlListener::~ScVbaControlListener()
 117 {
 118 }
 119
 120 void SAL_CALL
 121 ScVbaControlListener::disposing( const lang::EventObject& ) throw( uno::RuntimeException )
 122 {
 123     if( pControl )
 124     {
 125         pControl->removeResouce();
 126         pControl = NULL;
 127     }
 128 }
 129
 130 //ScVbaControl
 131
 132 ScVbaControl::ScVbaControl( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< ::uno::XInterface >& xControl,  const css::uno::Reference< css::frame::XModel >& xModel, AbstractGeometryAttributes* pGeomHelper ) : ControlImpl_BASE( xParent, xContext ),  m_xControl( xControl ), m_xModel( xModel )
 133 {
 134     //add listener
 135     m_xEventListener.set( new ScVbaControlListener( this ) );
 136     setGeometryHelper( pGeomHelper );
 137     uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 138     xComponent->addEventListener( m_xEventListener );
 139
 140     //init m_xProps
 141     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY ) ;
 142     uno::Reference< awt::XControl> xUserFormControl( m_xControl, uno::UNO_QUERY ) ;
 143     if ( xControlShape.is() ) // form control
 144         m_xProps.set( xControlShape->getControl(), uno::UNO_QUERY_THROW );
 145     else if ( xUserFormControl.is() ) // userform control
 146         m_xProps.set( xUserFormControl->getModel(), uno::UNO_QUERY_THROW );
 147 }
 148
 149 ScVbaControl::~ScVbaControl()
 150 {
 151     if( m_xControl.is() )
 152 {
 153         uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 154     xComponent->removeEventListener( m_xEventListener );
 155 }
 156 }
 157
 158 void
 159 ScVbaControl::setGeometryHelper( AbstractGeometryAttributes* pHelper )
 160 {
 161     mpGeometryHelper.reset( pHelper );
 162 }
 163
 164 void ScVbaControl::removeResouce() throw( uno::RuntimeException )
 165 {
 166     uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 167     xComponent->removeEventListener( m_xEventListener );
 168     m_xControl= NULL;
 169     m_xProps = NULL;
 170 }
 171
 172 //In design model has different behavior
 173 sal_Bool SAL_CALL ScVbaControl::getEnabled() throw (uno::RuntimeException)
 174 {
 175     uno::Any aValue = m_xProps->getPropertyValue
 176             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Enabled" ) ) );
 177     sal_Bool bRet = false;
 178     aValue >>= bRet;
 179     return bRet;
 180 }
 181
 182 void SAL_CALL ScVbaControl::setEnabled( sal_Bool bVisible ) throw (uno::RuntimeException)
 183 {
 184     uno::Any aValue( bVisible );
 185     m_xProps->setPropertyValue
 186             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Enabled" ) ), aValue);
 187
 188 }
 189
 190 sal_Bool SAL_CALL ScVbaControl::getVisible() throw (uno::RuntimeException)
 191 {
 192     sal_Bool bVisible( sal_True );
 193     m_xProps->getPropertyValue
 194             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "EnableVisible" ) )) >>= bVisible;
 195     return bVisible;
 196 }
 197
 198 void SAL_CALL ScVbaControl::setVisible( sal_Bool bVisible ) throw (uno::RuntimeException)
 199 {
 200     uno::Any aValue( bVisible );
 201     m_xProps->setPropertyValue
 202             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "EnableVisible" ) ), aValue);
 203 }
 204 double SAL_CALL ScVbaControl::getHeight() throw (uno::RuntimeException)
 205 {
 206     return mpGeometryHelper->getHeight();
 207 }
 208 void SAL_CALL ScVbaControl::setHeight( double _height ) throw (uno::RuntimeException)
 209 {
 210     mpGeometryHelper->setHeight( _height );
 211 }
 212
 213 double SAL_CALL ScVbaControl::getWidth() throw (uno::RuntimeException)
 214 {
 215     return mpGeometryHelper->getWidth();
 216 }
 217 void SAL_CALL ScVbaControl::setWidth( double _width ) throw (uno::RuntimeException)
 218 {
 219     mpGeometryHelper->setWidth( _width );
 220 }
 221
 222 double SAL_CALL
 223 ScVbaControl::getLeft() throw (uno::RuntimeException)
 224 {
 225     return mpGeometryHelper->getLeft();
 226 }
 227
 228 void SAL_CALL
 229 ScVbaControl::setLeft( double _left ) throw (uno::RuntimeException)
 230 {
 231     mpGeometryHelper->setLeft( _left );
 232
 233 }
 234
 235 double SAL_CALL
 236 ScVbaControl::getTop() throw (uno::RuntimeException)
 237 {
 238     return mpGeometryHelper->getTop();
 239 }
 240
 241 void SAL_CALL
 242 ScVbaControl::setTop( double _top ) throw (uno::RuntimeException)
 243 {
 244     mpGeometryHelper->setTop( _top );
 245 }
 246
 247 uno::Reference< uno::XInterface > SAL_CALL
 248 ScVbaControl::getObject() throw (uno::RuntimeException)
 249 {
 250         uno::Reference< msforms::XControl > xRet( this );
 251         return xRet;
 252 }
 253
 254 void SAL_CALL ScVbaControl::SetFocus() throw (uno::RuntimeException)
 255 {
 256     uno::Reference< awt::XWindow > xWin( m_xControl, uno::UNO_QUERY_THROW );
 257     xWin->setFocus();
 258 }
 259
 260 rtl::OUString SAL_CALL
 261 ScVbaControl::getControlSource() throw (uno::RuntimeException)
 262 {
 263 // #FIXME I *hate* having these upstream differences
 264 // but this is necessary until I manage to upstream other
 265 // dependant parts
 266 #ifdef VBA_OOBUILD_HACK
 267         rtl::OUString sControlSource;
 268         uno::Reference< form::binding::XBindableValue > xBindable( m_xProps, uno::UNO_QUERY );
 269         if ( xBindable.is() )
 270         {
 271                 try
 272                 {
 273                         uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, uno::UNO_QUERY_THROW );
 274                         uno::Reference< beans::XPropertySet > xConvertor( xFac->createInstance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.table.CellAddressConversion" ))), uno::UNO_QUERY );
 275                         uno::Reference< beans::XPropertySet > xProps( xBindable->getValueBinding(), uno::UNO_QUERY_THROW );
 276                         table::CellAddress aAddress;
 277                         xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BoundCell") ) ) >>= aAddress;
 278                         xConvertor->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Address") ), uno::makeAny( aAddress ) );
 279                         xConvertor->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("XL_A1_Representation") ) ) >>= sControlSource;
 280                 }
 281                 catch( uno::Exception& )
 282                 {
 283                 }
 284         }
 285         return sControlSource;
 286 #else
 287         throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("getControlSource not supported") ), uno::Reference< uno::XInterface >()); // not supported
 288 #endif
 289 }
 290
 291 void SAL_CALL
 292 ScVbaControl::setControlSource( const rtl::OUString& _controlsource ) throw (uno::RuntimeException)
 293 {
 294 #ifdef VBA_OOBUILD_HACK
 295     rtl::OUString sEmpty;
 296     svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, m_xProps, _controlsource, sEmpty );
 297 #else
 298         throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("setControlSource not supported ") ).concat( _controlsource ), uno::Reference< uno::XInterface >()); // not supported
 299 #endif
 300 }
 301
 302 rtl::OUString SAL_CALL
 303 ScVbaControl::getRowSource() throw (uno::RuntimeException)
 304 {
 305 #ifdef VBA_OOBUILD_HACK
 306         rtl::OUString sRowSource;
 307         uno::Reference< form::binding::XListEntrySink > xListSink( m_xProps, uno::UNO_QUERY );
 308         if ( xListSink.is() )
 309     {
 310                 try
 311                 {
 312                         uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, uno::UNO_QUERY_THROW );
 313                         uno::Reference< beans::XPropertySet > xConvertor( xFac->createInstance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.table.CellRangeAddressConversion" ))), uno::UNO_QUERY );
 314
 315                         uno::Reference< beans::XPropertySet > xProps( xListSink->getListEntrySource(), uno::UNO_QUERY_THROW );
 316                         table::CellRangeAddress aAddress;
 317                         xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CellRange") ) ) >>= aAddress;
 318                         xConvertor->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Address")), uno::makeAny( aAddress ) );
 319                         xConvertor->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("XL_A1_Representation") ) ) >>= sRowSource;
 320                 }
 321                 catch( uno::Exception& )
 322                 {
 323                 }
 324         }
 325         return sRowSource;
 326 #else
 327         throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("getRowSource not supported") ), uno::Reference< uno::XInterface >()); // not supported
 328 #endif
 329 }
 330
 331 void SAL_CALL
 332 ScVbaControl::setRowSource( const rtl::OUString& _rowsource ) throw (uno::RuntimeException)
 333 {
 334 #ifdef VBA_OOBUILD_HACK
 335     rtl::OUString sEmpty;
 336     svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, m_xProps, sEmpty, _rowsource );
 337 #else
 338         throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("setRowSource not supported ") ).concat( _rowsource ), uno::Reference< uno::XInterface >()); // not supported
 339 #endif
 340 }
 341
 342 rtl::OUString SAL_CALL
 343 ScVbaControl::getName() throw (uno::RuntimeException)
 344 {
 345         rtl::OUString sName;
 346         m_xProps->getPropertyValue
 347             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Name" ) ) ) >>= sName;
 348         return sName;
 349
 350 }
 351
 352 void SAL_CALL
 353 ScVbaControl::setName( const rtl::OUString& _name ) throw (uno::RuntimeException)
 354 {
 355         m_xProps->setPropertyValue
 356             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Name" ) ), uno::makeAny( _name ) );
 357     }
 358
 359 rtl::OUString SAL_CALL
 360 ScVbaControl::getControlTipText() throw (css::uno::RuntimeException)
 361 {
 362         rtl::OUString sName;
 363         m_xProps->getPropertyValue
 364             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "HelpText" ) ) ) >>= sName;
 365         return sName;
 366 }
 367
 368 void SAL_CALL
 369 ScVbaControl::setControlTipText( const rtl::OUString& rsToolTip ) throw (css::uno::RuntimeException)
 370 {
 371         m_xProps->setPropertyValue
 372             (rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "HelpText" ) ), uno::makeAny( rsToolTip ) );
 373 }
 374 //ScVbaControlFactory
 375
 376 ScVbaControlFactory::ScVbaControlFactory( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel ): m_xContext( xContext ), m_xControl( xControl ), m_xModel( xModel )
 377 {
 378 }
 379
 380 ScVbaControl* ScVbaControlFactory::createControl()  throw (uno::RuntimeException)
 381 {
 382     return createControl( m_xModel );
 383 }
 384 ScVbaControl* ScVbaControlFactory::createControl( const uno::Reference< uno::XInterface >& xParent )  throw (uno::RuntimeException)
 385 {
 386     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY );
 387     if ( xControlShape.is() ) // form controls
 388         return createControl( xControlShape, xParent );
 389     uno::Reference< awt::XControl > xControl( m_xControl, uno::UNO_QUERY );
 390     if ( !xControl.is() )
 391         throw uno::RuntimeException(); // really we should be more informative
 392     return createControl( xControl, xParent );
 393
 394 }
 395
 396 ScVbaControl* ScVbaControlFactory::createControl(const uno::Reference< drawing::XControlShape >& xControlShape,  const uno::Reference< uno::XInterface >& /*xParent*/ )  throw (uno::RuntimeException)
 397 {
 398     uno::Reference< beans::XPropertySet > xProps( xControlShape->getControl(), uno::UNO_QUERY_THROW );
 399     sal_Int32 nClassId = -1;
 400     const static rtl::OUString sClassId( RTL_CONSTASCII_USTRINGPARAM("ClassId") );
 401     xProps->getPropertyValue( sClassId ) >>= nClassId;
 402     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be worksheet I guess
 403     sal_Bool bToggle = sal_False;  //liuchen 2009-8-11,
 404         switch( nClassId )
 405     {
 406         case form::FormComponentType::COMBOBOX:
 407             return new ScVbaComboBox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 408         case form::FormComponentType::COMMANDBUTTON:
 409                         //liuchen 2009-8-11
 410                         xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Toggle") ) ) >>= bToggle;
 411                         if ( bToggle )
 412                                 return new ScVbaToggleButton( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 413                         else
 414                                 return new ScVbaButton( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 415                         //liuchen 2009-8-11
 416                 case form::FormComponentType::FIXEDTEXT:
 417             return new ScVbaLabel( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 418         case form::FormComponentType::TEXTFIELD:
 419             return new ScVbaTextBox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 420         case form::FormComponentType::CHECKBOX:
 421             return new ScVbaCheckbox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 422         case form::FormComponentType::RADIOBUTTON:
 423             return new ScVbaRadioButton( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 424         case form::FormComponentType::LISTBOX:
 425             return new ScVbaListBox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 426         case form::FormComponentType::SPINBUTTON:
 427             return new ScVbaSpinButton( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 428         case form::FormComponentType::IMAGECONTROL:
 429             return new ScVbaImage( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
 430         default:
 431             throw uno::RuntimeException( rtl::OUString::createFromAscii(
 432                     "Donot support this Control Type." ), uno::Reference< uno::XInterface >() );
 433     }
 434 }
 435
 436 ScVbaControl* ScVbaControlFactory::createControl( const uno::Reference< awt::XControl >& xControl,  const uno::Reference< uno::XInterface >& xParent  )  throw (uno::RuntimeException)
 437 {
 438     uno::Reference< beans::XPropertySet > xProps( xControl->getModel(), uno::UNO_QUERY_THROW );
 439     uno::Reference< lang::XServiceInfo > xServiceInfo( xProps, uno::UNO_QUERY_THROW );
 440     ScVbaControl* pControl = NULL;
 441     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be worksheet I guess
 442     if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlCheckBoxModel") ) ) )
 443         pControl = new ScVbaCheckbox( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 444     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlRadioButtonModel") ) ) )
 445         pControl = new ScVbaRadioButton( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 446     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlEditModel") ) ) )
 447         pControl = new ScVbaTextBox( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ), true );
 448     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlButtonModel") ) ) )
 449     {
 450         sal_Bool bToggle = sal_False;
 451         xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Toggle") ) ) >>= bToggle;
 452         if ( bToggle )
 453             pControl = new ScVbaToggleButton( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 454         else
 455             pControl = new ScVbaButton( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 456     }
 457     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlComboBoxModel") ) ) )
 458         pControl = new ScVbaComboBox( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ), true );
 459     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlListBoxModel") ) ) )
 460         pControl = new ScVbaListBox( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 461     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlFixedTextModel") ) ) )
 462         pControl = new ScVbaLabel( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 463     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlImageControlModel") ) ) )
 464         pControl = new ScVbaImage( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 465     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlProgressBarModel") ) ) )
 466         pControl = new ScVbaProgressBar( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 467     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlGroupBoxModel") ) ) )
 468         pControl = new ScVbaFrame( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 469     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlScrollBarModel") ) ) )
 470         pControl = new ScVbaScrollBar( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 471     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoMultiPageModel") ) ) )
 472         pControl = new ScVbaMultiPage( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ), xParent );
 473     else if ( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlSpinButtonModel") ) ) )
 474         pControl = new ScVbaSpinButton( xVbaParent, m_xContext, xControl, m_xModel, new UserFormGeometryHelper( m_xContext, xControl ) );
 475     else
 476         throw uno::RuntimeException( rtl::OUString::createFromAscii("Unsupported control " ), uno::Reference< uno::XInterface >() );
 477     return pControl;
 478 }
 479
 480 rtl::OUString&
 481 ScVbaControl::getServiceImplName()
 482 {
 483         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaControl") );
 484         return sImplName;
 485 }
 486
 487 uno::Sequence< rtl::OUString >
 488 ScVbaControl::getServiceNames()
 489 {
 490         static uno::Sequence< rtl::OUString > aServiceNames;
 491         if ( aServiceNames.getLength() == 0 )
 492         {
 493                 aServiceNames.realloc( 1 );
 494                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Control" ) );
 495     }
 496         return aServiceNames;
 497 }
 498
 499
 500
 501 typedef cppu::WeakImplHelper1< XControlProvider > ControlProvider_BASE;
 502 class ControlProviderImpl : public ControlProvider_BASE
 503 {
 504     uno::Reference< uno::XComponentContext > m_xCtx;
 505 public:
 506     ControlProviderImpl( const uno::Reference< uno::XComponentContext >& xCtx ) : m_xCtx( xCtx ) {}
 507     virtual uno::Reference< msforms::XControl > SAL_CALL createControl( const uno::Reference< drawing::XControlShape >& xControl, const uno::Reference< frame::XModel >& xDocOwner ) throw (uno::RuntimeException);
 508     virtual uno::Reference< msforms::XControl > SAL_CALL createUserformControl( const uno::Reference< awt::XControl >& xControl, const uno::Reference< awt::XControl >& xDialog, const uno::Reference< frame::XModel >& xDocOwner ) throw (uno::RuntimeException);
 509 };
 510
 511 uno::Reference< msforms::XControl > SAL_CALL
 512 ControlProviderImpl::createControl( const uno::Reference< drawing::XControlShape >& xControlShape, const uno::Reference< frame::XModel >& xDocOwner ) throw (uno::RuntimeException)
 513 {
 514         uno::Reference< msforms::XControl > xControlToReturn;
 515         if ( xControlShape.is() )
 516         {
 517                 ScVbaControlFactory controlFactory( m_xCtx, xControlShape, xDocOwner );
 518                 xControlToReturn.set( controlFactory.createControl( xDocOwner ) );
 519         }
 520         return xControlToReturn;
 521
 522 }
 523 uno::Reference< msforms::XControl > SAL_CALL
 524 ControlProviderImpl::createUserformControl( const uno::Reference< awt::XControl >& xControl, const uno::Reference< awt::XControl >& xDialog, const uno::Reference< frame::XModel >& xDocOwner ) throw (uno::RuntimeException)
 525 {
 526         uno::Reference< msforms::XControl > xControlToReturn;
 527         if ( xControl.is() && xDialog.is() )
 528         {
 529
 530                 ScVbaControlFactory controlFactory( m_xCtx, xControl, xDocOwner );
 531                 xControlToReturn.set( controlFactory.createControl( xDialog->getModel() ) );
 532                 ScVbaControl* pControl  = dynamic_cast< ScVbaControl* >( xControlToReturn.get() );
 533                 pControl->setGeometryHelper( new UserFormGeometryHelper( m_xCtx, xControl ) );
 534         }
 535         return xControlToReturn;
 536 }
 537
 538 namespace controlprovider
 539 {
 540 namespace sdecl = comphelper::service_decl;
 541 sdecl::class_<ControlProviderImpl, sdecl::with_args<false> > serviceImpl;
 542 extern sdecl::ServiceDecl const serviceDecl(
 543     serviceImpl,
 544     "ControlProviderImpl",
 545     "ooo.vba.ControlProvider" );
 546 }
 547
 548