sc/source/ui/app/drwtrans.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <com/sun/star/embed/XTransactedObject.hpp>
  21 #include <com/sun/star/embed/XEmbedPersist.hpp>
  22 #include <com/sun/star/uno/Exception.hpp>
  23
  24 #include <com/sun/star/beans/XPropertySet.hpp>
  25 #include <com/sun/star/beans/XPropertySetInfo.hpp>
  26 #include <com/sun/star/form/FormButtonType.hpp>
  27 #include <toolkit/helper/vclunohelper.hxx>
  28 #include <unotools/streamwrap.hxx>
  29
  30 #include <svx/unomodel.hxx>
  31 #include <unotools/tempfile.hxx>
  32 #include <unotools/ucbstreamhelper.hxx>
  33 #include <comphelper/storagehelper.hxx>
  34 #include <comphelper/servicehelper.hxx>
  35
  36 #include <svtools/embedtransfer.hxx>
  37 #include <sot/storage.hxx>
  38 #include <vcl/virdev.hxx>
  39 #include <svx/fmglob.hxx>
  40 #include <svx/svditer.hxx>
  41 #include <svx/svdograf.hxx>
  42 #include <svx/svdoole2.hxx>
  43 #include <svx/svdouno.hxx>
  44 #include <svx/svdpage.hxx>
  45 #include <svx/svdxcgv.hxx>
  46 #include <sfx2/docfile.hxx>
  47 #include <svl/itempool.hxx>
  48 #include <svl/urlbmk.hxx>
  49 #include <tools/urlobj.hxx>
  50 #include <osl/mutex.hxx>
  51
  52 #include "drwtrans.hxx"
  53 #include "docsh.hxx"
  54 #include "drwlayer.hxx"
  55 #include "drawview.hxx"
  56 #include "viewdata.hxx"
  57 #include "scmod.hxx"
  58 #include "chartlis.hxx"
  59 #include "rangeutl.hxx"
  60 #include "formula/grammar.hxx"
  61 #include "dragdata.hxx"
  62 #include "clipdata.hxx"
  63
  64 // #108584#
  65 #include "scitems.hxx"
  66
  67 // #108584#
  68 #include <editeng/eeitem.hxx>
  69
  70 // #108584#
  71 #include <editeng/fhgtitem.hxx>
  72 #include <vcl/svapp.hxx>
  73
  74
  75 using namespace com::sun::star;
  76
  77 // -----------------------------------------------------------------------
  78
  79 #define SCDRAWTRANS_TYPE_EMBOBJ         1
  80 #define SCDRAWTRANS_TYPE_DRAWMODEL      2
  81 #define SCDRAWTRANS_TYPE_DOCUMENT       3
  82
  83 // -----------------------------------------------------------------------
  84
  85 // -----------------------------------------------------------------------
  86
  87 ScDrawTransferObj::ScDrawTransferObj( SdrModel* pClipModel, ScDocShell* pContainerShell,
  88                                         const TransferableObjectDescriptor& rDesc ) :
  89     pModel( pClipModel ),
  90     aObjDesc( rDesc ),
  91     pBookmark( NULL ),
  92     bGraphic( false ),
  93     bGrIsBit( false ),
  94     bOleObj( false ),
  95     pDragSourceView( NULL ),
  96     nDragSourceFlags( 0 ),
  97     bDragWasInternal( false ),
  98     nSourceDocID( 0 )
  99 {
 100     //
 101     //  check what kind of objects are contained
 102     //
 103
 104     SdrPage* pPage = pModel->GetPage(0);
 105     if (pPage)
 106     {
 107         SdrObjListIter aIter( *pPage, IM_FLAT );
 108         SdrObject* pObject = aIter.Next();
 109         if (pObject && !aIter.Next())               // exactly one object?
 110         {
 111             //
 112             //  OLE object
 113             //
 114
 115             sal_uInt16 nSdrObjKind = pObject->GetObjIdentifier();
 116             if (nSdrObjKind == OBJ_OLE2)
 117             {
 118                 // if object has no persistence it must be copied as a part of document
 119                 try
 120                 {
 121                     uno::Reference< embed::XEmbedPersist > xPersObj( ((SdrOle2Obj*)pObject)->GetObjRef(), uno::UNO_QUERY );
 122                     if ( xPersObj.is() && xPersObj->hasEntry() )
 123                         bOleObj = sal_True;
 124                 }
 125                 catch( uno::Exception& )
 126                 {}
 127                 // aOleData is initialized later
 128             }
 129
 130             //
 131             //  Graphic object
 132             //
 133
 134             if (nSdrObjKind == OBJ_GRAF)
 135             {
 136                 bGraphic = sal_True;
 137                 if ( ((SdrGrafObj*)pObject)->GetGraphic().GetType() == GRAPHIC_BITMAP )
 138                     bGrIsBit = sal_True;
 139             }
 140
 141             //
 142             //  URL button
 143             //
 144
 145             SdrUnoObj* pUnoCtrl = PTR_CAST(SdrUnoObj, pObject);
 146             if (pUnoCtrl && FmFormInventor == pUnoCtrl->GetObjInventor())
 147             {
 148                 uno::Reference<awt::XControlModel> xControlModel = pUnoCtrl->GetUnoControlModel();
 149                 OSL_ENSURE( xControlModel.is(), "uno control without model" );
 150                 if ( xControlModel.is() )
 151                 {
 152                     uno::Reference< beans::XPropertySet > xPropSet( xControlModel, uno::UNO_QUERY );
 153                     uno::Reference< beans::XPropertySetInfo > xInfo = xPropSet->getPropertySetInfo();
 154
 155                     OUString sPropButtonType( "ButtonType" );
 156                     OUString sPropTargetURL( "TargetURL" );
 157                     OUString sPropLabel( "Label" );
 158
 159                     if(xInfo->hasPropertyByName( sPropButtonType ))
 160                     {
 161                         uno::Any aAny = xPropSet->getPropertyValue( sPropButtonType );
 162                         form::FormButtonType eTmp;
 163                         if ( (aAny >>= eTmp) && eTmp == form::FormButtonType_URL )
 164                         {
 165                             // URL
 166                             if(xInfo->hasPropertyByName( sPropTargetURL ))
 167                             {
 168                                 aAny = xPropSet->getPropertyValue( sPropTargetURL );
 169                                 OUString sTmp;
 170                                 if ( (aAny >>= sTmp) && !sTmp.isEmpty() )
 171                                 {
 172                                     OUString aUrl = sTmp;
 173                                     OUString aAbs;
 174                                     const SfxMedium* pMedium;
 175                                     if (pContainerShell && (pMedium = pContainerShell->GetMedium()) != NULL)
 176                                     {
 177                                         bool bWasAbs = true;
 178                                         aAbs = pMedium->GetURLObject().smartRel2Abs( aUrl, bWasAbs ).
 179                                                     GetMainURL(INetURLObject::NO_DECODE);
 180                                         // full path as stored INetBookmark must be encoded
 181                                     }
 182                                     else
 183                                         aAbs = aUrl;
 184
 185                                     // Label
 186                                     OUString aLabel;
 187                                     if(xInfo->hasPropertyByName( sPropLabel ))
 188                                     {
 189                                         aAny = xPropSet->getPropertyValue( sPropLabel );
 190                                         if ( (aAny >>= sTmp) && !sTmp.isEmpty() )
 191                                         {
 192                                             aLabel = sTmp;
 193                                         }
 194                                     }
 195                                     pBookmark = new INetBookmark( aAbs, aLabel );
 196                                 }
 197                             }
 198                         }
 199                     }
 200                 }
 201             }
 202         }
 203     }
 204
 205     //
 206     //  get size for object descriptor
 207     //
 208
 209     // #i71538# use complete SdrViews
 210     // SdrExchangeView aView(pModel);
 211     SdrView aView(pModel);
 212     SdrPageView* pPv = aView.ShowSdrPage(aView.GetModel()->GetPage(0));
 213     aView.MarkAllObj(pPv);
 214     aSrcSize = aView.GetAllMarkedRect().GetSize();
 215
 216     if ( bOleObj )              // single OLE object
 217     {
 218         SdrOle2Obj* pObj = GetSingleObject();
 219         if ( pObj && pObj->GetObjRef().is() )
 220             SvEmbedTransferHelper::FillTransferableObjectDescriptor( aObjDesc, pObj->GetObjRef(), pObj->GetGraphic(), pObj->GetAspect() );
 221     }
 222
 223     aObjDesc.maSize = aSrcSize;
 224     PrepareOLE( aObjDesc );
 225
 226     //
 227     // remember a unique ID of the source document
 228     //
 229     if ( pContainerShell )
 230     {
 231         ScDocument* pDoc = pContainerShell->GetDocument();
 232         if ( pDoc )
 233         {
 234             nSourceDocID = pDoc->GetDocumentID();
 235             if ( pPage )
 236             {
 237                 ScChartHelper::FillProtectedChartRangesVector( m_aProtectedChartRangesVector, pDoc, pPage );
 238             }
 239         }
 240     }
 241 }
 242
 243 ScDrawTransferObj::~ScDrawTransferObj()
 244 {
 245     SolarMutexGuard aSolarGuard;
 246
 247     ScModule* pScMod = SC_MOD();
 248     if ( pScMod->GetClipData().pDrawClipboard == this )
 249     {
 250         OSL_FAIL("ScDrawTransferObj wasn't released");
 251         pScMod->SetClipObject( NULL, NULL );
 252     }
 253     if ( pScMod->GetDragData().pDrawTransfer == this )
 254     {
 255         OSL_FAIL("ScDrawTransferObj wasn't released");
 256         pScMod->ResetDragObject();
 257     }
 258
 259     aOleData = TransferableDataHelper();        // clear before releasing the mutex
 260     aDocShellRef.Clear();
 261
 262     delete pModel;
 263     aDrawPersistRef.Clear();                    // after the model
 264
 265     delete pBookmark;
 266     delete pDragSourceView;
 267 }
 268
 269 ScDrawTransferObj* ScDrawTransferObj::GetOwnClipboard( Window* )
 270 {
 271     ScDrawTransferObj* pObj = SC_MOD()->GetClipData().pDrawClipboard;
 272     return pObj;
 273 }
 274
 275 static sal_Bool lcl_HasOnlyControls( SdrModel* pModel )
 276 {
 277     sal_Bool bOnlyControls = false;         // default if there are no objects
 278
 279     if ( pModel )
 280     {
 281         SdrPage* pPage = pModel->GetPage(0);
 282         if (pPage)
 283         {
 284             SdrObjListIter aIter( *pPage, IM_DEEPNOGROUPS );
 285             SdrObject* pObj = aIter.Next();
 286             if ( pObj )
 287             {
 288                 bOnlyControls = sal_True;   // only set if there are any objects at all
 289                 while ( pObj )
 290                 {
 291                     if (!pObj->ISA(SdrUnoObj))
 292                     {
 293                         bOnlyControls = false;
 294                         break;
 295                     }
 296                     pObj = aIter.Next();
 297                 }
 298             }
 299         }
 300     }
 301
 302     return bOnlyControls;
 303 }
 304
 305 void ScDrawTransferObj::AddSupportedFormats()
 306 {
 307     if ( bGrIsBit )             // single bitmap graphic
 308     {
 309         AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
 310         AddFormat( SOT_FORMATSTR_ID_SVXB );
 311         AddFormat( SOT_FORMAT_BITMAP );
 312         AddFormat( SOT_FORMAT_GDIMETAFILE );
 313     }
 314     else if ( bGraphic )        // other graphic
 315     {
 316         // #i25616#
 317         AddFormat( SOT_FORMATSTR_ID_DRAWING );
 318
 319         AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
 320         AddFormat( SOT_FORMATSTR_ID_SVXB );
 321         AddFormat( SOT_FORMAT_GDIMETAFILE );
 322         AddFormat( SOT_FORMAT_BITMAP );
 323     }
 324     else if ( pBookmark )       // url button
 325     {
 326 //      AddFormat( SOT_FORMATSTR_ID_EMBED_SOURCE );
 327         AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
 328         AddFormat( SOT_FORMATSTR_ID_SOLK );
 329         AddFormat( SOT_FORMAT_STRING );
 330         AddFormat( SOT_FORMATSTR_ID_UNIFORMRESOURCELOCATOR );
 331         AddFormat( SOT_FORMATSTR_ID_NETSCAPE_BOOKMARK );
 332         AddFormat( SOT_FORMATSTR_ID_DRAWING );
 333     }
 334     else if ( bOleObj )         // single OLE object
 335     {
 336         AddFormat( SOT_FORMATSTR_ID_EMBED_SOURCE );
 337         AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
 338         AddFormat( SOT_FORMAT_GDIMETAFILE );
 339
 340         if ( !aOleData.GetTransferable().is() )
 341         {
 342             SdrOle2Obj* pObj = GetSingleObject();
 343             if ( pObj && pObj->GetObjRef().is() )
 344                 aOleData = TransferableDataHelper( new SvEmbedTransferHelper( pObj->GetObjRef(), pObj->GetGraphic(), pObj->GetAspect() ) ) ;
 345         }
 346         if ( aOleData.GetTransferable().is() )
 347         {
 348             //  get format list from object snapshot
 349             //  (this must be after inserting the default formats!)
 350
 351             DataFlavorExVector              aVector( aOleData.GetDataFlavorExVector() );
 352             DataFlavorExVector::iterator    aIter( aVector.begin() ), aEnd( aVector.end() );
 353
 354             while( aIter != aEnd )
 355                 AddFormat( *aIter++ );
 356         }
 357     }
 358     else                        // any drawing objects
 359     {
 360         AddFormat( SOT_FORMATSTR_ID_EMBED_SOURCE );
 361         AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
 362         AddFormat( SOT_FORMATSTR_ID_DRAWING );
 363
 364         // leave out bitmap and metafile if there are only controls
 365         if ( !lcl_HasOnlyControls( pModel ) )
 366         {
 367             AddFormat( SOT_FORMAT_BITMAP );
 368             AddFormat( SOT_FORMAT_GDIMETAFILE );
 369         }
 370     }
 371
 372 //  if( pImageMap )
 373 //      AddFormat( SOT_FORMATSTR_ID_SVIM );
 374 }
 375
 376 sal_Bool ScDrawTransferObj::GetData( const ::com::sun::star::datatransfer::DataFlavor& rFlavor )
 377 {
 378     sal_Bool bOK = false;
 379     sal_uInt32 nFormat = SotExchange::GetFormat( rFlavor );
 380
 381     if ( bOleObj && nFormat != SOT_FORMAT_GDIMETAFILE )
 382     {
 383         if ( !aOleData.GetTransferable().is() )
 384         {
 385             SdrOle2Obj* pObj = GetSingleObject();
 386             if ( pObj && pObj->GetObjRef().is() )
 387                 aOleData = TransferableDataHelper( new SvEmbedTransferHelper( pObj->GetObjRef(), pObj->GetGraphic(), pObj->GetAspect() ) ) ;
 388         }
 389
 390         if( aOleData.GetTransferable().is() && aOleData.HasFormat( rFlavor ) )
 391         {
 392             sal_uLong nOldSwapMode = 0;
 393
 394             if( pModel )
 395             {
 396                 nOldSwapMode = pModel->GetSwapGraphicsMode();
 397                 pModel->SetSwapGraphicsMode( SDR_SWAPGRAPHICSMODE_PURGE );
 398             }
 399
 400             bOK = SetAny( aOleData.GetAny( rFlavor ), rFlavor );
 401
 402             if( pModel )
 403                 pModel->SetSwapGraphicsMode( nOldSwapMode );
 404
 405             return bOK;
 406         }
 407     }
 408
 409     if( HasFormat( nFormat ) )
 410     {
 411         if ( nFormat == SOT_FORMATSTR_ID_LINKSRCDESCRIPTOR || nFormat == SOT_FORMATSTR_ID_OBJECTDESCRIPTOR )
 412         {
 413             bOK = SetTransferableObjectDescriptor( aObjDesc, rFlavor );
 414         }
 415         else if ( nFormat == SOT_FORMATSTR_ID_DRAWING )
 416         {
 417             bOK = SetObject( pModel, SCDRAWTRANS_TYPE_DRAWMODEL, rFlavor );
 418         }
 419         else if ( nFormat == SOT_FORMAT_BITMAP || nFormat == SOT_FORMAT_GDIMETAFILE )
 420         {
 421             // #i71538# use complete SdrViews
 422             // SdrExchangeView aView( pModel );
 423             SdrView aView( pModel );
 424             SdrPageView* pPv = aView.ShowSdrPage(aView.GetModel()->GetPage(0));
 425             OSL_ENSURE( pPv, "pPv not there..." );
 426             aView.MarkAllObj( pPv );
 427             if ( nFormat == SOT_FORMAT_GDIMETAFILE )
 428                 bOK = SetGDIMetaFile( aView.GetMarkedObjMetaFile(true), rFlavor );
 429             else
 430                 bOK = SetBitmapEx( aView.GetMarkedObjBitmapEx(true), rFlavor );
 431         }
 432         else if ( nFormat == SOT_FORMATSTR_ID_SVXB )
 433         {
 434             // only enabled for single graphics object
 435
 436             SdrPage* pPage = pModel->GetPage(0);
 437             if (pPage)
 438             {
 439                 SdrObjListIter aIter( *pPage, IM_FLAT );
 440                 SdrObject* pObject = aIter.Next();
 441                 if (pObject && pObject->GetObjIdentifier() == OBJ_GRAF)
 442                 {
 443                     SdrGrafObj* pGraphObj = (SdrGrafObj*) pObject;
 444                     bOK = SetGraphic( pGraphObj->GetGraphic(), rFlavor );
 445                 }
 446             }
 447         }
 448         else if ( nFormat == SOT_FORMATSTR_ID_EMBED_SOURCE )
 449         {
 450             if ( bOleObj )              // single OLE object
 451             {
 452                 SdrOle2Obj* pObj = GetSingleObject();
 453                 if ( pObj && pObj->GetObjRef().is() )
 454                 {
 455                     bOK = SetObject( pObj->GetObjRef().get(), SCDRAWTRANS_TYPE_EMBOBJ, rFlavor );
 456                 }
 457             }
 458             else                        // create object from contents
 459             {
 460                 //TODO/LATER: needs new Format, because now single OLE and "this" are different
 461                 InitDocShell();         // set aDocShellRef
 462
 463                 SfxObjectShell* pEmbObj = aDocShellRef;
 464                 bOK = SetObject( pEmbObj, SCDRAWTRANS_TYPE_DOCUMENT, rFlavor );
 465             }
 466         }
 467         else if( pBookmark )
 468         {
 469             bOK = SetINetBookmark( *pBookmark, rFlavor );
 470         }
 471     }
 472     return bOK;
 473 }
 474
 475 sal_Bool ScDrawTransferObj::WriteObject( SotStorageStreamRef& rxOStm, void* pUserObject, sal_uInt32 nUserObjectId,
 476                                         const ::com::sun::star::datatransfer::DataFlavor& /* rFlavor */ )
 477 {
 478     // called from SetObject, put data into stream
 479
 480     sal_Bool bRet = false;
 481     switch (nUserObjectId)
 482     {
 483         case SCDRAWTRANS_TYPE_DRAWMODEL:
 484             {
 485                 SdrModel* pDrawModel = (SdrModel*)pUserObject;
 486                 rxOStm->SetBufferSize( 0xff00 );
 487
 488                 // #108584#
 489                 // for the changed pool defaults from drawing layer pool set those
 490                 // attributes as hard attributes to preserve them for saving
 491                 const SfxItemPool& rItemPool = pModel->GetItemPool();
 492                 const SvxFontHeightItem& rDefaultFontHeight = (const SvxFontHeightItem&)rItemPool.GetDefaultItem(EE_CHAR_FONTHEIGHT);
 493
 494                 // SW should have no MasterPages
 495                 OSL_ENSURE(0L == pModel->GetMasterPageCount(), "SW with MasterPages (!)");
 496
 497                 for(sal_uInt16 a(0); a < pModel->GetPageCount(); a++)
 498                 {
 499                     const SdrPage* pPage = pModel->GetPage(a);
 500                     SdrObjListIter aIter(*pPage, IM_DEEPNOGROUPS);
 501
 502                     while(aIter.IsMore())
 503                     {
 504                         SdrObject* pObj = aIter.Next();
 505                         const SvxFontHeightItem& rItem = (const SvxFontHeightItem&)pObj->GetMergedItem(EE_CHAR_FONTHEIGHT);
 506
 507                         if(rItem.GetHeight() == rDefaultFontHeight.GetHeight())
 508                         {
 509                             pObj->SetMergedItem(rDefaultFontHeight);
 510                         }
 511                     }
 512                 }
 513
 514                 {
 515                     com::sun::star::uno::Reference<com::sun::star::io::XOutputStream> xDocOut( new utl::OOutputStreamWrapper( *rxOStm ) );
 516                     if( SvxDrawingLayerExport( pDrawModel, xDocOut ) )
 517                         rxOStm->Commit();
 518                 }
 519
 520                 bRet = ( rxOStm->GetError() == ERRCODE_NONE );
 521             }
 522             break;
 523
 524         case SCDRAWTRANS_TYPE_EMBOBJ:
 525             {
 526                 // impl. for "single OLE"
 527                 embed::XEmbeddedObject* pEmbObj = (embed::XEmbeddedObject*) pUserObject;
 528
 529                 ::utl::TempFile     aTempFile;
 530                 aTempFile.EnableKillingFile();
 531                 uno::Reference< embed::XStorage > xWorkStore =
 532                     ::comphelper::OStorageHelper::GetStorageFromURL( aTempFile.GetURL(), embed::ElementModes::READWRITE );
 533
 534                 uno::Reference < embed::XEmbedPersist > xPers( (embed::XVisualObject*)pEmbObj, uno::UNO_QUERY );
 535                 if ( xPers.is() )
 536                 {
 537                     try
 538                     {
 539                         uno::Sequence < beans::PropertyValue > aSeq;
 540                         OUString aDummyName("Dummy");
 541                         xPers->storeToEntry( xWorkStore, aDummyName, aSeq, aSeq );
 542                         if ( xWorkStore->isStreamElement( aDummyName ) )
 543                         {
 544                             uno::Reference < io::XOutputStream > xDocOut( new utl::OOutputStreamWrapper( *rxOStm ) );
 545                             uno::Reference < io::XStream > xNewStream = xWorkStore->openStreamElement( aDummyName, embed::ElementModes::READ );
 546                             ::comphelper::OStorageHelper::CopyInputToOutput( xNewStream->getInputStream(), xDocOut );
 547                         }
 548                         else
 549                         {
 550                             uno::Reference < io::XStream > xDocStr( new utl::OStreamWrapper( *rxOStm ) );
 551                             uno::Reference< embed::XStorage > xDocStg = ::comphelper::OStorageHelper::GetStorageFromStream( xDocStr );
 552                             uno::Reference < embed::XStorage > xNewStg = xWorkStore->openStorageElement( aDummyName, embed::ElementModes::READ );
 553                             xNewStg->copyToStorage( xDocStg );
 554                             uno::Reference < embed::XTransactedObject > xTrans( xDocStg, uno::UNO_QUERY );
 555                             if ( xTrans.is() )
 556                                 xTrans->commit();
 557                         }
 558
 559                         rxOStm->Commit();
 560                     }
 561                     catch ( uno::Exception& )
 562                     {
 563                     }
 564                 }
 565
 566                 break;
 567             }
 568         case SCDRAWTRANS_TYPE_DOCUMENT:
 569             {
 570                 // impl. for "DocShell"
 571                 SfxObjectShell*   pEmbObj = (SfxObjectShell*) pUserObject;
 572
 573                 try
 574                 {
 575                     ::utl::TempFile     aTempFile;
 576                     aTempFile.EnableKillingFile();
 577                     uno::Reference< embed::XStorage > xWorkStore =
 578                         ::comphelper::OStorageHelper::GetStorageFromURL( aTempFile.GetURL(), embed::ElementModes::READWRITE );
 579
 580                     // write document storage
 581                     pEmbObj->SetupStorage( xWorkStore, SOFFICE_FILEFORMAT_CURRENT, false, false );
 582
 583                     // mba: no relative ULRs for clipboard!
 584                     SfxMedium aMedium( xWorkStore, OUString() );
 585                     bRet = pEmbObj->DoSaveObjectAs( aMedium, false );
 586                     pEmbObj->DoSaveCompleted();
 587
 588                     uno::Reference< embed::XTransactedObject > xTransact( xWorkStore, uno::UNO_QUERY );
 589                     if ( xTransact.is() )
 590                         xTransact->commit();
 591
 592                     SvStream* pSrcStm = ::utl::UcbStreamHelper::CreateStream( aTempFile.GetURL(), STREAM_READ );
 593                     if( pSrcStm )
 594                     {
 595                         rxOStm->SetBufferSize( 0xff00 );
 596                         *rxOStm << *pSrcStm;
 597                         delete pSrcStm;
 598                     }
 599
 600                     bRet = sal_True;
 601
 602                     xWorkStore->dispose();
 603                     xWorkStore = uno::Reference < embed::XStorage >();
 604                     rxOStm->Commit();
 605                 }
 606                 catch ( uno::Exception& )
 607                 {}
 608
 609                 bRet = ( rxOStm->GetError() == ERRCODE_NONE );
 610             }
 611             break;
 612
 613         default:
 614             OSL_FAIL("unknown object id");
 615     }
 616     return bRet;
 617 }
 618
 619 void ScDrawTransferObj::ObjectReleased()
 620 {
 621     ScModule* pScMod = SC_MOD();
 622     if ( pScMod->GetClipData().pDrawClipboard == this )
 623         pScMod->SetClipObject( NULL, NULL );
 624
 625     TransferableHelper::ObjectReleased();
 626 }
 627
 628 void ScDrawTransferObj::DragFinished( sal_Int8 nDropAction )
 629 {
 630     if ( nDropAction == DND_ACTION_MOVE && !bDragWasInternal && !(nDragSourceFlags & SC_DROP_NAVIGATOR) )
 631     {
 632         //  move: delete source objects
 633
 634         if ( pDragSourceView )
 635             pDragSourceView->DeleteMarked();
 636     }
 637
 638     ScModule* pScMod = SC_MOD();
 639     if ( pScMod->GetDragData().pDrawTransfer == this )
 640         pScMod->ResetDragObject();
 641
 642     DELETEZ( pDragSourceView );
 643
 644     TransferableHelper::DragFinished( nDropAction );
 645 }
 646
 647 void ScDrawTransferObj::SetDrawPersist( const SfxObjectShellRef& rRef )
 648 {
 649     aDrawPersistRef = rRef;
 650 }
 651
 652 static void lcl_InitMarks( SdrMarkView& rDest, const SdrMarkView& rSource, SCTAB nTab )
 653 {
 654     rDest.ShowSdrPage(rDest.GetModel()->GetPage(nTab));
 655     SdrPageView* pDestPV = rDest.GetSdrPageView();
 656     OSL_ENSURE(pDestPV,"PageView ?");
 657
 658     const SdrMarkList& rMarkList = rSource.GetMarkedObjectList();
 659     sal_uLong nCount = rMarkList.GetMarkCount();
 660     for (sal_uLong i=0; i<nCount; i++)
 661     {
 662         SdrMark* pMark = rMarkList.GetMark(i);
 663         SdrObject* pObj = pMark->GetMarkedSdrObj();
 664
 665         rDest.MarkObj(pObj, pDestPV);
 666     }
 667 }
 668
 669 void ScDrawTransferObj::SetDragSource( ScDrawView* pView )
 670 {
 671     DELETEZ( pDragSourceView );
 672     pDragSourceView = new SdrView( pView->GetModel() );
 673     lcl_InitMarks( *pDragSourceView, *pView, pView->GetTab() );
 674
 675     //! add as listener with document, delete pDragSourceView if document gone
 676 }
 677
 678 void ScDrawTransferObj::SetDragSourceObj( SdrObject* pObj, SCTAB nTab )
 679 {
 680     DELETEZ( pDragSourceView );
 681     pDragSourceView = new SdrView( pObj->GetModel() );
 682     pDragSourceView->ShowSdrPage(pDragSourceView->GetModel()->GetPage(nTab));
 683     SdrPageView* pPV = pDragSourceView->GetSdrPageView();
 684     pDragSourceView->MarkObj(pObj, pPV);
 685
 686     //! add as listener with document, delete pDragSourceView if document gone
 687 }
 688
 689 void ScDrawTransferObj::SetDragSourceFlags( sal_uInt16 nFlags )
 690 {
 691     nDragSourceFlags = nFlags;
 692 }
 693
 694 void ScDrawTransferObj::SetDragWasInternal()
 695 {
 696     bDragWasInternal = sal_True;
 697 }
 698
 699 SdrOle2Obj* ScDrawTransferObj::GetSingleObject()
 700 {
 701     //  if single OLE object was copied, get its object
 702
 703     SdrPage* pPage = pModel->GetPage(0);
 704     if (pPage)
 705     {
 706         SdrObjListIter aIter( *pPage, IM_FLAT );
 707         SdrObject* pObject = aIter.Next();
 708         if (pObject && pObject->GetObjIdentifier() == OBJ_OLE2)
 709         {
 710             return (SdrOle2Obj*) pObject;
 711         }
 712     }
 713
 714     return NULL;
 715 }
 716
 717 //
 718 //  initialize aDocShellRef with a live document from the ClipDoc
 719 //
 720
 721 void ScDrawTransferObj::InitDocShell()
 722 {
 723     if ( !aDocShellRef.Is() )
 724     {
 725         ScDocShell* pDocSh = new ScDocShell;
 726         aDocShellRef = pDocSh;      // ref must be there before InitNew
 727
 728         pDocSh->DoInitNew(NULL);
 729
 730         ScDocument* pDestDoc = pDocSh->GetDocument();
 731         pDestDoc->InitDrawLayer( pDocSh );
 732
 733         SdrModel* pDestModel = pDestDoc->GetDrawLayer();
 734         // #i71538# use complete SdrViews
 735         // SdrExchangeView aDestView( pDestModel );
 736         SdrView aDestView( pDestModel );
 737         aDestView.ShowSdrPage(aDestView.GetModel()->GetPage(0));
 738         aDestView.Paste( *pModel, Point( aSrcSize.Width()/2, aSrcSize.Height()/2 ) );
 739
 740         // put objects to right layer (see ScViewFunc::PasteDataFormat for SOT_FORMATSTR_ID_DRAWING)
 741
 742         SdrPage* pPage = pDestModel->GetPage(0);
 743         if (pPage)
 744         {
 745             SdrObjListIter aIter( *pPage, IM_DEEPWITHGROUPS );
 746             SdrObject* pObject = aIter.Next();
 747             while (pObject)
 748             {
 749                 if ( pObject->ISA(SdrUnoObj) )
 750                     pObject->NbcSetLayer(SC_LAYER_CONTROLS);
 751                 else
 752                     pObject->NbcSetLayer(SC_LAYER_FRONT);
 753                 pObject = aIter.Next();
 754             }
 755         }
 756
 757         Point aTmpPoint;
 758         Rectangle aDestArea( aTmpPoint, aSrcSize );
 759         pDocSh->SetVisArea( aDestArea );
 760
 761         ScViewOptions aViewOpt( pDestDoc->GetViewOptions() );
 762         aViewOpt.SetOption( VOPT_GRID, false );
 763         pDestDoc->SetViewOptions( aViewOpt );
 764
 765         ScViewData aViewData( pDocSh, NULL );
 766         aViewData.SetTabNo( 0 );
 767         aViewData.SetScreen( aDestArea );
 768         aViewData.SetCurX( 0 );
 769         aViewData.SetCurY( 0 );
 770         pDocSh->UpdateOle(&aViewData, sal_True);
 771     }
 772 }
 773
 774 namespace
 775 {
 776     class theScDrawTransferObjUnoTunnelId : public rtl::Static< UnoTunnelIdInit, theScDrawTransferObjUnoTunnelId > {};
 777 }
 778
 779 const com::sun::star::uno::Sequence< sal_Int8 >& ScDrawTransferObj::getUnoTunnelId()
 780 {
 781     return theScDrawTransferObjUnoTunnelId::get().getSeq();
 782 }
 783
 784 sal_Int64 SAL_CALL ScDrawTransferObj::getSomething( const com::sun::star::uno::Sequence< sal_Int8 >& rId ) throw( com::sun::star::uno::RuntimeException )
 785 {
 786     sal_Int64 nRet;
 787     if( ( rId.getLength() == 16 ) &&
 788         ( 0 == memcmp( getUnoTunnelId().getConstArray(), rId.getConstArray(), 16 ) ) )
 789     {
 790         nRet = reinterpret_cast< sal_Int64 >( this );
 791     }
 792     else
 793         nRet = TransferableHelper::getSomething(rId);
 794     return nRet;
 795 }
 796
 797
 798 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */