vbahelper/source/msforms/vbacontrol.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 #include <memory>
  20 #include <com/sun/star/form/FormComponentType.hpp>
  21 #include <com/sun/star/awt/XControlModel.hpp>
  22 #include <com/sun/star/awt/XControl.hpp>
  23 #include <com/sun/star/awt/XWindow2.hpp>
  24 #include <com/sun/star/awt/XActionListener.hpp>
  25 #include <com/sun/star/lang/XEventListener.hpp>
  26 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  27 #include <com/sun/star/drawing/XShape.hpp>
  28 #include <com/sun/star/drawing/XControlShape.hpp>
  29 #include <com/sun/star/frame/XModel.hpp>
  30 #include <com/sun/star/view/XControlAccess.hpp>
  31 #include <com/sun/star/container/XChild.hpp>
  32 #include <com/sun/star/form/binding/XBindableValue.hpp>
  33 #include <com/sun/star/form/binding/XListEntrySink.hpp>
  34 #include <com/sun/star/table/CellAddress.hpp>
  35 #include <com/sun/star/table/CellRangeAddress.hpp>
  36 #include <com/sun/star/script/XScriptListener.hpp>
  37 #include <com/sun/star/document/XCodeNameQuery.hpp>
  38 #include <com/sun/star/form/XChangeListener.hpp>
  39 #include <ooo/vba/XControlProvider.hpp>
  40 #include <ooo/vba/msforms/fmMousePointer.hpp>
  41 #include <svtools/bindablecontrolhelper.hxx>
  42 #include "service.hxx"
  43 #include "vbacontrol.hxx"
  44 #include "vbacombobox.hxx"
  45 #include "vbabutton.hxx"
  46 #include "vbalabel.hxx"
  47 #include "vbatextbox.hxx"
  48 #include "vbaradiobutton.hxx"
  49 #include "vbalistbox.hxx"
  50 #include "vbatogglebutton.hxx"
  51 #include "vbacheckbox.hxx"
  52 #include "vbaframe.hxx"
  53 #include "vbascrollbar.hxx"
  54 #include "vbaprogressbar.hxx"
  55 #include "vbamultipage.hxx"
  56 #include "vbaspinbutton.hxx"
  57 #include "vbasystemaxcontrol.hxx"
  58 #include "vbaimage.hxx"
  59 #include <vbahelper/helperdecl.hxx>
  60 #include <toolkit/helper/vclunohelper.hxx>
  61 #include <vcl/window.hxx>
  62 #include <com/sun/star/drawing/XDrawPagesSupplier.hpp>
  63 #include <com/sun/star/form/XFormsSupplier.hpp>
  64 #include <svx/svdobj.hxx>
  65 #include <cppuhelper/implbase.hxx>
  66
  67 using namespace com::sun::star;
  68 using namespace ooo::vba;
  69
  70 uno::Reference< css::awt::XWindowPeer >
  71 ScVbaControl::getWindowPeer()
  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(const uno::Exception&)
  94     {
  95         throw uno::RuntimeException( "The Control does not exist" );
  96     }
  97     return xWinPeer;
  98 }
  99
 100 //ScVbaControlListener
 101 class ScVbaControlListener: public cppu::WeakImplHelper< lang::XEventListener >
 102 {
 103 private:
 104     ScVbaControl *pControl;
 105 public:
 106     explicit ScVbaControlListener( ScVbaControl *pTmpControl );
 107
 108     virtual void SAL_CALL disposing( const lang::EventObject& rEventObject ) override;
 109 };
 110
 111 ScVbaControlListener::ScVbaControlListener( ScVbaControl *pTmpControl ): pControl( pTmpControl )
 112 {
 113 }
 114
 115 void SAL_CALL
 116 ScVbaControlListener::disposing( const lang::EventObject& )
 117 {
 118     if( pControl )
 119     {
 120         pControl->removeResource();
 121         pControl = nullptr;
 122     }
 123 }
 124
 125 //ScVbaControl
 126
 127 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, std::unique_ptr<ov::AbstractGeometryAttributes> pGeomHelper )
 128     : ControlImpl_BASE( xParent, xContext ), m_xControl( xControl ), m_xModel( xModel )
 129 {
 130     //add listener
 131     m_xEventListener.set( new ScVbaControlListener( this ) );
 132     setGeometryHelper( std::move(pGeomHelper) );
 133     uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 134     xComponent->addEventListener( m_xEventListener );
 135
 136     //init m_xProps
 137     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY ) ;
 138     uno::Reference< awt::XControl> xUserFormControl( m_xControl, uno::UNO_QUERY ) ;
 139     if ( xControlShape.is() ) // form control
 140     {
 141         m_xProps.set( xControlShape->getControl(), uno::UNO_QUERY_THROW );
 142         OUString sDefaultControl;
 143         m_xProps->getPropertyValue( "DefaultControl" ) >>= sDefaultControl;
 144         uno::Reference< lang::XMultiComponentFactory > xMFac( mxContext->getServiceManager(), uno::UNO_QUERY_THROW );
 145         m_xEmptyFormControl.set( xMFac->createInstanceWithContext( sDefaultControl, mxContext ), uno::UNO_QUERY_THROW );
 146     }
 147     else if ( xUserFormControl.is() ) // userform control
 148     {
 149         m_xProps.set( xUserFormControl->getModel(), uno::UNO_QUERY_THROW );
 150     }
 151 }
 152
 153 ScVbaControl::~ScVbaControl()
 154 {
 155     if( m_xControl.is() )
 156 {
 157         uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 158     xComponent->removeEventListener( m_xEventListener );
 159 }
 160 }
 161
 162 void
 163 ScVbaControl::setGeometryHelper( std::unique_ptr<AbstractGeometryAttributes> pHelper )
 164 {
 165     mpGeometryHelper = std::move( pHelper );
 166 }
 167
 168 void ScVbaControl::removeResource()
 169 {
 170     uno::Reference< lang::XComponent > xComponent( m_xControl, uno::UNO_QUERY_THROW );
 171     xComponent->removeEventListener( m_xEventListener );
 172     m_xControl= nullptr;
 173     m_xProps = nullptr;
 174 }
 175
 176 //In design model has different behavior
 177 sal_Bool SAL_CALL ScVbaControl::getEnabled()
 178 {
 179     uno::Any aValue = m_xProps->getPropertyValue ( "Enabled" );
 180     bool bRet = false;
 181     aValue >>= bRet;
 182     return bRet;
 183 }
 184
 185 void SAL_CALL ScVbaControl::setEnabled( sal_Bool bVisible )
 186 {
 187     uno::Any aValue( bVisible );
 188     m_xProps->setPropertyValue(  "Enabled" , aValue);
 189
 190 }
 191
 192 sal_Bool SAL_CALL ScVbaControl::getVisible()
 193 {
 194     bool bVisible( true );
 195     m_xProps->getPropertyValue ( "EnableVisible" ) >>= bVisible;
 196     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY );
 197     if ( xControlShape.is() )
 198     {
 199         bool bEnableVisible = bVisible;
 200         uno::Reference< beans::XPropertySet > xProps( m_xControl, uno::UNO_QUERY_THROW );
 201         xProps->getPropertyValue ( "Visible" ) >>= bVisible;
 202         bVisible = bVisible && bEnableVisible;
 203     }
 204     else
 205         m_xProps->getPropertyValue ( "EnableVisible" ) >>= bVisible;
 206     return bVisible;
 207 }
 208
 209 void SAL_CALL ScVbaControl::setVisible( sal_Bool bVisible )
 210 {
 211     uno::Any aValue( bVisible );
 212     m_xProps->setPropertyValue( "EnableVisible" , aValue);
 213     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY );
 214     if ( xControlShape.is() )
 215     {
 216         uno::Reference< beans::XPropertySet > xProps( m_xControl, uno::UNO_QUERY_THROW );
 217         xProps->setPropertyValue ( "Visible", aValue );
 218     }
 219 }
 220 double SAL_CALL ScVbaControl::getHeight()
 221 {
 222     return mpGeometryHelper->getHeight();
 223 }
 224 void SAL_CALL ScVbaControl::setHeight( double _height )
 225 {
 226     mpGeometryHelper->setHeight( _height );
 227 }
 228
 229 double SAL_CALL ScVbaControl::getWidth()
 230 {
 231     return mpGeometryHelper->getWidth();
 232 }
 233 void SAL_CALL ScVbaControl::setWidth( double _width )
 234 {
 235     mpGeometryHelper->setWidth( _width );
 236 }
 237
 238 double SAL_CALL
 239 ScVbaControl::getLeft()
 240 {
 241     return mpGeometryHelper->getLeft();
 242 }
 243
 244 void SAL_CALL
 245 ScVbaControl::setLeft( double _left )
 246 {
 247     mpGeometryHelper->setLeft( _left );
 248 }
 249
 250 double SAL_CALL
 251 ScVbaControl::getTop()
 252 {
 253     return mpGeometryHelper->getTop();
 254 }
 255
 256 void SAL_CALL
 257 ScVbaControl::setTop( double _top )
 258 {
 259     mpGeometryHelper->setTop( _top );
 260 }
 261
 262 uno::Reference< uno::XInterface > SAL_CALL
 263 ScVbaControl::getObject()
 264 {
 265     uno::Reference< msforms::XControl > xRet( this );
 266     return xRet;
 267 }
 268
 269 void SAL_CALL ScVbaControl::SetFocus()
 270 {
 271     uno::Reference< awt::XWindow > xWin( m_xControl, uno::UNO_QUERY_THROW );
 272     xWin->setFocus();
 273 }
 274
 275 void SAL_CALL ScVbaControl::Move( double Left, double Top, const uno::Any& Width, const uno::Any& Height )
 276 {
 277     double nWidth = 0.0;
 278     double nHeight = 0.0;
 279
 280     setLeft( Left );
 281     setTop( Top );
 282
 283     if ( Width >>= nWidth )
 284         setWidth( nWidth );
 285
 286     if ( Height >>= nHeight )
 287         setHeight( nHeight );
 288 }
 289
 290 OUString SAL_CALL
 291 ScVbaControl::getControlSource()
 292 {
 293 // #FIXME I *hate* having these upstream differences
 294 // but this is necessary until I manage to upstream other
 295 // dependent parts
 296     OUString sControlSource;
 297     uno::Reference< form::binding::XBindableValue > xBindable( m_xProps, uno::UNO_QUERY );
 298     if ( xBindable.is() )
 299     {
 300         try
 301         {
 302             uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, uno::UNO_QUERY_THROW );
 303             uno::Reference< beans::XPropertySet > xConvertor( xFac->createInstance( "com.sun.star.table.CellAddressConversion" ), uno::UNO_QUERY );
 304             uno::Reference< beans::XPropertySet > xProps( xBindable->getValueBinding(), uno::UNO_QUERY_THROW );
 305             table::CellAddress aAddress;
 306             xProps->getPropertyValue( "BoundCell" ) >>= aAddress;
 307             xConvertor->setPropertyValue( "Address" , uno::makeAny( aAddress ) );
 308                     xConvertor->getPropertyValue( "XLA1Representation" ) >>= sControlSource;
 309         }
 310         catch(const uno::Exception&)
 311         {
 312         }
 313     }
 314     return sControlSource;
 315 }
 316
 317 void SAL_CALL
 318 ScVbaControl::setControlSource( const OUString& _controlsource )
 319 {
 320     // afaik this is only relevant for Excel documents ( and we need to set up a
 321     // reference tab in case no Sheet is specified in "_controlsource"
 322     // Can't use the active sheet either, code may of course access
 323     uno::Reference< drawing::XDrawPagesSupplier > xSupplier( m_xModel, uno::UNO_QUERY_THROW );
 324  uno::Reference< container::XIndexAccess > xIndex( xSupplier->getDrawPages(), uno::UNO_QUERY_THROW );
 325     sal_Int32 nLen = xIndex->getCount();
 326     bool bMatched = false;
 327     sal_Int16 nRefTab = 0;
 328     for ( sal_Int32 index = 0; index < nLen; ++index )
 329     {
 330         try
 331         {
 332             uno::Reference< form::XFormsSupplier >  xFormSupplier( xIndex->getByIndex( index ), uno::UNO_QUERY_THROW );
 333             uno::Reference< container::XIndexAccess > xFormIndex( xFormSupplier->getForms(), uno::UNO_QUERY_THROW );
 334             // get the www-standard container
 335             uno::Reference< container::XIndexAccess > xFormControls( xFormIndex->getByIndex(0), uno::UNO_QUERY_THROW );
 336             sal_Int32 nCntrls = xFormControls->getCount();
 337             for( sal_Int32 cIndex = 0; cIndex < nCntrls; ++cIndex )
 338             {
 339                 uno::Reference< uno::XInterface > xControl( xFormControls->getByIndex( cIndex ), uno::UNO_QUERY_THROW );
 340                 bMatched = ( m_xProps == xControl );
 341                 if ( bMatched )
 342                 {
 343                     nRefTab = index;
 344                     break;
 345                 }
 346             }
 347         }
 348         catch( uno::Exception& ) {}
 349         if ( bMatched )
 350             break;
 351     }
 352
 353     svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, m_xProps, _controlsource, "", sal_uInt16( nRefTab ) );
 354 }
 355
 356 OUString SAL_CALL
 357 ScVbaControl::getRowSource()
 358 {
 359     OUString sRowSource;
 360     uno::Reference< form::binding::XListEntrySink > xListSink( m_xProps, uno::UNO_QUERY );
 361     if ( xListSink.is() )
 362     {
 363         try
 364         {
 365             uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, uno::UNO_QUERY_THROW );
 366             uno::Reference< beans::XPropertySet > xConvertor( xFac->createInstance( "com.sun.star.table.CellRangeAddressConversion" ), uno::UNO_QUERY );
 367
 368             uno::Reference< beans::XPropertySet > xProps( xListSink->getListEntrySource(), uno::UNO_QUERY_THROW );
 369             table::CellRangeAddress aAddress;
 370             xProps->getPropertyValue( "CellRange" ) >>= aAddress;
 371             xConvertor->setPropertyValue( "Address" , uno::makeAny( aAddress ) );
 372             xConvertor->getPropertyValue( "XLA1Representation" ) >>= sRowSource;
 373         }
 374         catch(const uno::Exception&)
 375         {
 376         }
 377     }
 378     return sRowSource;
 379 }
 380
 381 void SAL_CALL
 382 ScVbaControl::setRowSource( const OUString& _rowsource )
 383 {
 384     svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, m_xProps, "", _rowsource );
 385 }
 386
 387 OUString SAL_CALL
 388 ScVbaControl::getName()
 389 {
 390     OUString sName;
 391     m_xProps->getPropertyValue( "Name" ) >>= sName;
 392     return sName;
 393
 394 }
 395
 396 void SAL_CALL
 397 ScVbaControl::setName( const OUString& _name )
 398 {
 399     m_xProps->setPropertyValue( "Name" , uno::makeAny( _name ) );
 400     }
 401
 402 OUString SAL_CALL
 403 ScVbaControl::getControlTipText()
 404 {
 405     OUString sName;
 406     m_xProps->getPropertyValue( "HelpText" ) >>= sName;
 407     return sName;
 408 }
 409
 410 void SAL_CALL
 411 ScVbaControl::setControlTipText( const OUString& rsToolTip )
 412 {
 413     m_xProps->setPropertyValue( "HelpText" , uno::makeAny( rsToolTip ) );
 414 }
 415
 416 OUString SAL_CALL ScVbaControl::getTag()
 417 {
 418     return m_aControlTag;
 419 }
 420
 421 void SAL_CALL ScVbaControl::setTag( const OUString& aTag )
 422 {
 423     m_aControlTag = aTag;
 424 }
 425
 426 ::sal_Int32 SAL_CALL ScVbaControl::getForeColor()
 427 {
 428     Color nForeColor;
 429     m_xProps->getPropertyValue( "TextColor" ) >>= nForeColor;
 430     return OORGBToXLRGB( nForeColor );
 431 }
 432
 433
 434 struct PointerStyles
 435 {
 436    long const msoPointerStyle;
 437    PointerStyle const loPointStyle;
 438 };
 439
 440 // 1 -> 1 map of styles ( some dubious choices in there though )
 441 PointerStyles const styles[] = {
 442   /// assuming pointer default is Arrow
 443   { msforms::fmMousePointer::fmMousePointerDefault, PointerStyle::Arrow },
 444   { msforms::fmMousePointer::fmMousePointerArrow, PointerStyle::Arrow },
 445   { msforms::fmMousePointer::fmMousePointerCross, PointerStyle::Cross },
 446   { msforms::fmMousePointer::fmMousePointerIBeam, PointerStyle::Text },
 447   { msforms::fmMousePointer::fmMousePointerSizeNESW,  PointerStyle::AutoScrollNSWE   }, // #TODO not correct, need to check, need to find the right one
 448   { msforms::fmMousePointer::fmMousePointerSizeNS,  PointerStyle::AutoScrollNS  },
 449   { msforms::fmMousePointer::fmMousePointerSizeNWSE,  PointerStyle::AutoScrollNSWE  }, // #TODO not correct, need to check, need to find the right one
 450   { msforms::fmMousePointer::fmMousePointerSizeWE,  PointerStyle::AutoScrollWE },
 451   { msforms::fmMousePointer::fmMousePointerUpArrow, PointerStyle::WindowNSize  },
 452   { msforms::fmMousePointer::fmMousePointerHourGlass, PointerStyle::Wait  },
 453   { msforms::fmMousePointer::fmMousePointerNoDrop, PointerStyle::NotAllowed },
 454   { msforms::fmMousePointer::fmMousePointerAppStarting, PointerStyle::Wait },
 455   { msforms::fmMousePointer::fmMousePointerHelp, PointerStyle::Help },
 456   { msforms::fmMousePointer::fmMousePointerSizeAll, PointerStyle::Cross },
 457   { msforms::fmMousePointer::fmMousePointerCustom, PointerStyle::Arrow }, // not supported I guess
 458
 459 };
 460
 461 static long lcl_loPointerToMsoPointer( PointerStyle eType )
 462 {
 463     long nRet = msforms::fmMousePointer::fmMousePointerDefault;
 464     for ( int i = 0; i < int(SAL_N_ELEMENTS( styles )); ++i )
 465     {
 466         if ( styles[ i ].loPointStyle == eType )
 467         {
 468             nRet = styles[ i ].msoPointerStyle;
 469             break;
 470         }
 471     }
 472     return nRet;
 473 }
 474
 475 static Pointer lcl_msoPointerToLOPointer( long msoPointerStyle )
 476 {
 477     Pointer aPointer( PointerStyle::Arrow );
 478     for ( int i = 0; i < int(SAL_N_ELEMENTS( styles )); ++i )
 479     {
 480         if ( styles[ i ].msoPointerStyle == msoPointerStyle )
 481         {
 482             aPointer = Pointer( styles[ i ].loPointStyle );
 483             break;
 484          }
 485     }
 486     return aPointer;
 487 }
 488
 489 ::sal_Int32 SAL_CALL
 490 ScVbaControl::getMousePointer()
 491 {
 492     PointerStyle eType = PointerStyle::Arrow; // default ?
 493     VclPtr<vcl::Window> pWindow = VCLUnoHelper::GetWindow( getWindowPeer() );
 494     if ( pWindow )
 495     {
 496         eType = pWindow->GetPointer().GetStyle();
 497     }
 498     return lcl_loPointerToMsoPointer( eType );
 499 }
 500
 501 void SAL_CALL
 502 ScVbaControl::setMousePointer( ::sal_Int32 _mousepointer )
 503 {
 504     VclPtr<vcl::Window> pWindow = VCLUnoHelper::GetWindow( getWindowPeer() );
 505     if ( pWindow )
 506     {
 507         Pointer aPointer( PointerStyle::Arrow );
 508         aPointer = lcl_msoPointerToLOPointer( _mousepointer );
 509         pWindow->SetPointer( aPointer );
 510     }
 511 }
 512
 513 void SAL_CALL ScVbaControl::fireEvent( const script::ScriptEvent& rEvt )
 514 {
 515     script::ScriptEvent evt( rEvt );
 516     uno::Reference<lang::XMultiComponentFactory > xServiceManager( mxContext->getServiceManager(), uno::UNO_QUERY_THROW );
 517     uno::Reference< script::XScriptListener > xScriptListener( xServiceManager->createInstanceWithContext( "ooo.vba.EventListener" , mxContext ), uno::UNO_QUERY_THROW );
 518
 519     uno::Reference< beans::XPropertySet > xProps( xScriptListener, uno::UNO_QUERY_THROW );
 520     xProps->setPropertyValue( "Model" , uno::makeAny( m_xModel ) );
 521
 522     // handling for sheet control
 523     uno::Reference< msforms::XControl > xThisControl( this );
 524     try
 525     {
 526         evt.Arguments.realloc( 1 );
 527         lang::EventObject aEvt;
 528
 529         uno::Reference< drawing::XControlShape > xControlShape( m_xControl, uno::UNO_QUERY ) ;
 530        uno::Reference< awt::XControl > xControl( m_xControl, uno::UNO_QUERY ) ;
 531
 532         if ( xControlShape.is() )
 533         {
 534             evt.Source = xControlShape;
 535             aEvt.Source = m_xEmptyFormControl;
 536             // Set up proper scriptcode
 537             uno::Reference< lang::XMultiServiceFactory > xDocFac(  m_xModel, uno::UNO_QUERY_THROW );
 538             uno::Reference< document::XCodeNameQuery > xNameQuery(  xDocFac->createInstance( "ooo.vba.VBACodeNameProvider" ), uno::UNO_QUERY_THROW );
 539             uno::Reference< uno::XInterface > xIf( xControlShape->getControl(), uno::UNO_QUERY_THROW );
 540             evt.ScriptCode = xNameQuery->getCodeNameForObject( xIf );
 541             // handle if we passed in our own arguments
 542             if ( !rEvt.Arguments.getLength() )
 543                 evt.Arguments[ 0 ] <<= aEvt;
 544             xScriptListener->firing( evt );
 545         }
 546         else
 547         {
 548             if ( xControl.is() ) // normal control ( from dialog/userform )
 549             {
 550                 // #FIXME We should probably store a reference to the
 551                 // parent dialog/userform here ( other wise the name of
 552                 // dialog could be changed and we won't be aware of it.
 553                 // ( OTOH this is probably an unlikely scenario )
 554                 evt.Source = xThisControl;
 555                 aEvt.Source = xControl;
 556                 evt.ScriptCode = m_sLibraryAndCodeName;
 557                 evt.Arguments[ 0 ] <<= aEvt;
 558                 xScriptListener->firing( evt );
 559             }
 560         }
 561     }
 562     catch(const uno::Exception&)
 563     {
 564     }
 565 }
 566 void ScVbaControl::fireChangeEvent()
 567 {
 568     script::ScriptEvent evt;
 569     evt.ScriptType = "VBAInterop";
 570     evt.ListenerType = cppu::UnoType<form::XChangeListener>::get();
 571     evt.MethodName = "changed";
 572     fireEvent( evt );
 573 }
 574
 575 void ScVbaControl::fireClickEvent()
 576 {
 577     script::ScriptEvent evt;
 578     evt.ScriptType = "VBAInterop";
 579     evt.ListenerType = cppu::UnoType<awt::XActionListener>::get();
 580     evt.MethodName = "actionPerformed";
 581     fireEvent( evt );
 582 }
 583
 584 sal_Int32 SAL_CALL ScVbaControl::getTabIndex()
 585 {
 586     return 1;
 587 }
 588
 589 void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 /*nTabIndex*/ )
 590 {
 591 }
 592
 593 //ScVbaControlFactory
 594
 595 /*static*/ uno::Reference< msforms::XControl > ScVbaControlFactory::createShapeControl(
 596         const uno::Reference< uno::XComponentContext >& xContext,
 597         const uno::Reference< drawing::XControlShape >& xControlShape,
 598         const uno::Reference< frame::XModel >& xModel )
 599 {
 600     uno::Reference< beans::XPropertySet > xProps( xControlShape->getControl(), uno::UNO_QUERY_THROW );
 601     sal_Int32 nClassId = -1;
 602     xProps->getPropertyValue( "ClassId" ) >>= nClassId;
 603     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be worksheet I guess
 604     uno::Reference< drawing::XShape > xShape( xControlShape, uno::UNO_QUERY_THROW );
 605     ::std::unique_ptr< ConcreteXShapeGeometryAttributes > xGeoHelper( new ConcreteXShapeGeometryAttributes( xShape ) );
 606     switch( nClassId )
 607     {
 608         case form::FormComponentType::COMBOBOX:
 609             return new ScVbaComboBox( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 610         case form::FormComponentType::COMMANDBUTTON:
 611         {
 612             bool bToggle = false;
 613             xProps->getPropertyValue( "Toggle" ) >>= bToggle;
 614             if ( bToggle )
 615                 return new ScVbaToggleButton( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 616             else
 617                 return new VbaButton( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 618         }
 619         case form::FormComponentType::FIXEDTEXT:
 620             return new ScVbaLabel( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 621         case form::FormComponentType::TEXTFIELD:
 622             return new ScVbaTextBox( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 623         case form::FormComponentType::CHECKBOX:
 624             return new ScVbaCheckbox( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 625         case form::FormComponentType::RADIOBUTTON:
 626             return new ScVbaRadioButton( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 627         case form::FormComponentType::LISTBOX:
 628             return new ScVbaListBox( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 629         case form::FormComponentType::SPINBUTTON:
 630             return new ScVbaSpinButton( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 631         case form::FormComponentType::IMAGECONTROL:
 632             return new ScVbaImage( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 633         case form::FormComponentType::SCROLLBAR:
 634             return new ScVbaScrollBar( xVbaParent, xContext, xControlShape, xModel, std::move(xGeoHelper) );
 635     }
 636     throw uno::RuntimeException( "Unsupported control." );
 637 }
 638
 639 /*static*/ uno::Reference< msforms::XControl > ScVbaControlFactory::createUserformControl(
 640         const uno::Reference< uno::XComponentContext >& xContext,
 641         const uno::Reference< awt::XControl >& xControl,
 642         const uno::Reference< awt::XControl >& xDialog,
 643         const uno::Reference< frame::XModel >& xModel,
 644         double fOffsetX, double fOffsetY )
 645 {
 646     uno::Reference< beans::XPropertySet > xProps( xControl->getModel(), uno::UNO_QUERY_THROW );
 647     uno::Reference< lang::XServiceInfo > xServiceInfo( xProps, uno::UNO_QUERY_THROW );
 648     uno::Reference< msforms::XControl > xVBAControl;
 649     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be worksheet I guess
 650     ::std::unique_ptr< UserFormGeometryHelper > xGeoHelper( new UserFormGeometryHelper( xControl, fOffsetX, fOffsetY ) );
 651
 652     if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlCheckBoxModel" ) )
 653         xVBAControl.set( new ScVbaCheckbox( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 654     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlRadioButtonModel" ) )
 655         xVBAControl.set( new ScVbaRadioButton( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 656     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlEditModel" ) )
 657         xVBAControl.set( new ScVbaTextBox( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper), true ) );
 658     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlButtonModel" ) )
 659     {
 660         bool bToggle = false;
 661         xProps->getPropertyValue( "Toggle" ) >>= bToggle;
 662         if ( bToggle )
 663             xVBAControl.set( new ScVbaToggleButton( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 664         else
 665             xVBAControl.set( new VbaButton( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 666     }
 667     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlComboBoxModel" ) )
 668         xVBAControl.set( new ScVbaComboBox( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 669     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlListBoxModel" ) )
 670         xVBAControl.set( new ScVbaListBox( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 671     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlFixedTextModel" ) )
 672         xVBAControl.set( new ScVbaLabel( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 673     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlImageControlModel" ) )
 674         xVBAControl.set( new ScVbaImage( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 675     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlProgressBarModel" ) )
 676         xVBAControl.set( new ScVbaProgressBar( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 677     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlGroupBoxModel" ) )
 678         xVBAControl.set( new ScVbaFrame( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper), xDialog ) );
 679     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlScrollBarModel" ) )
 680         xVBAControl.set( new ScVbaScrollBar( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 681     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoMultiPageModel" ) )
 682         xVBAControl.set( new ScVbaMultiPage( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 683     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoControlSpinButtonModel" ) )
 684         xVBAControl.set( new ScVbaSpinButton( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 685     else if ( xServiceInfo->supportsService( "com.sun.star.custom.awt.UnoControlSystemAXContainerModel" ) )
 686         xVBAControl.set( new VbaSystemAXControl( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 687     // #FIXME implement a page control
 688     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoPageModel" ) )
 689         xVBAControl.set( new ScVbaControl( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper) ) );
 690     else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoFrameModel" ) )
 691         xVBAControl.set( new ScVbaFrame( xVbaParent, xContext, xControl, xModel, std::move(xGeoHelper), xDialog ) );
 692     if( xVBAControl.is() )
 693         return xVBAControl;
 694     throw uno::RuntimeException( "Unsupported control." );
 695 }
 696
 697 OUString
 698 ScVbaControl::getServiceImplName()
 699 {
 700     return OUString("ScVbaControl");
 701 }
 702
 703 uno::Sequence< OUString >
 704 ScVbaControl::getServiceNames()
 705 {
 706     static uno::Sequence< OUString > aServiceNames;
 707     if ( aServiceNames.getLength() == 0 )
 708     {
 709         aServiceNames.realloc( 1 );
 710         aServiceNames[ 0 ] = "ooo.vba.excel.Control";
 711     }
 712     return aServiceNames;
 713 }
 714
 715 sal_Int32 const nSysCols[] = { 0xC8D0D4, 0x0, 0x6A240A, 0x808080, 0xE4E4E4, 0xFFFFFF, 0x0, 0x0, 0x0, 0xFFFFFF, 0xE4E4E4, 0xE4E4E4, 0x808080, 0x6A240A, 0xFFFFFF, 0xE4E4E4, 0x808080, 0x808080, 0x0, 0xC8D0D4, 0xFFFFFF, 0x404040, 0xE4E4E4, 0x0, 0xE1FFFF };
 716
 717 sal_Int32 ScVbaControl::getBackColor()
 718 {
 719     sal_Int32 nBackColor = 0;
 720     m_xProps->getPropertyValue( "BackgroundColor" ) >>= nBackColor;
 721     return nBackColor;
 722 }
 723
 724 void ScVbaControl::setBackColor( sal_Int32 nBackColor )
 725 {
 726     if ( ( static_cast<sal_uInt32>(nBackColor) >= sal_uInt32(0x80000000) ) &&
 727          ( static_cast<sal_uInt32>(nBackColor) <= sal_uInt32(0x80000000) + SAL_N_ELEMENTS(nSysCols) ) )
 728     {
 729         nBackColor = nSysCols[ nBackColor & 0x0FF];
 730     }
 731     m_xProps->setPropertyValue( "BackgroundColor" , uno::makeAny( XLRGBToOORGB( nBackColor ) ) );
 732 }
 733
 734 bool ScVbaControl::getAutoSize()
 735 {
 736     bool bIsResizeEnabled = false;
 737     uno::Reference< uno::XInterface > xIf( m_xControl, uno::UNO_QUERY_THROW );
 738     SdrObject* pObj = SdrObject::getSdrObjectFromXShape( xIf );
 739     if ( pObj )
 740         bIsResizeEnabled = !pObj->IsResizeProtect();
 741     return bIsResizeEnabled;
 742 }
 743
 744 // currently no implementation for this
 745 void ScVbaControl::setAutoSize( bool bAutoSize )
 746 {
 747     uno::Reference< uno::XInterface > xIf( m_xControl, uno::UNO_QUERY_THROW );
 748     SdrObject* pObj = SdrObject::getSdrObjectFromXShape( xIf );
 749     if ( pObj )
 750         pObj->SetResizeProtect( !bAutoSize );
 751 }
 752
 753 bool ScVbaControl::getLocked()
 754 {
 755     bool bRes( false );
 756     m_xProps->getPropertyValue( "ReadOnly" ) >>= bRes;
 757     return bRes;
 758 }
 759
 760 void ScVbaControl::setLocked( bool bLocked )
 761 {
 762     m_xProps->setPropertyValue( "ReadOnly" , uno::makeAny( bLocked ) );
 763 }
 764
 765 class ControlProviderImpl : public cppu::WeakImplHelper< XControlProvider >
 766 {
 767     uno::Reference< uno::XComponentContext > m_xCtx;
 768 public:
 769     explicit ControlProviderImpl( const uno::Reference< uno::XComponentContext >& xCtx ) : m_xCtx( xCtx ) {}
 770     virtual uno::Reference< msforms::XControl > SAL_CALL createControl( const uno::Reference< drawing::XControlShape >& xControl, const uno::Reference< frame::XModel >& xDocOwner ) override;
 771 };
 772
 773 uno::Reference< msforms::XControl > SAL_CALL
 774 ControlProviderImpl::createControl( const uno::Reference< drawing::XControlShape >& xControlShape, const uno::Reference< frame::XModel >& xDocOwner )
 775 {
 776     uno::Reference< msforms::XControl > xControlToReturn;
 777     if ( xControlShape.is() )
 778         xControlToReturn = ScVbaControlFactory::createShapeControl( m_xCtx, xControlShape, xDocOwner );
 779     return xControlToReturn;
 780
 781 }
 782
 783 namespace controlprovider
 784 {
 785 namespace sdecl = comphelper::service_decl;
 786 sdecl::class_<ControlProviderImpl, sdecl::with_args<false> > const serviceImpl;
 787 sdecl::ServiceDecl const serviceDecl(
 788     serviceImpl,
 789     "ControlProviderImpl",
 790     "ooo.vba.ControlProvider" );
 791 }
 792
 793
 794 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */