svx/source/unodraw/unoshap4.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: unoshap4.cxx,v $
  10  * $Revision: 1.38 $
  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
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_svx.hxx"
  33 #include <com/sun/star/util/XModifiable.hpp>
  34 #include <com/sun/star/embed/XLinkageSupport.hpp>
  35 #include <com/sun/star/embed/NoVisualAreaSizeException.hpp>
  36 #include <com/sun/star/task/XInteractionHandler.hpp>
  37
  38 #define _SVX_USE_UNOGLOBALS_
  39
  40 #include <vcl/virdev.hxx>
  41 #include <svx/svdoole2.hxx>
  42 #include <svx/svdomedia.hxx>
  43
  44 #ifndef SVX_LIGHT
  45 #ifndef _SOT_CLSIDS_HXX
  46 #include <sot/clsids.hxx>
  47 #endif
  48 #include <sfx2/frmdescr.hxx>
  49 #endif
  50 #include <vcl/svapp.hxx>
  51 #include <vos/mutex.hxx>
  52
  53 #include <toolkit/helper/vclunohelper.hxx>
  54 #include <sfx2/objsh.hxx>
  55 #include <sfx2/docfile.hxx>
  56
  57 #include <sot/storage.hxx>
  58 #include <sot/exchange.hxx>
  59 #include <svtools/FilterConfigItem.hxx>
  60
  61 #include <svx/svdmodel.hxx>
  62 #include "shapeimpl.hxx"
  63
  64 #include <svx/unoshprp.hxx>
  65
  66 #include "unoapi.hxx"
  67 #include "svx/svdpagv.hxx"
  68 #include "svx/svdview.hxx"
  69 #include "svdglob.hxx"
  70 #include "svdstr.hrc"
  71
  72 ///////////////////////////////////////////////////////////////////////
  73
  74 extern sal_Bool ConvertGDIMetaFileToWMF( const GDIMetaFile & rMTF, SvStream & rTargetStream, FilterConfigItem* pFilterConfigItem = NULL, sal_Bool bPlaceable = sal_True );
  75
  76 ///////////////////////////////////////////////////////////////////////
  77
  78 using namespace ::osl;
  79 using namespace ::vos;
  80 using namespace ::rtl;
  81 using namespace ::cppu;
  82 using namespace ::com::sun::star;
  83 using namespace ::com::sun::star::uno;
  84 using namespace ::com::sun::star::lang;
  85 using namespace ::com::sun::star::container;
  86 using namespace ::com::sun::star::beans;
  87
  88 ///////////////////////////////////////////////////////////////////////
  89 SvxOle2Shape::SvxOle2Shape( SdrObject* pObject ) throw()
  90 : SvxShape( pObject, aSvxMapProvider.GetMap(SVXMAP_OLE2), aSvxMapProvider.GetPropertySet(SVXMAP_OLE2)  )
  91 {
  92 }
  93
  94 SvxOle2Shape::SvxOle2Shape( SdrObject* pObject, const SfxItemPropertyMapEntry* pPropertyMap, const SvxItemPropertySet* pPropertySet ) throw ()
  95 : SvxShape( pObject, pPropertyMap, pPropertySet  )
  96 {
  97 }
  98
  99 SvxOle2Shape::~SvxOle2Shape() throw()
 100 {
 101 }
 102
 103 ::com::sun::star::uno::Any SAL_CALL SvxOle2Shape::queryAggregation( const ::com::sun::star::uno::Type & rType ) throw(::com::sun::star::uno::RuntimeException)
 104 {
 105     return SvxShape::queryAggregation( rType );
 106 }
 107
 108 //XPropertySet
 109 bool SvxOle2Shape::setPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 110 {
 111     switch( pProperty->nWID )
 112     {
 113 /*
 114     case OWN_ATTR_CLSID:
 115     {
 116         OUString aCLSID;
 117         if( rValue >>= aCLSID )
 118         {
 119             // init an ole object with a global name
 120             SdrOle2Obj* pOle2 = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 121             if( pOle2 )
 122             {
 123                 uno::Reference < embed::XEmbeddedObject > xObj = pOle2->GetObjRef();
 124                 if ( !xObj.is() )
 125                 {
 126                     SvGlobalName aClassName;
 127                     if( aClassName.MakeId( aCLSID ) )
 128                     {
 129                         SfxObjectShell* pPersist = mpModel->GetPersist();
 130                         ::rtl::OUString aPersistName;
 131                         Any aAny( getPropertyValue( OUString::createFromAscii( UNO_NAME_OLE2_PERSISTNAME ) ) );
 132                         aAny >>= aPersistName;
 133
 134                         //TODO/LATER: how to cope with creation failure?!
 135                         xObj = pPersist->GetEmbeddedObjectContainer().CreateEmbeddedObject( aClassName.GetByteSequence(), aPersistName );
 136                         if( xObj.is() )
 137                         {
 138                             aAny <<= aPersistName;
 139                             setPropertyValue( OUString::createFromAscii( UNO_NAME_OLE2_PERSISTNAME ), aAny );
 140                             pOle2->SetObjRef( xObj );
 141
 142                             Rectangle aRect = pOle2->GetLogicRect();
 143                             awt::Size aSz;
 144                             Size aSize( pOle2->GetLogicRect().GetSize() );
 145                             aSz.Width = aSize.Width();
 146                             aSz.Height = aSize.Height();
 147                             xObj->setVisualAreaSize( pOle2->GetAspect(), aSz );
 148                         }
 149                     }
 150                 }
 151             }
 152             return true;
 153         }
 154         break;
 155     }
 156 */
 157     case OWN_ATTR_OLE_VISAREA:
 158     {
 159         // TODO/LATER: seems to make no sence for iconified object
 160
 161         awt::Rectangle aVisArea;
 162         if( (rValue >>= aVisArea) && mpObj->ISA(SdrOle2Obj))
 163         {
 164             Size aTmp( aVisArea.X + aVisArea.Width, aVisArea.Y + aVisArea.Height );
 165             uno::Reference < embed::XEmbeddedObject > xObj = ((SdrOle2Obj*)mpObj.get())->GetObjRef();
 166             if( xObj.is() )
 167             {
 168                 try
 169                 {
 170                     MapUnit aMapUnit( MAP_100TH_MM ); // the API handles with MAP_100TH_MM map mode
 171                     MapUnit aObjUnit = VCLUnoHelper::UnoEmbed2VCLMapUnit( xObj->getMapUnit( embed::Aspects::MSOLE_CONTENT ) );
 172                     aTmp = OutputDevice::LogicToLogic( aTmp, aMapUnit, aObjUnit );
 173                     xObj->setVisualAreaSize( embed::Aspects::MSOLE_CONTENT, awt::Size( aTmp.Width(), aTmp.Height() ) );
 174                 }
 175                 catch( uno::Exception& )
 176                 {
 177                     OSL_ENSURE( sal_False, "Couldn't set the visual area for the object!\n" );
 178                 }
 179             }
 180
 181             return true;
 182         }
 183         break;
 184     }
 185     case OWN_ATTR_OLE_ASPECT:
 186     {
 187         sal_Int64 nAspect = 0;
 188         if( rValue >>= nAspect )
 189         {
 190             static_cast<SdrOle2Obj*>(mpObj.get())->SetAspect( nAspect );
 191             return true;
 192         }
 193         break;
 194     }
 195     case OWN_ATTR_CLSID:
 196     {
 197         OUString aCLSID;
 198         if( rValue >>= aCLSID )
 199         {
 200             // init a ole object with a global name
 201             SvGlobalName aClassName;
 202             if( aClassName.MakeId( aCLSID ) )
 203             {
 204                 if( createObject( aClassName ) )
 205                     return true;
 206             }
 207         }
 208         break;
 209     }
 210     case OWN_ATTR_THUMBNAIL:
 211     {
 212         OUString aURL;
 213         if( rValue >>= aURL )
 214         {
 215             GraphicObject aGrafObj( CreateGraphicObjectFromURL( aURL ) );
 216             static_cast<SdrOle2Obj*>(mpObj.get())->SetGraphic( &aGrafObj.GetGraphic() );
 217             return true;
 218         }
 219         break;
 220     }
 221     case OWN_ATTR_VALUE_GRAPHIC:
 222     {
 223         uno::Reference< graphic::XGraphic > xGraphic( rValue, uno::UNO_QUERY );
 224         if( xGraphic.is() )
 225         {
 226             SdrOle2Obj* pOle = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 227             if( pOle )
 228             {
 229                 GraphicObject aGrafObj( xGraphic );
 230                 const Graphic aGraphic( aGrafObj.GetGraphic() );
 231                 pOle->SetGraphicToObj( aGraphic, rtl::OUString() );
 232             }
 233             return true;
 234         }
 235         break;
 236     }
 237     case OWN_ATTR_PERSISTNAME:
 238     {
 239         OUString aPersistName;
 240         if( rValue >>= aPersistName )
 241         {
 242             static_cast<SdrOle2Obj*>(mpObj.get())->SetPersistName( aPersistName );
 243             return true;
 244         }
 245         break;
 246     }
 247     case OWN_ATTR_OLE_LINKURL:
 248     {
 249         OUString aLinkURL;
 250         if( rValue >>= aLinkURL )
 251         {
 252             createLink( aLinkURL );
 253             return true;
 254         }
 255         break;
 256     }
 257     default:
 258         return SvxShape::setPropertyValueImpl( rName, pProperty, rValue );
 259     }
 260
 261     throw IllegalArgumentException();
 262 }
 263
 264 bool SvxOle2Shape::getPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 265 {
 266     switch( pProperty->nWID )
 267     {
 268     case OWN_ATTR_CLSID:
 269     {
 270         OUString aCLSID;
 271         SvGlobalName aClassName = GetClassName_Impl(aCLSID);
 272         rValue <<= aCLSID;
 273         break;
 274     }
 275
 276     case OWN_ATTR_INTERNAL_OLE:
 277     {
 278         rtl::OUString sCLSID;
 279         rValue <<= SotExchange::IsInternal( GetClassName_Impl(sCLSID) );
 280         break;
 281     }
 282
 283     case OWN_ATTR_METAFILE:
 284     {
 285         SdrOle2Obj* pObj = dynamic_cast<SdrOle2Obj*>(mpObj.get());
 286         if( pObj )
 287         {
 288             Graphic* pGraphic = pObj->GetGraphic();
 289             if( pGraphic )
 290             {
 291                 BOOL bIsWMF = FALSE;
 292                 if ( pGraphic->IsLink() )
 293                 {
 294                     GfxLink aLnk = pGraphic->GetLink();
 295                     if ( aLnk.GetType() == GFX_LINK_TYPE_NATIVE_WMF )
 296                     {
 297                         bIsWMF = TRUE;
 298                         uno::Sequence<sal_Int8> aSeq((sal_Int8*)aLnk.GetData(), (sal_Int32) aLnk.GetDataSize());
 299                         rValue <<= aSeq;
 300                     }
 301                 }
 302                 if ( !bIsWMF )
 303                 {
 304                     GDIMetaFile aMtf;
 305                     if ( pGraphic->GetType() != GRAPHIC_BITMAP )
 306                         aMtf = pObj->GetGraphic()->GetGDIMetaFile();
 307                     else
 308                     {
 309                         VirtualDevice aVirDev;
 310                         aMtf.Record( &aVirDev );
 311                         pGraphic->Draw( &aVirDev, Point(),  pGraphic->GetPrefSize() );
 312                         aMtf.Stop();
 313                         aMtf.SetPrefSize( pGraphic->GetPrefSize() );
 314                         aMtf.SetPrefMapMode( pGraphic->GetPrefMapMode() );
 315                     }
 316                     SvMemoryStream aDestStrm( 65535, 65535 );
 317                     ConvertGDIMetaFileToWMF( aMtf, aDestStrm, NULL, sal_False );
 318                     uno::Sequence<sal_Int8> aSeq((sal_Int8*)aDestStrm.GetData(), aDestStrm.GetSize());
 319                     rValue <<= aSeq;
 320                 }
 321             }
 322         }
 323         else
 324         {
 325             rValue = GetBitmap( sal_True );
 326         }
 327         break;
 328     }
 329
 330     case OWN_ATTR_OLE_VISAREA:
 331     {
 332         awt::Rectangle aVisArea;
 333         if( mpObj->ISA(SdrOle2Obj))
 334         {
 335             MapMode aMapMode( MAP_100TH_MM ); // the API uses this map mode
 336             Size aTmp = ((SdrOle2Obj*)mpObj.get())->GetOrigObjSize( &aMapMode ); // get the size in the requested map mode
 337             aVisArea = awt::Rectangle( 0, 0, aTmp.Width(), aTmp.Height() );
 338         }
 339
 340         rValue <<= aVisArea;
 341         break;
 342     }
 343
 344     case OWN_ATTR_OLESIZE:
 345     {
 346         Size aTmp( static_cast<SdrOle2Obj*>(mpObj.get())->GetOrigObjSize() );
 347         rValue <<= awt::Size( aTmp.Width(), aTmp.Height() );
 348         break;
 349     }
 350
 351     case OWN_ATTR_OLE_ASPECT:
 352     {
 353         rValue <<= static_cast<SdrOle2Obj*>(mpObj.get())->GetAspect();
 354         break;
 355     }
 356
 357     case OWN_ATTR_OLEMODEL:
 358     case OWN_ATTR_OLE_EMBEDDED_OBJECT:
 359     {
 360         SdrOle2Obj* pObj = dynamic_cast<SdrOle2Obj*>( mpObj.get() );
 361         if( pObj )
 362         {
 363             uno::Reference < embed::XEmbeddedObject > xObj( pObj->GetObjRef() );
 364             if ( xObj.is()
 365               && ( pProperty->nWID == OWN_ATTR_OLE_EMBEDDED_OBJECT || svt::EmbeddedObjectRef::TryRunningState( xObj ) ) )
 366             {
 367                 // Discussed with CL fue to the before GetPaintingPageView
 368                 // usage. Removed it, former fallback is used now
 369 #ifdef DBG_UTIL
 370                 const sal_Bool bSuccess(pObj->AddOwnLightClient());
 371                 OSL_ENSURE( bSuccess, "An object without client is provided!" );
 372 #else
 373                 pObj->AddOwnLightClient();
 374 #endif
 375
 376                 if ( pProperty->nWID == OWN_ATTR_OLEMODEL )
 377                     rValue <<= pObj->GetObjRef()->getComponent();
 378                 else
 379                     rValue <<= xObj;
 380             }
 381         }
 382         break;
 383     }
 384
 385     case OWN_ATTR_VALUE_GRAPHIC:
 386     {
 387         uno::Reference< graphic::XGraphic > xGraphic;
 388         Graphic* pGraphic = static_cast<SdrOle2Obj*>( mpObj.get() )->GetGraphic();
 389         if( pGraphic )
 390             xGraphic = pGraphic->GetXGraphic();
 391         rValue <<= xGraphic;
 392         break;
 393     }
 394
 395     case OWN_ATTR_THUMBNAIL:
 396     {
 397         OUString    aURL;
 398         SdrOle2Obj* pOle = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 399         if( pOle )
 400         {
 401             Graphic* pGraphic = pOle->GetGraphic();
 402
 403             // if there isn't already a preview graphic set, check if we need to generate
 404             // one if model says so
 405             if( pGraphic == NULL && !pOle->IsEmptyPresObj() && mpModel->IsSaveOLEPreview() )
 406                 pGraphic = pOle->GetGraphic();
 407
 408             if( pGraphic )
 409             {
 410                 GraphicObject aObj( *pGraphic );
 411                 aURL = OUString(RTL_CONSTASCII_USTRINGPARAM(UNO_NAME_GRAPHOBJ_URLPREFIX));
 412                 aURL += OUString::createFromAscii( aObj.GetUniqueID().GetBuffer() );
 413             }
 414         }
 415         rValue <<= aURL;
 416         break;
 417     }
 418     case OWN_ATTR_PERSISTNAME:
 419     {
 420         OUString    aPersistName;
 421         SdrOle2Obj* pOle = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 422
 423         if( pOle )
 424         {
 425             aPersistName = pOle->GetPersistName();
 426             if( aPersistName.getLength() )
 427             {
 428                 ::comphelper::IEmbeddedHelper *pPersist = mpObj->GetModel()->GetPersist();
 429                 if( (NULL == pPersist) || !pPersist->getEmbeddedObjectContainer().HasEmbeddedObject( pOle->GetPersistName() ) )
 430                     aPersistName = OUString();
 431             }
 432         }
 433
 434         rValue <<= aPersistName;
 435         break;
 436     }
 437     case OWN_ATTR_OLE_LINKURL:
 438     {
 439         OUString    aLinkURL;
 440         SdrOle2Obj* pOle = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 441
 442         if( pOle )
 443         {
 444             uno::Reference< embed::XLinkageSupport > xLink( pOle->GetObjRef(), uno::UNO_QUERY );
 445             if ( xLink.is() && xLink->isLink() )
 446                 aLinkURL = xLink->getLinkURL();
 447         }
 448
 449         rValue <<= aLinkURL;
 450         break;
 451     }
 452     default:
 453         return SvxShape::getPropertyValueImpl( rName, pProperty, rValue );
 454     }
 455
 456     return true;
 457 }
 458
 459 sal_Bool SvxOle2Shape::createObject( const SvGlobalName &aClassName )
 460 {
 461     DBG_TESTSOLARMUTEX();
 462
 463     SdrOle2Obj* pOle2Obj = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 464     if ( !pOle2Obj || !pOle2Obj->IsEmpty() )
 465         return sal_False;
 466
 467     // create storage and inplace object
 468     ::comphelper::IEmbeddedHelper*     pPersist = mpModel->GetPersist();
 469     ::rtl::OUString              aPersistName;
 470     OUString            aTmpStr;
 471     if( getPropertyValue( OUString::createFromAscii( UNO_NAME_OLE2_PERSISTNAME ) ) >>= aTmpStr )
 472         aPersistName = aTmpStr;
 473
 474     //TODO/LATER: how to cope with creation failure?!
 475     uno::Reference < embed::XEmbeddedObject > xObj( pPersist->getEmbeddedObjectContainer().CreateEmbeddedObject( aClassName.GetByteSequence(), aPersistName ) );
 476     if( xObj.is() )
 477     {
 478         Rectangle aRect = pOle2Obj->GetLogicRect();
 479         if ( aRect.GetWidth() == 100 && aRect.GetHeight() == 100 )
 480         {
 481             // TODO/LATER: is it possible that this method is used to create an iconified object?
 482             // default size
 483             try
 484             {
 485                 awt::Size aSz = xObj->getVisualAreaSize( pOle2Obj->GetAspect() );
 486                 aRect.SetSize( Size( aSz.Width, aSz.Height ) );
 487             }
 488             catch( embed::NoVisualAreaSizeException& )
 489             {}
 490             pOle2Obj->SetLogicRect( aRect );
 491         }
 492         else
 493         {
 494             awt::Size aSz;
 495             Size aSize = pOle2Obj->GetLogicRect().GetSize();
 496             aSz.Width = aSize.Width();
 497             aSz.Height = aSize.Height();
 498             xObj->setVisualAreaSize(  pOle2Obj->GetAspect(), aSz );
 499         }
 500
 501         // connect the object after the visual area is set
 502         setPropertyValue( OUString::createFromAscii( UNO_NAME_OLE2_PERSISTNAME ), Any( aTmpStr = aPersistName ) );
 503
 504         // the object is inserted during setting of PersistName property usually
 505         if( pOle2Obj->IsEmpty() )
 506             pOle2Obj->SetObjRef( xObj );
 507     }
 508
 509     return xObj.is();
 510 }
 511
 512 sal_Bool SvxOle2Shape::createLink( const ::rtl::OUString& aLinkURL )
 513 {
 514     DBG_TESTSOLARMUTEX();
 515
 516     SdrOle2Obj* pOle2Obj = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 517     if ( !pOle2Obj || !pOle2Obj->IsEmpty() )
 518         return sal_False;
 519
 520     ::rtl::OUString aPersistName;
 521
 522     ::comphelper::IEmbeddedHelper* pPersist = mpModel->GetPersist();
 523
 524     uno::Sequence< beans::PropertyValue > aMediaDescr( 1 );
 525     aMediaDescr[0].Name = ::rtl::OUString::createFromAscii( "URL" );
 526     aMediaDescr[0].Value <<= aLinkURL;
 527
 528     uno::Reference< task::XInteractionHandler > xInteraction = pPersist->getInteractionHandler();
 529     if ( xInteraction.is() )
 530     {
 531         aMediaDescr.realloc( 2 );
 532         aMediaDescr[1].Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "InteractionHandler" ) );
 533         aMediaDescr[1].Value <<= xInteraction;
 534     }
 535
 536     //TODO/LATER: how to cope with creation failure?!
 537     uno::Reference< embed::XEmbeddedObject > xObj =
 538             pPersist->getEmbeddedObjectContainer().InsertEmbeddedLink( aMediaDescr , aPersistName );
 539
 540     if( xObj.is() )
 541     {
 542         Rectangle aRect = pOle2Obj->GetLogicRect();
 543         if ( aRect.GetWidth() == 100 && aRect.GetHeight() == 100 )
 544         {
 545             // default size
 546             try
 547             {
 548                 awt::Size aSz = xObj->getVisualAreaSize( pOle2Obj->GetAspect() );
 549                 aRect.SetSize( Size( aSz.Width, aSz.Height ) );
 550             }
 551             catch( embed::NoVisualAreaSizeException& )
 552             {}
 553             pOle2Obj->SetLogicRect( aRect );
 554         }
 555         else
 556         {
 557             awt::Size aSz;
 558             Size aSize = pOle2Obj->GetLogicRect().GetSize();
 559             aSz.Width = aSize.Width();
 560             aSz.Height = aSize.Height();
 561             xObj->setVisualAreaSize(  pOle2Obj->GetAspect(), aSz );
 562         }
 563
 564         // connect the object after the visual area is set
 565         setPropertyValue( OUString::createFromAscii( UNO_NAME_OLE2_PERSISTNAME ), uno::makeAny( aPersistName ) );
 566
 567         // the object is inserted during setting of PersistName property usually
 568         if ( pOle2Obj->IsEmpty() )
 569             pOle2Obj->SetObjRef( xObj );
 570     }
 571
 572     return xObj.is();
 573 }
 574
 575 void SvxOle2Shape::resetModifiedState()
 576 {
 577     ::comphelper::IEmbeddedHelper* pPersist = mpModel ? mpModel->GetPersist() : 0;
 578     if( pPersist && !pPersist->isEnableSetModified() )
 579     {
 580         SdrOle2Obj* pOle = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 581         if( pOle && !pOle->IsEmpty() )
 582         {
 583             uno::Reference < util::XModifiable > xMod( pOle->GetObjRef(), uno::UNO_QUERY );
 584             if( xMod.is() )
 585                 // TODO/MBA: what's this?!
 586                 xMod->setModified( sal_False );
 587         }
 588     }
 589 }
 590
 591 const SvGlobalName SvxOle2Shape::GetClassName_Impl(rtl::OUString& rHexCLSID)
 592 {
 593     DBG_TESTSOLARMUTEX();
 594     SvGlobalName aClassName;
 595     SdrOle2Obj* pOle2Obj = dynamic_cast< SdrOle2Obj* >( mpObj.get() );
 596
 597     if( pOle2Obj )
 598     {
 599         rHexCLSID = rtl::OUString();
 600
 601         if( pOle2Obj->IsEmpty() )
 602         {
 603             ::comphelper::IEmbeddedHelper* pPersist = mpModel->GetPersist();
 604             if( pPersist )
 605             {
 606                 uno::Reference < embed::XEmbeddedObject > xObj =
 607                         pPersist->getEmbeddedObjectContainer().GetEmbeddedObject( pOle2Obj->GetPersistName() );
 608                 if ( xObj.is() )
 609                 {
 610                     aClassName = SvGlobalName( xObj->getClassID() );
 611                     rHexCLSID = aClassName.GetHexName();
 612                 }
 613             }
 614         }
 615
 616         if (!rHexCLSID.getLength())
 617         {
 618             uno::Reference < embed::XEmbeddedObject > xObj( pOle2Obj->GetObjRef() );
 619             if ( xObj.is() )
 620             {
 621                 aClassName = SvGlobalName( xObj->getClassID() );
 622                 rHexCLSID = aClassName.GetHexName();
 623             }
 624         }
 625     }
 626
 627     return aClassName;
 628 }
 629
 630 ///////////////////////////////////////////////////////////////////////
 631
 632 SvxAppletShape::SvxAppletShape( SdrObject* pObject ) throw()
 633 : SvxOle2Shape( pObject, aSvxMapProvider.GetMap(SVXMAP_APPLET), aSvxMapProvider.GetPropertySet(SVXMAP_APPLET)  )
 634 {
 635     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.AppletShape" ) ) );
 636 }
 637
 638 SvxAppletShape::~SvxAppletShape() throw()
 639 {
 640 }
 641
 642 void SvxAppletShape::Create( SdrObject* pNewObj, SvxDrawPage* pNewPage )
 643 {
 644     SvxShape::Create( pNewObj, pNewPage );
 645     const SvGlobalName aAppletClassId( SO3_APPLET_CLASSID );
 646     createObject(aAppletClassId);
 647     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.AppletShape" ) ) );
 648 }
 649
 650 void SAL_CALL SvxAppletShape::setPropertyValue( const ::rtl::OUString& aPropertyName, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 651 {
 652     SvxShape::setPropertyValue( aPropertyName, rValue );
 653     resetModifiedState();
 654 }
 655
 656 void SAL_CALL SvxAppletShape::setPropertyValues( const ::com::sun::star::uno::Sequence< ::rtl::OUString >& aPropertyNames, const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& rValues ) throw (::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 657 {
 658     SvxShape::setPropertyValues( aPropertyNames, rValues );
 659     resetModifiedState();
 660 }
 661
 662 bool SvxAppletShape::setPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 663 {
 664     if( (pProperty->nWID >= OWN_ATTR_APPLET_DOCBASE) && (pProperty->nWID <= OWN_ATTR_APPLET_ISSCRIPT) )
 665     {
 666         if ( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 667         {
 668             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 669             if( xSet.is() )
 670             {
 671                 // allow exceptions to pass through
 672                 xSet->setPropertyValue( rName, rValue );
 673             }
 674         }
 675         return true;
 676     }
 677     else
 678     {
 679         return SvxOle2Shape::setPropertyValueImpl( rName, pProperty, rValue );
 680     }
 681 }
 682
 683 bool SvxAppletShape::getPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 684 {
 685     if( (pProperty->nWID >= OWN_ATTR_APPLET_DOCBASE) && (pProperty->nWID <= OWN_ATTR_APPLET_ISSCRIPT) )
 686     {
 687         if ( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 688         {
 689             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 690             if( xSet.is() )
 691             {
 692                 rValue = xSet->getPropertyValue( rName );
 693             }
 694         }
 695         return true;
 696     }
 697     else
 698     {
 699         return SvxOle2Shape::getPropertyValueImpl( rName, pProperty, rValue );
 700     }
 701 }
 702
 703 ///////////////////////////////////////////////////////////////////////
 704
 705 SvxPluginShape::SvxPluginShape( SdrObject* pObject ) throw()
 706 : SvxOle2Shape( pObject, aSvxMapProvider.GetMap(SVXMAP_PLUGIN), aSvxMapProvider.GetPropertySet(SVXMAP_PLUGIN) )
 707 {
 708     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.PluginShape" ) ) );
 709 }
 710
 711 SvxPluginShape::~SvxPluginShape() throw()
 712 {
 713 }
 714
 715 void SvxPluginShape::Create( SdrObject* pNewObj, SvxDrawPage* pNewPage )
 716 {
 717     SvxShape::Create( pNewObj, pNewPage );
 718     const SvGlobalName aPluginClassId( SO3_PLUGIN_CLASSID );
 719     createObject(aPluginClassId);
 720     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.PluginShape" ) ) );
 721 }
 722
 723 void SAL_CALL SvxPluginShape::setPropertyValue( const ::rtl::OUString& aPropertyName, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 724 {
 725     SvxShape::setPropertyValue( aPropertyName, rValue );
 726     resetModifiedState();
 727 }
 728
 729 void SAL_CALL SvxPluginShape::setPropertyValues( const ::com::sun::star::uno::Sequence< ::rtl::OUString >& aPropertyNames, const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& rValues ) throw (::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 730 {
 731     SvxOle2Shape::setPropertyValues( aPropertyNames, rValues );
 732     resetModifiedState();
 733 }
 734
 735 bool SvxPluginShape::setPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 736 {
 737     if( (pProperty->nWID >= OWN_ATTR_PLUGIN_MIMETYPE) && (pProperty->nWID <= OWN_ATTR_PLUGIN_COMMANDS) )
 738     {
 739         if( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 740         {
 741             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 742             if( xSet.is() )
 743             {
 744                 // allow exceptions to pass through
 745                 xSet->setPropertyValue( rName, rValue );
 746             }
 747         }
 748         return true;
 749     }
 750     else
 751     {
 752         return SvxOle2Shape::setPropertyValueImpl( rName, pProperty, rValue );
 753     }
 754 }
 755
 756 bool SvxPluginShape::getPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 757 {
 758     if( (pProperty->nWID >= OWN_ATTR_PLUGIN_MIMETYPE) && (pProperty->nWID <= OWN_ATTR_PLUGIN_COMMANDS) )
 759     {
 760         if( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 761         {
 762             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 763             if( xSet.is() )
 764             {
 765                 rValue <<= xSet->getPropertyValue( rName );
 766             }
 767         }
 768         return true;
 769     }
 770     else
 771     {
 772         return SvxOle2Shape::getPropertyValueImpl( rName, pProperty, rValue );
 773     }
 774 }
 775
 776 ///////////////////////////////////////////////////////////////////////
 777
 778 SvxFrameShape::SvxFrameShape( SdrObject* pObject ) throw()
 779 : SvxOle2Shape( pObject, aSvxMapProvider.GetMap(SVXMAP_FRAME), aSvxMapProvider.GetPropertySet(SVXMAP_FRAME)  )
 780 {
 781     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.FrameShape" ) ) );
 782 }
 783
 784 SvxFrameShape::~SvxFrameShape() throw()
 785 {
 786 }
 787
 788 void SvxFrameShape::Create( SdrObject* pNewObj, SvxDrawPage* pNewPage ) throw ()
 789 {
 790     SvxShape::Create( pNewObj, pNewPage );
 791     const SvGlobalName aIFrameClassId( SO3_IFRAME_CLASSID );
 792     createObject(aIFrameClassId);
 793     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.FrameShape" ) ) );
 794 }
 795
 796 void SAL_CALL SvxFrameShape::setPropertyValue( const ::rtl::OUString& aPropertyName, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 797 {
 798     SvxShape::setPropertyValue( aPropertyName, rValue );
 799     resetModifiedState();
 800 }
 801
 802 void SAL_CALL SvxFrameShape::setPropertyValues( const ::com::sun::star::uno::Sequence< ::rtl::OUString >& aPropertyNames, const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& rValues ) throw (::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 803 {
 804     SvxOle2Shape::setPropertyValues( aPropertyNames, rValues );
 805     resetModifiedState();
 806 }
 807
 808 bool SvxFrameShape::setPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 809 {
 810     if( (pProperty->nWID >= OWN_ATTR_FRAME_URL) && (pProperty->nWID <= OWN_ATTR_FRAME_MARGIN_HEIGHT) )
 811     {
 812         if( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 813         {
 814             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 815             if( xSet.is() )
 816             {
 817                 // allow exceptions to pass through
 818                 xSet->setPropertyValue( rName, rValue );
 819             }
 820         }
 821         return true;
 822     }
 823     else
 824     {
 825         return SvxOle2Shape::setPropertyValueImpl( rName, pProperty, rValue );
 826     }
 827 }
 828
 829 bool SvxFrameShape::getPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 830 {
 831     if( (pProperty->nWID >= OWN_ATTR_FRAME_URL) && (pProperty->nWID <= OWN_ATTR_FRAME_MARGIN_HEIGHT) )
 832     {
 833         if( svt::EmbeddedObjectRef::TryRunningState( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef() ) )
 834         {
 835             uno::Reference < beans::XPropertySet > xSet( static_cast<SdrOle2Obj*>(mpObj.get())->GetObjRef()->getComponent(), uno::UNO_QUERY );
 836             if( xSet.is() )
 837             {
 838                 rValue <<= xSet->getPropertyValue( rName );
 839             }
 840         }
 841         return true;
 842     }
 843     else
 844     {
 845         return SvxOle2Shape::getPropertyValueImpl( rName, pProperty, rValue );
 846     }
 847 }
 848
 849 /***********************************************************************
 850 *                                                                      *
 851 ***********************************************************************/
 852
 853 SvxMediaShape::SvxMediaShape( SdrObject* pObj ) throw()
 854 :       SvxShape( pObj, aSvxMapProvider.GetMap(SVXMAP_MEDIA), aSvxMapProvider.GetPropertySet(SVXMAP_MEDIA) )
 855 {
 856     SetShapeType( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.MediaShape" ) ) );
 857 }
 858
 859 //----------------------------------------------------------------------
 860 SvxMediaShape::~SvxMediaShape() throw()
 861 {
 862 }
 863
 864 //----------------------------------------------------------------------
 865
 866 bool SvxMediaShape::setPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, const ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::beans::PropertyVetoException, ::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 867 {
 868     if( (pProperty->nWID >= OWN_ATTR_MEDIA_URL) && (pProperty->nWID <= OWN_ATTR_MEDIA_ZOOM) )
 869     {
 870         SdrMediaObj* pMedia = static_cast< SdrMediaObj* >( mpObj.get() );
 871         ::avmedia::MediaItem aItem;
 872         bool bOk = false;
 873
 874         switch( pProperty->nWID )
 875         {
 876         case OWN_ATTR_MEDIA_URL:
 877         {
 878             OUString aURL;
 879             if( rValue >>= aURL )
 880             {
 881                 bOk = true;
 882                 aItem.setURL( aURL );
 883             }
 884         }
 885         break;
 886
 887         case( OWN_ATTR_MEDIA_LOOP ):
 888         {
 889             sal_Bool bLoop = sal_Bool();
 890
 891             if( rValue >>= bLoop )
 892             {
 893                 bOk = true;
 894                 aItem.setLoop( bLoop );
 895             }
 896         }
 897         break;
 898
 899         case( OWN_ATTR_MEDIA_MUTE ):
 900         {
 901             sal_Bool bMute = sal_Bool();
 902
 903             if( rValue >>= bMute )
 904             {
 905                 bOk = true;
 906                 aItem.setMute( bMute );
 907             }
 908         }
 909         break;
 910
 911         case( OWN_ATTR_MEDIA_VOLUMEDB ):
 912         {
 913             sal_Int16 nVolumeDB = sal_Int16();
 914
 915             if( rValue >>= nVolumeDB )
 916             {
 917                 bOk = true;
 918                 aItem.setVolumeDB( nVolumeDB );
 919             }
 920         }
 921         break;
 922
 923         case( OWN_ATTR_MEDIA_ZOOM ):
 924         {
 925             ::com::sun::star::media::ZoomLevel eLevel;
 926
 927             if( rValue >>= eLevel )
 928             {
 929                 bOk = true;
 930                 aItem.setZoom( eLevel );
 931             }
 932         }
 933         break;
 934
 935         default:
 936             DBG_ERROR("SvxMediaShape::setPropertyValueImpl(), unknown argument!");
 937         }
 938
 939         if( bOk )
 940         {
 941             pMedia->setMediaProperties( aItem );
 942             return true;
 943         }
 944     }
 945     else
 946     {
 947         return SvxShape::setPropertyValueImpl( rName, pProperty, rValue );
 948     }
 949
 950     throw IllegalArgumentException();
 951 }
 952
 953 //----------------------------------------------------------------------
 954
 955 bool SvxMediaShape::getPropertyValueImpl( const ::rtl::OUString& rName, const SfxItemPropertySimpleEntry* pProperty, ::com::sun::star::uno::Any& rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::lang::WrappedTargetException, ::com::sun::star::uno::RuntimeException)
 956 {
 957     if( ( pProperty->nWID >= OWN_ATTR_MEDIA_URL ) && ( pProperty->nWID <= OWN_ATTR_MEDIA_ZOOM ) )
 958     {
 959         SdrMediaObj* pMedia = static_cast< SdrMediaObj* >( mpObj.get() );
 960         const ::avmedia::MediaItem aItem( pMedia->getMediaProperties() );
 961
 962         switch( pProperty->nWID )
 963         {
 964             case OWN_ATTR_MEDIA_URL:
 965                 rValue <<= aItem.getURL();
 966                 break;
 967
 968             case( OWN_ATTR_MEDIA_LOOP ):
 969                 rValue <<= (sal_Bool) aItem.isLoop();
 970                 break;
 971
 972             case( OWN_ATTR_MEDIA_MUTE ):
 973                 rValue <<= (sal_Bool) aItem.isMute();
 974                 break;
 975
 976             case( OWN_ATTR_MEDIA_VOLUMEDB ):
 977                 rValue <<= (sal_Int16) aItem.getVolumeDB();
 978                 break;
 979
 980             case( OWN_ATTR_MEDIA_ZOOM ):
 981                 rValue <<= aItem.getZoom();
 982                 break;
 983
 984             default:
 985                 DBG_ERROR("SvxMediaShape::getPropertyValueImpl(), unknown property!");
 986         }
 987         return true;
 988     }
 989     else
 990     {
 991         return SvxShape::getPropertyValueImpl( rName, pProperty, rValue );
 992     }
 993 }