sc/source/ui/view/viewfun5.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/XEmbedObjectClipboardCreator.hpp>
  21 #include <com/sun/star/embed/Aspects.hpp>
  22 #include <com/sun/star/embed/MSOLEObjectSystemCreator.hpp>
  23
  24 #include <svx/unomodel.hxx>
  25 #include <unotools/streamwrap.hxx>
  26
  27 #include <svx/fmmodel.hxx>
  28 #include <svx/svdetc.hxx>
  29 #include <svx/svditer.hxx>
  30 #include <svx/svdobj.hxx>
  31 #include <svx/svdogrp.hxx>
  32 #include <svx/svdouno.hxx>
  33 #include <svx/svdoole2.hxx>
  34 #include <svx/svdpage.hxx>
  35 #include <sfx2/dispatch.hxx>
  36 #include <sfx2/docfile.hxx>
  37 #include <comphelper/classids.hxx>
  38 #include <sot/formats.hxx>
  39 #include <sot/filelist.hxx>
  40 #include <sot/storage.hxx>
  41 #include <unotools/pathoptions.hxx>
  42 #include <svl/ptitem.hxx>
  43 #include <svl/stritem.hxx>
  44 #include <svtools/transfer.hxx>
  45 #include <vcl/graph.hxx>
  46
  47 #include <comphelper/processfactory.hxx>
  48 #include <comphelper/storagehelper.hxx>
  49 #include <comphelper/string.hxx>
  50
  51 #include "viewfunc.hxx"
  52 #include "docsh.hxx"
  53 #include "drawview.hxx"
  54 #include "impex.hxx"
  55 #include "dbfunc.hxx"
  56 #include "dbdata.hxx"
  57 #include "sc.hrc"
  58 #include "filter.hxx"
  59 #include "scextopt.hxx"
  60 #include "tabvwsh.hxx"
  61 #include "compiler.hxx"
  62
  63 #include "asciiopt.hxx"
  64 #include "scabstdlg.hxx"
  65 #include "clipparam.hxx"
  66 #include "markdata.hxx"
  67 #include <vcl/msgbox.hxx>
  68 #include <sfx2/viewfrm.hxx>
  69 #include <svx/dbaexchange.hxx>
  70 #include <boost/scoped_ptr.hpp>
  71
  72 using namespace com::sun::star;
  73
  74 bool ScViewFunc::PasteDataFormat( SotClipboardFormatId nFormatId,
  75                     const uno::Reference<datatransfer::XTransferable>& rxTransferable,
  76                     SCCOL nPosX, SCROW nPosY, Point* pLogicPos, bool bLink, bool bAllowDialogs )
  77 {
  78     ScDocument* pDoc = GetViewData().GetDocument();
  79     pDoc->SetPastingDrawFromOtherDoc( true );
  80
  81     Point aPos;                     //  inserting position (1/100 mm)
  82     if (pLogicPos)
  83         aPos = *pLogicPos;
  84     else
  85     {
  86         //  inserting position isn't needed for text formats
  87         bool bIsTextFormat = ( ScImportExport::IsFormatSupported( nFormatId ) ||
  88                                 nFormatId == SotClipboardFormatId::RTF );
  89         if ( !bIsTextFormat )
  90         {
  91             //  Window MapMode isn't drawing MapMode if DrawingLayer hasn't been created yet
  92
  93             SCTAB nTab = GetViewData().GetTabNo();
  94             long nXT = 0;
  95             for (SCCOL i=0; i<nPosX; i++)
  96                 nXT += pDoc->GetColWidth(i,nTab);
  97             if (pDoc->IsNegativePage(nTab))
  98                 nXT = -nXT;
  99             sal_uLong nYT = pDoc->GetRowHeight( 0, nPosY-1, nTab);
 100             aPos = Point( (long)(nXT * HMM_PER_TWIPS), (long)(nYT * HMM_PER_TWIPS) );
 101         }
 102     }
 103
 104     TransferableDataHelper aDataHelper( rxTransferable );
 105     bool bRet = false;
 106
 107     //  handle individual formats
 108
 109     if ( nFormatId == SotClipboardFormatId::EMBED_SOURCE ||
 110          nFormatId == SotClipboardFormatId::LINK_SOURCE ||
 111          nFormatId == SotClipboardFormatId::EMBED_SOURCE_OLE ||
 112          nFormatId == SotClipboardFormatId::LINK_SOURCE_OLE ||
 113          nFormatId == SotClipboardFormatId::EMBEDDED_OBJ_OLE )
 114     {
 115         uno::Reference < io::XInputStream > xStm;
 116         TransferableObjectDescriptor   aObjDesc;
 117
 118         if (aDataHelper.GetTransferableObjectDescriptor(SotClipboardFormatId::OBJECTDESCRIPTOR, aObjDesc))
 119             xStm = aDataHelper.GetInputStream(nFormatId, OUString());
 120
 121         if (xStm.is())
 122         {
 123             if ( aObjDesc.maClassName == SvGlobalName( SO3_SC_CLASSID_60 ) )
 124             {
 125                 uno::Reference < embed::XStorage > xStore = ::comphelper::OStorageHelper::GetStorageFromInputStream( xStm );
 126
 127                 // mba: BaseURL doesn't make sense for clipboard
 128                 // #i43716# Medium must be allocated with "new".
 129                 // DoLoad stores the pointer and deletes it with the SfxObjectShell.
 130                 SfxMedium* pMedium = new SfxMedium( xStore, OUString() );
 131
 132                 //  TODO/LATER: is it a problem that we don't support binary formats here?
 133                 ScDocShellRef xDocShRef = new ScDocShell(SfxModelFlags::EMBEDDED_OBJECT);
 134                 if (xDocShRef->DoLoad(pMedium))
 135                 {
 136                     ScDocument& rSrcDoc = xDocShRef->GetDocument();
 137                     SCTAB nSrcTab = rSrcDoc.GetVisibleTab();
 138                     if (!rSrcDoc.HasTable(nSrcTab))
 139                         nSrcTab = 0;
 140
 141                     ScMarkData aSrcMark;
 142                     aSrcMark.SelectOneTable( nSrcTab );         // for CopyToClip
 143                     boost::scoped_ptr<ScDocument> pClipDoc(new ScDocument( SCDOCMODE_CLIP ));
 144
 145                     SCCOL nFirstCol, nLastCol;
 146                     SCROW nFirstRow, nLastRow;
 147                     if ( rSrcDoc.GetDataStart( nSrcTab, nFirstCol, nFirstRow ) )
 148                         rSrcDoc.GetCellArea( nSrcTab, nLastCol, nLastRow );
 149                     else
 150                     {
 151                         nFirstCol = nLastCol = 0;
 152                         nFirstRow = nLastRow = 0;
 153                     }
 154                     ScClipParam aClipParam(ScRange(nFirstCol, nFirstRow, nSrcTab, nLastCol, nLastRow, nSrcTab), false);
 155                     rSrcDoc.CopyToClip(aClipParam, pClipDoc.get(), &aSrcMark);
 156                     ScGlobal::SetClipDocName( xDocShRef->GetTitle( SFX_TITLE_FULLNAME ) );
 157
 158                     SetCursor( nPosX, nPosY );
 159                     Unmark();
 160                     PasteFromClip( IDF_ALL, pClipDoc.get(),
 161                                     PASTE_NOFUNC, false, false, false, INS_NONE, IDF_NONE,
 162                                     bAllowDialogs );
 163                     bRet = true;
 164                 }
 165
 166                 xDocShRef->DoClose();
 167                 xDocShRef.Clear();
 168             }
 169             else
 170             {
 171                 OUString aName;
 172                 uno::Reference < embed::XEmbeddedObject > xObj = GetViewData().GetViewShell()->GetObjectShell()->
 173                         GetEmbeddedObjectContainer().InsertEmbeddedObject( xStm, aName );
 174                 if ( xObj.is() )
 175                 {
 176                     // try to get the replacement image from the clipboard
 177                     Graphic aGraphic;
 178                     SotClipboardFormatId nGrFormat = SotClipboardFormatId::NONE;
 179
 180                     // limit the size of the preview metafile to 100000 actions
 181                     GDIMetaFile aMetafile;
 182                     if (aDataHelper.GetGDIMetaFile(SotClipboardFormatId::GDIMETAFILE, aMetafile, 100000))
 183                     {
 184                         nGrFormat = SotClipboardFormatId::GDIMETAFILE;
 185                         aGraphic = aMetafile;
 186                     }
 187
 188                     // insert replacement image ( if there is one ) into the object helper
 189                     if ( nGrFormat != SotClipboardFormatId::NONE )
 190                     {
 191                         datatransfer::DataFlavor aDataFlavor;
 192                         SotExchange::GetFormatDataFlavor( nGrFormat, aDataFlavor );
 193                         PasteObject( aPos, xObj, &aObjDesc.maSize, &aGraphic, aDataFlavor.MimeType, aObjDesc.mnViewAspect );
 194                     }
 195                     else
 196                         PasteObject( aPos, xObj, &aObjDesc.maSize );
 197
 198                     bRet = true;
 199                 }
 200                 else
 201                 {
 202                     OSL_FAIL("Error in CreateAndLoad");
 203                 }
 204             }
 205         }
 206         else
 207         {
 208             if ( aDataHelper.GetTransferableObjectDescriptor( SotClipboardFormatId::OBJECTDESCRIPTOR_OLE, aObjDesc ) )
 209             {
 210                 OUString aName;
 211                 uno::Reference < embed::XEmbeddedObject > xObj;
 212                 xStm = aDataHelper.GetInputStream(SotClipboardFormatId::EMBED_SOURCE_OLE, OUString());
 213                 if (!xStm.is())
 214                     aDataHelper.GetInputStream(SotClipboardFormatId::EMBEDDED_OBJ_OLE, OUString());
 215
 216                 if (xStm.is())
 217                 {
 218                     xObj = GetViewData().GetDocShell()->GetEmbeddedObjectContainer().InsertEmbeddedObject( xStm, aName );
 219                 }
 220                 else
 221                 {
 222                     try
 223                     {
 224                         uno::Reference< embed::XStorage > xTmpStor = ::comphelper::OStorageHelper::GetTemporaryStorage();
 225                         uno::Reference < embed::XEmbedObjectClipboardCreator > xClipboardCreator =
 226                             embed::MSOLEObjectSystemCreator::create( ::comphelper::getProcessComponentContext() );
 227
 228                         embed::InsertedObjectInfo aInfo = xClipboardCreator->createInstanceInitFromClipboard(
 229                                                             xTmpStor,
 230                                                             OUString( "DummyName" ),
 231                                                             uno::Sequence< beans::PropertyValue >() );
 232
 233                         // TODO/LATER: in future InsertedObjectInfo will be used to get container related information
 234                         // for example whether the object should be an iconified one
 235                         xObj = aInfo.Object;
 236                         if ( xObj.is() )
 237                             GetViewData().GetDocShell()->GetEmbeddedObjectContainer().InsertEmbeddedObject( xObj, aName );
 238                     }
 239                     catch( uno::Exception& )
 240                     {}
 241                 }
 242
 243                 if ( xObj.is() )
 244                 {
 245                     // try to get the replacement image from the clipboard
 246                     Graphic aGraphic;
 247                     SotClipboardFormatId nGrFormat = SotClipboardFormatId::NONE;
 248
 249 // (wg. Selection Manager bei Trustet Solaris)
 250 #ifndef SOLARIS
 251                     if( aDataHelper.GetGraphic( SotClipboardFormatId::SVXB, aGraphic ) )
 252                         nGrFormat = SotClipboardFormatId::SVXB;
 253                     else if( aDataHelper.GetGraphic( SotClipboardFormatId::GDIMETAFILE, aGraphic ) )
 254                         nGrFormat = SotClipboardFormatId::GDIMETAFILE;
 255                     else if( aDataHelper.GetGraphic( SotClipboardFormatId::BITMAP, aGraphic ) )
 256                         nGrFormat = SotClipboardFormatId::BITMAP;
 257 #endif
 258
 259                     // insert replacement image ( if there is one ) into the object helper
 260                     if ( nGrFormat != SotClipboardFormatId::NONE )
 261                     {
 262                         datatransfer::DataFlavor aDataFlavor;
 263                         SotExchange::GetFormatDataFlavor( nGrFormat, aDataFlavor );
 264                         PasteObject( aPos, xObj, &aObjDesc.maSize, &aGraphic, aDataFlavor.MimeType, aObjDesc.mnViewAspect );
 265                     }
 266                     else
 267                         PasteObject( aPos, xObj, &aObjDesc.maSize );
 268
 269                     // let object stay in loaded state after insertion
 270                     SdrOle2Obj::Unload( xObj, embed::Aspects::MSOLE_CONTENT );
 271                     bRet = true;
 272                 }
 273                 else
 274                 {
 275                     OSL_FAIL("Error creating external OLE object");
 276                 }
 277             }
 278             //TODO/LATER: if format is not available, create picture
 279         }
 280     }
 281     else if ( nFormatId == SotClipboardFormatId::LINK )      // LINK is also in ScImportExport
 282     {
 283         bRet = PasteLink( rxTransferable );
 284     }
 285     else if ( ScImportExport::IsFormatSupported( nFormatId ) || nFormatId == SotClipboardFormatId::RTF )
 286     {
 287         if ( nFormatId == SotClipboardFormatId::RTF && aDataHelper.HasFormat( SotClipboardFormatId::EDITENGINE ) )
 288         {
 289             //  use EditView's PasteSpecial / Drop
 290             PasteRTF( nPosX, nPosY, rxTransferable );
 291             bRet = true;
 292         }
 293         else
 294         {
 295             ScAddress aCellPos( nPosX, nPosY, GetViewData().GetTabNo() );
 296             ScImportExport aObj( GetViewData().GetDocument(), aCellPos );
 297             aObj.SetOverwriting( true );
 298
 299             OUString aStr;
 300             tools::SvRef<SotStorageStream> xStream;
 301             if ( aDataHelper.GetSotStorageStream( nFormatId, xStream ) && xStream.Is() )
 302             {
 303                 if (nFormatId == SotClipboardFormatId::HTML)
 304                 {
 305                     // Launch the text import options dialog.  For now, we do
 306                     // this for html pasting only, but in the future it may
 307                     // make sense to do it for other data types too.
 308                     ScAbstractDialogFactory* pFact = ScAbstractDialogFactory::Create();
 309                     boost::scoped_ptr<AbstractScTextImportOptionsDlg> pDlg(
 310                         pFact->CreateScTextImportOptionsDlg(NULL));
 311
 312                     if (pDlg->Execute() == RET_OK)
 313                     {
 314                         ScAsciiOptions aOptions;
 315                         aOptions.SetLanguage(pDlg->GetLanguageType());
 316                         aOptions.SetDetectSpecialNumber(pDlg->IsDateConversionSet());
 317                         aObj.SetExtOptions(aOptions);
 318                     }
 319                     else
 320                     {
 321                         // prevent error dialog for user cancel action
 322                         bRet = true;
 323                     }
 324                 }
 325                 if(!bRet)
 326                     bRet = aObj.ImportStream( *xStream, OUString(), nFormatId );
 327                 // mba: clipboard always must contain absolute URLs (could be from alien source)
 328             }
 329             else if (nFormatId == SotClipboardFormatId::STRING && aDataHelper.GetString( nFormatId, aStr ))
 330             {
 331                 // Do CSV dialog if more than one line.
 332                 sal_Int32 nDelim = aStr.indexOf('\n');
 333                 if (nDelim >= 0 && nDelim != aStr.getLength () - 1)
 334                 {
 335                     ScImportStringStream aStrm( aStr);
 336                     ScAbstractDialogFactory* pFact =
 337                         ScAbstractDialogFactory::Create();
 338                     boost::scoped_ptr<AbstractScImportAsciiDlg> pDlg(
 339                         pFact->CreateScImportAsciiDlg( NULL, OUString(), &aStrm,
 340                                                        SC_PASTETEXT));
 341
 342                     if (pDlg->Execute() == RET_OK)
 343                     {
 344                         ScAsciiOptions aOptions;
 345                         pDlg->GetOptions( aOptions );
 346                         pDlg->SaveParameters();
 347                         aObj.SetExtOptions( aOptions );
 348
 349                         bRet = aObj.ImportString( aStr, nFormatId );
 350
 351                         // TODO: what if (aObj.IsOverflow())
 352                         // Content was partially pasted, which can be undone by
 353                         // the user though.
 354                         if (aObj.IsOverflow())
 355                             bRet = false;
 356                     }
 357                     else
 358                         bRet = true;
 359                         // Yes, no failure, don't raise a "couldn't paste"
 360                         // dialog if user cancelled.
 361                 }
 362                 else
 363                     bRet = aObj.ImportString( aStr, nFormatId );
 364             }
 365             else if (nFormatId != SotClipboardFormatId::STRING && aDataHelper.GetString( nFormatId, aStr ))
 366                 bRet = aObj.ImportString( aStr, nFormatId );
 367
 368             InvalidateAttribs();
 369             GetViewData().UpdateInputHandler();
 370         }
 371     }
 372     else if (nFormatId == SotClipboardFormatId::SBA_DATAEXCHANGE)
 373     {
 374         //  import of database data into table
 375
 376         const DataFlavorExVector& rVector = aDataHelper.GetDataFlavorExVector();
 377         if ( svx::ODataAccessObjectTransferable::canExtractObjectDescriptor(rVector) )
 378         {
 379             // transport the whole ODataAccessDescriptor as slot parameter
 380             svx::ODataAccessDescriptor aDesc = svx::ODataAccessObjectTransferable::extractObjectDescriptor(aDataHelper);
 381             uno::Any aDescAny;
 382             uno::Sequence<beans::PropertyValue> aProperties = aDesc.createPropertyValueSequence();
 383             aDescAny <<= aProperties;
 384             SfxUsrAnyItem aDataDesc(SID_SBA_IMPORT, aDescAny);
 385
 386             ScDocShell* pDocSh = GetViewData().GetDocShell();
 387             SCTAB nTab = GetViewData().GetTabNo();
 388
 389             ClickCursor(nPosX, nPosY, false);               // set cursor position
 390
 391             //  Creation of database area "Import1" isn't here, but in the DocShell
 392             //  slot execute, so it can be added to the undo action
 393
 394             ScDBData* pDBData = pDocSh->GetDBData( ScRange(nPosX,nPosY,nTab), SC_DB_OLD, SC_DBSEL_KEEP );
 395             OUString sTarget;
 396             if (pDBData)
 397                 sTarget = pDBData->GetName();
 398             else
 399             {
 400                 ScAddress aCellPos( nPosX,nPosY,nTab );
 401                 sTarget = aCellPos.Format(SCA_ABS_3D, pDoc, pDoc->GetAddressConvention());
 402             }
 403             SfxStringItem aTarget(FN_PARAM_1, sTarget);
 404
 405             bool bAreaIsNew = !pDBData;
 406             SfxBoolItem aAreaNew(FN_PARAM_2, bAreaIsNew);
 407
 408             //  asynchronous, to avoid doing the whole import in drop handler
 409             SfxDispatcher& rDisp = GetViewData().GetDispatcher();
 410             rDisp.Execute(SID_SBA_IMPORT, SfxCallMode::ASYNCHRON,
 411                                         &aDataDesc, &aTarget, &aAreaNew, (void*)0 );
 412
 413             bRet = true;
 414         }
 415     }
 416     else if (nFormatId == SotClipboardFormatId::SBA_FIELDDATAEXCHANGE)
 417     {
 418         //  insert database field control
 419
 420         if ( svx::OColumnTransferable::canExtractColumnDescriptor( aDataHelper.GetDataFlavorExVector(), ColumnTransferFormatFlags::COLUMN_DESCRIPTOR | ColumnTransferFormatFlags::CONTROL_EXCHANGE ) )
 421         {
 422             MakeDrawLayer();
 423             ScDrawView* pScDrawView = GetScDrawView();
 424             SdrObject* pObj = pScDrawView->CreateFieldControl( svx::OColumnTransferable::extractColumnDescriptor( aDataHelper ) );
 425             if (pObj)
 426             {
 427                 Point aInsPos = aPos;
 428                 Rectangle aRect(pObj->GetLogicRect());
 429                 aInsPos.X() -= aRect.GetSize().Width()  / 2;
 430                 aInsPos.Y() -= aRect.GetSize().Height() / 2;
 431                 if ( aInsPos.X() < 0 ) aInsPos.X() = 0;
 432                 if ( aInsPos.Y() < 0 ) aInsPos.Y() = 0;
 433                 aRect.SetPos(aInsPos);
 434                 pObj->SetLogicRect(aRect);
 435
 436                 if ( pObj->ISA(SdrUnoObj) )
 437                     pObj->NbcSetLayer(SC_LAYER_CONTROLS);
 438                 else
 439                     pObj->NbcSetLayer(SC_LAYER_FRONT);
 440                 if (pObj->ISA(SdrObjGroup))
 441                 {
 442                     SdrObjListIter aIter( *pObj, IM_DEEPWITHGROUPS );
 443                     SdrObject* pSubObj = aIter.Next();
 444                     while (pSubObj)
 445                     {
 446                         if ( pSubObj->ISA(SdrUnoObj) )
 447                             pSubObj->NbcSetLayer(SC_LAYER_CONTROLS);
 448                         else
 449                             pSubObj->NbcSetLayer(SC_LAYER_FRONT);
 450                         pSubObj = aIter.Next();
 451                     }
 452                 }
 453
 454                 pScDrawView->InsertObjectSafe(pObj, *pScDrawView->GetSdrPageView());
 455
 456                 GetViewData().GetViewShell()->SetDrawShell( true );
 457                 bRet = true;
 458             }
 459         }
 460     }
 461     else if (nFormatId == SotClipboardFormatId::BITMAP || nFormatId == SotClipboardFormatId::PNG)
 462     {
 463         BitmapEx aBmpEx;
 464         if( aDataHelper.GetBitmapEx( SotClipboardFormatId::BITMAP, aBmpEx ) )
 465             bRet = PasteBitmapEx( aPos, aBmpEx );
 466     }
 467     else if (nFormatId == SotClipboardFormatId::GDIMETAFILE)
 468     {
 469         GDIMetaFile aMtf;
 470         if( aDataHelper.GetGDIMetaFile( SotClipboardFormatId::GDIMETAFILE, aMtf ) )
 471             bRet = PasteMetaFile( aPos, aMtf );
 472     }
 473     else if (nFormatId == SotClipboardFormatId::SVXB)
 474     {
 475         tools::SvRef<SotStorageStream> xStm;
 476         if( aDataHelper.GetSotStorageStream( SotClipboardFormatId::SVXB, xStm ) )
 477         {
 478             Graphic aGraphic;
 479             ReadGraphic( *xStm, aGraphic );
 480             bRet = PasteGraphic( aPos, aGraphic, EMPTY_OUSTRING, EMPTY_OUSTRING );
 481         }
 482     }
 483     else if ( nFormatId == SotClipboardFormatId::DRAWING )
 484     {
 485         tools::SvRef<SotStorageStream> xStm;
 486         if( aDataHelper.GetSotStorageStream( SotClipboardFormatId::DRAWING, xStm ) )
 487         {
 488             MakeDrawLayer();    // before loading model, so 3D factory has been created
 489
 490             SvtPathOptions aPathOpt;
 491             OUString aPath = aPathOpt.GetPalettePath();
 492
 493             ScDocShellRef aDragShellRef( new ScDocShell );
 494             aDragShellRef->DoInitNew(NULL);
 495             boost::scoped_ptr<FmFormModel> pModel(new FmFormModel( aPath, NULL, aDragShellRef ));
 496
 497             pModel->GetItemPool().FreezeIdRanges();
 498             xStm->Seek(0);
 499
 500             com::sun::star::uno::Reference< com::sun::star::io::XInputStream > xInputStream( new utl::OInputStreamWrapper( *xStm ) );
 501             SvxDrawingLayerImport( pModel.get(), xInputStream );
 502
 503             // set everything to right layer:
 504             size_t nObjCount = 0;
 505             sal_uInt16 nPages = pModel->GetPageCount();
 506             for (sal_uInt16 i=0; i<nPages; i++)
 507             {
 508                 SdrPage* pPage = pModel->GetPage(i);
 509                 SdrObjListIter aIter( *pPage, IM_DEEPWITHGROUPS );
 510                 SdrObject* pObject = aIter.Next();
 511                 while (pObject)
 512                 {
 513                     if ( pObject->ISA(SdrUnoObj) )
 514                         pObject->NbcSetLayer(SC_LAYER_CONTROLS);
 515                     else
 516                         pObject->NbcSetLayer(SC_LAYER_FRONT);
 517                     pObject = aIter.Next();
 518                 }
 519
 520                 nObjCount += pPage->GetObjCount();          // count group object only once
 521             }
 522
 523             PasteDraw(aPos, pModel.get(), (nObjCount > 1), "A", "B");     // grouped if more than 1 object
 524             pModel.reset();
 525             aDragShellRef->DoClose();
 526             bRet = true;
 527         }
 528     }
 529     else if ( (nFormatId == SotClipboardFormatId::BIFF_5) || (nFormatId == SotClipboardFormatId::BIFF_8) )
 530     {
 531         //  do excel import into a clipboard document
 532         //TODO/MBA: testing
 533         uno::Reference <io::XInputStream> xStm = aDataHelper.GetInputStream(nFormatId, OUString());
 534         if (xStm.is())
 535         {
 536             ScDocument* pInsDoc = new ScDocument( SCDOCMODE_CLIP );
 537             SCTAB nSrcTab = 0;      // Biff5 in clipboard: always sheet 0
 538             pInsDoc->ResetClip( pDoc, nSrcTab );
 539
 540             SfxMedium aMed;
 541             aMed.GetItemSet()->Put( SfxUsrAnyItem( SID_INPUTSTREAM, uno::makeAny( xStm ) ) );
 542             FltError eErr = ScFormatFilter::Get().ScImportExcel( aMed, pInsDoc, EIF_AUTO );
 543             if ( eErr == eERR_OK )
 544             {
 545                 ScRange aSource;
 546                 const ScExtDocOptions* pExtOpt = pInsDoc->GetExtDocOptions();
 547                 const ScExtTabSettings* pTabSett = pExtOpt ? pExtOpt->GetTabSettings( nSrcTab ) : 0;
 548                 if( pTabSett && pTabSett->maUsedArea.IsValid() )
 549                 {
 550                     aSource = pTabSett->maUsedArea;
 551                     // ensure correct sheet indexes
 552                     aSource.aStart.SetTab( nSrcTab );
 553                     aSource.aEnd.SetTab( nSrcTab );
 554 // don't use selection area: if cursor is moved in Excel after Copy, selection
 555 // represents the new cursor position and not the copied area
 556                 }
 557                 else
 558                 {
 559                     OSL_FAIL("no dimension");   //! possible?
 560                     SCCOL nFirstCol, nLastCol;
 561                     SCROW nFirstRow, nLastRow;
 562                     if ( pInsDoc->GetDataStart( nSrcTab, nFirstCol, nFirstRow ) )
 563                         pInsDoc->GetCellArea( nSrcTab, nLastCol, nLastRow );
 564                     else
 565                     {
 566                         nFirstCol = nLastCol = 0;
 567                         nFirstRow = nLastRow = 0;
 568                     }
 569                     aSource = ScRange( nFirstCol, nFirstRow, nSrcTab,
 570                                         nLastCol, nLastRow, nSrcTab );
 571                 }
 572
 573                 if ( pLogicPos )
 574                 {
 575                     // position specified (Drag&Drop) - change selection
 576                     MoveCursorAbs( nPosX, nPosY, SC_FOLLOW_NONE, false, false );
 577                     Unmark();
 578                 }
 579
 580                 pInsDoc->SetClipArea( aSource );
 581                 PasteFromClip( IDF_ALL, pInsDoc,
 582                                 PASTE_NOFUNC, false, false, false, INS_NONE, IDF_NONE,
 583                                 bAllowDialogs );
 584                 delete pInsDoc;
 585
 586                 bRet = true;
 587             }
 588         }
 589     }
 590     else if ( nFormatId == SotClipboardFormatId::SIMPLE_FILE )
 591     {
 592         OUString aFile;
 593         if ( aDataHelper.GetString( nFormatId, aFile ) )
 594             bRet = PasteFile( aPos, aFile, bLink );
 595     }
 596     else if ( nFormatId == SotClipboardFormatId::FILE_LIST )
 597     {
 598         FileList aFileList;
 599         if ( aDataHelper.GetFileList( nFormatId, aFileList ) )
 600         {
 601             sal_uLong nCount = aFileList.Count();
 602             for( sal_uLong i = 0; i < nCount ; i++ )
 603             {
 604                 OUString aFile = aFileList.GetFile( i );
 605
 606                 PasteFile( aPos, aFile, bLink );
 607
 608                 aPos.X() += 400;
 609                 aPos.Y() += 400;
 610             }
 611             bRet = true;
 612         }
 613     }
 614     else if ( nFormatId == SotClipboardFormatId::SOLK ||
 615               nFormatId == SotClipboardFormatId::UNIFORMRESOURCELOCATOR ||
 616               nFormatId == SotClipboardFormatId::NETSCAPE_BOOKMARK ||
 617               nFormatId == SotClipboardFormatId::FILEGRPDESCRIPTOR )
 618     {
 619         bRet = PasteBookmark( nFormatId, rxTransferable, nPosX, nPosY );
 620     }
 621
 622     pDoc->SetPastingDrawFromOtherDoc( false );
 623
 624     return bRet;
 625 }
 626
 627 bool ScViewFunc::PasteLink( const uno::Reference<datatransfer::XTransferable>& rxTransferable )
 628 {
 629     TransferableDataHelper aDataHelper( rxTransferable );
 630
 631     //  get link data from transferable before string data,
 632     //  so the source knows it will be used for a link
 633
 634     uno::Sequence<sal_Int8> aSequence = aDataHelper.GetSequence(SotClipboardFormatId::LINK, OUString());
 635     if (!aSequence.getLength())
 636     {
 637         OSL_FAIL("DDE Data not found.");
 638         return false;
 639     }
 640
 641     //  check size (only if string is available in transferable)
 642
 643     sal_uInt16 nCols = 1;
 644     sal_uInt16 nRows = 1;
 645     if ( aDataHelper.HasFormat( SotClipboardFormatId::STRING ) )
 646     {
 647         OUString aDataStr;
 648         if ( aDataHelper.GetString( SotClipboardFormatId::STRING, aDataStr ) )
 649         {
 650             //  get size from string the same way as in ScDdeLink::DataChanged
 651
 652             aDataStr = convertLineEnd(aDataStr, LINEEND_LF);
 653             sal_Int32 nLen = aDataStr.getLength();
 654             if (nLen && aDataStr[nLen-1] == '\n')
 655                 aDataStr = aDataStr.copy(0, nLen-1);
 656
 657             if (!aDataStr.isEmpty())
 658             {
 659                 nRows = comphelper::string::getTokenCount(aDataStr, '\n');
 660                 OUString aLine = aDataStr.getToken( 0, '\n' );
 661                 if (!aLine.isEmpty())
 662                     nCols = comphelper::string::getTokenCount(aLine, '\t');
 663             }
 664         }
 665     }
 666
 667     //  create formula
 668
 669     sal_Int32 nSeqLen = aSequence.getLength();
 670     const char* p = reinterpret_cast<const char*>(aSequence.getConstArray());
 671
 672     rtl_TextEncoding eSysEnc = osl_getThreadTextEncoding();
 673
 674     // char array delimited by \0.
 675     // app \0 topic \0 item \0 (extra \0) where the extra is optional.
 676     ::std::vector<OUString> aStrs;
 677     const char* pStart = p;
 678     sal_Int32 nStart = 0;
 679     for (sal_Int32 i = 0; i < nSeqLen; ++i, ++p)
 680     {
 681         if (*p == '\0')
 682         {
 683             sal_Int32 nLen = i - nStart;
 684             aStrs.push_back(OUString(pStart, nLen, eSysEnc));
 685             nStart = ++i;
 686             pStart = ++p;
 687         }
 688     }
 689
 690     if (aStrs.size() < 3)
 691         return false;
 692
 693     const OUString* pApp   = &aStrs[0];
 694     const OUString* pTopic = &aStrs[1];
 695     const OUString* pItem  = &aStrs[2];
 696     const OUString* pExtra = NULL;
 697     if (aStrs.size() > 3)
 698         pExtra = &aStrs[3];
 699
 700     if ( pExtra && *pExtra == "calc:extref" )
 701     {
 702         // Paste this as an external reference.  Note that paste link always
 703         // uses Calc A1 syntax even when another formula syntax is specified
 704         // in the UI.
 705         EnterMatrix("='"
 706             + OUString(ScGlobal::GetAbsDocName(*pTopic, GetViewData().GetDocument()->GetDocumentShell()))
 707             + "'#" + *pItem
 708                 , ::formula::FormulaGrammar::GRAM_NATIVE);
 709         return true;
 710     }
 711     else
 712     {
 713         // DDE in all other cases.
 714
 715         // TODO: we could define ocQuote for "
 716         EnterMatrix("=" + OUString(ScCompiler::GetNativeSymbol(ocDde))
 717             + ScCompiler::GetNativeSymbol(ocOpen)
 718             + "\"" + *pApp + "\""
 719             + ScCompiler::GetNativeSymbol(ocSep)
 720             + "\"" + *pTopic + "\""
 721             + ScCompiler::GetNativeSymbol(ocSep)
 722             + "\"" + *pItem + "\""
 723             + ScCompiler::GetNativeSymbol(ocClose)
 724                 , ::formula::FormulaGrammar::GRAM_NATIVE);
 725     }
 726
 727     //  mark range
 728
 729     SCTAB nTab = GetViewData().GetTabNo();
 730     SCCOL nCurX = GetViewData().GetCurX();
 731     SCROW nCurY = GetViewData().GetCurY();
 732     HideAllCursors();
 733     DoneBlockMode();
 734     InitBlockMode( nCurX, nCurY, nTab );
 735     MarkCursor( nCurX+static_cast<SCCOL>(nCols)-1, nCurY+static_cast<SCROW>(nRows)-1, nTab );
 736     ShowAllCursors();
 737     CursorPosChanged();
 738
 739     return true;
 740 }
 741
 742 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */