xref: /aoo42x/main/sc/source/ui/app/transobj.cxx (revision 7a980842)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 
27 // INCLUDE ---------------------------------------------------------------
28 
29 
30 
31 #include "scitems.hxx"
32 #include <editeng/eeitem.hxx>
33 
34 
35 #include <com/sun/star/uno/Sequence.hxx>
36 #include <com/sun/star/embed/XTransactedObject.hpp>
37 
38 #include <unotools/tempfile.hxx>
39 #include <unotools/ucbstreamhelper.hxx>
40 #include <comphelper/storagehelper.hxx>
41 #include <sot/storage.hxx>
42 #include <vcl/svapp.hxx>
43 #include <vcl/virdev.hxx>
44 #include <vos/mutex.hxx>
45 #include <sfx2/app.hxx>
46 #include <sfx2/docfile.hxx>
47 
48 #include "transobj.hxx"
49 #include "document.hxx"
50 #include "viewopti.hxx"
51 #include "editutil.hxx"
52 #include "impex.hxx"
53 #include "cell.hxx"
54 #include "printfun.hxx"
55 #include "docfunc.hxx"
56 #include "scmod.hxx"
57 
58 // for InitDocShell
59 #include <editeng/paperinf.hxx>
60 #include <editeng/sizeitem.hxx>
61 #include <svx/algitem.hxx>
62 #include <svl/intitem.hxx>
63 #include <svl/zforlist.hxx>
64 #include "docsh.hxx"
65 #include "markdata.hxx"
66 #include "stlpool.hxx"
67 #include "viewdata.hxx"
68 #include "dociter.hxx"
69 #include "cellsuno.hxx"
70 
71 using namespace com::sun::star;
72 
73 // -----------------------------------------------------------------------
74 
75 #define SCTRANS_TYPE_IMPEX			1
76 #define SCTRANS_TYPE_EDIT_RTF		2
77 #define SCTRANS_TYPE_EDIT_BIN		3
78 #define SCTRANS_TYPE_EMBOBJ			4
79 
80 // -----------------------------------------------------------------------
81 
82 // static
GetAreaSize(ScDocument * pDoc,SCTAB nTab1,SCTAB nTab2,SCROW & nRow,SCCOL & nCol)83 void ScTransferObj::GetAreaSize( ScDocument* pDoc, SCTAB nTab1, SCTAB nTab2, SCROW& nRow, SCCOL& nCol )
84 {
85 	SCCOL nMaxCol = 0;
86 	SCROW nMaxRow = 0;
87 	for( SCTAB nTab = nTab1; nTab <= nTab2; nTab++ )
88 	{
89         SCCOL nLastCol = 0;
90         SCROW nLastRow = 0;
91         // GetPrintArea instead of GetCellArea - include drawing objects
92 		if( pDoc->GetPrintArea( nTab, nLastCol, nLastRow ) )
93 		{
94 			if( nLastCol > nMaxCol )
95 				nMaxCol = nLastCol;
96 			if( nLastRow > nMaxRow  )
97 				nMaxRow = nLastRow;
98 		}
99 	}
100 	nRow = nMaxRow;
101 	nCol = nMaxCol;
102 }
103 
104 // static
PaintToDev(OutputDevice * pDev,ScDocument * pDoc,double nPrintFactor,const ScRange & rBlock,sal_Bool bMetaFile)105 void ScTransferObj::PaintToDev( OutputDevice* pDev, ScDocument* pDoc, double nPrintFactor,
106 								const ScRange& rBlock, sal_Bool bMetaFile )
107 {
108 	if (!pDoc)
109 		return;
110 
111 	Point aPoint;
112 	Rectangle aBound( aPoint, pDev->GetOutputSize() ); 		//! use size from clip area?
113 
114 	ScViewData aViewData(NULL,NULL);
115 	aViewData.InitData( pDoc );
116 
117 	aViewData.SetTabNo( rBlock.aEnd.Tab() );
118 	aViewData.SetScreen( rBlock.aStart.Col(), rBlock.aStart.Row(),
119 							rBlock.aEnd.Col(), rBlock.aEnd.Row() );
120 
121 	ScPrintFunc::DrawToDev( pDoc, pDev, nPrintFactor, aBound, &aViewData, bMetaFile );
122 }
123 
124 // -----------------------------------------------------------------------
125 
ScTransferObj(ScDocument * pClipDoc,const TransferableObjectDescriptor & rDesc)126 ScTransferObj::ScTransferObj( ScDocument* pClipDoc, const TransferableObjectDescriptor& rDesc ) :
127 	pDoc( pClipDoc ),
128 	aObjDesc( rDesc ),
129 	nDragHandleX( 0 ),
130 	nDragHandleY( 0 ),
131 	nDragSourceFlags( 0 ),
132 	bDragWasInternal( sal_False ),
133     bUsedForLink( sal_False ),
134     bUseInApi( false )
135 {
136 	DBG_ASSERT(pDoc->IsClipboard(), "wrong document");
137 
138 	//
139 	// get aBlock from clipboard doc
140 	//
141 
142 	SCCOL nCol1;
143 	SCROW nRow1;
144 	SCCOL nCol2;
145 	SCROW nRow2;
146 	pDoc->GetClipStart( nCol1, nRow1 );
147 	pDoc->GetClipArea( nCol2, nRow2, sal_True );	// real source area - include filtered rows
148     nCol2 = sal::static_int_cast<SCCOL>( nCol2 + nCol1 );
149     nRow2 = sal::static_int_cast<SCROW>( nRow2 + nRow1 );
150 
151 	SCCOL nDummy;
152 	pDoc->GetClipArea( nDummy, nNonFiltered, sal_False );
153     bHasFiltered = (nNonFiltered < (nRow2 - nRow1));
154 	++nNonFiltered;		// to get count instead of diff
155 
156 	SCTAB nTab1=0;
157 	SCTAB nTab2=0;
158 	sal_Bool bFirst = sal_True;
159 	for (SCTAB i=0; i<=MAXTAB; i++)
160 		if (pDoc->HasTable(i))
161 		{
162 			if (bFirst)
163 				nTab1 = i;
164 			nTab2 = i;
165 			bFirst = sal_False;
166 		}
167 	DBG_ASSERT(!bFirst, "no sheet selected");
168 
169 	//	only limit to used cells if whole sheet was marked
170 	//	(so empty cell areas can be copied)
171 	if ( nCol2>=MAXCOL && nRow2>=MAXROW )
172 	{
173         SCROW nMaxRow;
174         SCCOL nMaxCol;
175         GetAreaSize( pDoc, nTab1, nTab2, nMaxRow, nMaxCol );
176 		if( nMaxRow < nRow2 )
177 			nRow2 = nMaxRow;
178 		if( nMaxCol < nCol2 )
179 			nCol2 = nMaxCol;
180 	}
181 
182 	aBlock = ScRange( nCol1, nRow1, nTab1, nCol2, nRow2, nTab2 );
183 	nVisibleTab = nTab1;	// valid table as default
184 
185 	Rectangle aMMRect = pDoc->GetMMRect( nCol1,nRow1, nCol2,nRow2, nTab1 );
186     aObjDesc.maSize = aMMRect.GetSize();
187     PrepareOLE( aObjDesc );
188 }
189 
~ScTransferObj()190 ScTransferObj::~ScTransferObj()
191 {
192 	Application::GetSolarMutex().acquire();
193 
194 	ScModule* pScMod = SC_MOD();
195 	if ( pScMod->GetClipData().pCellClipboard == this )
196 	{
197 		DBG_ERROR("ScTransferObj wasn't released");
198 		pScMod->SetClipObject( NULL, NULL );
199 	}
200 	if ( pScMod->GetDragData().pCellTransfer == this )
201 	{
202 		DBG_ERROR("ScTransferObj wasn't released");
203 		pScMod->ResetDragObject();
204 	}
205 
206 	delete pDoc;		// ScTransferObj is owner of clipboard document
207 
208 	aDocShellRef.Clear();	// before releasing the mutex
209 
210     aDrawPersistRef.Clear();                    // after the model
211 
212 	Application::GetSolarMutex().release();
213 }
214 
215 // static
GetOwnClipboard(Window * pUIWin)216 ScTransferObj* ScTransferObj::GetOwnClipboard( Window* pUIWin )
217 {
218 	ScTransferObj* pObj = SC_MOD()->GetClipData().pCellClipboard;
219 	if ( pObj && pUIWin )
220 	{
221 		//	check formats to see if pObj is really in the system clipboard
222 
223 		//	pUIWin is NULL when called from core (IsClipboardSource),
224 		//	in that case don't access the system clipboard, because the call
225 		//	may be from other clipboard operations (like flushing, #86059#)
226 
227 		TransferableDataHelper aDataHelper( TransferableDataHelper::CreateFromSystemClipboard( pUIWin ) );
228 		if ( !aDataHelper.HasFormat( SOT_FORMATSTR_ID_DIF ) )
229 		{
230 //			DBG_ERROR("ScTransferObj wasn't released");
231 			pObj = NULL;
232 		}
233 	}
234 	return pObj;
235 }
236 
AddSupportedFormats()237 void ScTransferObj::AddSupportedFormats()
238 {
239 	AddFormat( SOT_FORMATSTR_ID_EMBED_SOURCE );
240 	AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
241 	AddFormat( SOT_FORMAT_GDIMETAFILE );
242 	AddFormat( SOT_FORMATSTR_ID_PNG );
243 	AddFormat( SOT_FORMAT_BITMAP );
244 
245 	// ScImportExport formats
246 	AddFormat( SOT_FORMATSTR_ID_HTML );
247 	AddFormat( SOT_FORMATSTR_ID_SYLK );
248 	AddFormat( SOT_FORMATSTR_ID_LINK );
249 	AddFormat( SOT_FORMATSTR_ID_DIF );
250 	AddFormat( SOT_FORMAT_STRING );
251 
252 	AddFormat( SOT_FORMAT_RTF );
253 	if ( aBlock.aStart == aBlock.aEnd )
254 		AddFormat( SOT_FORMATSTR_ID_EDITENGINE );
255 }
256 
GetData(const datatransfer::DataFlavor & rFlavor)257 sal_Bool ScTransferObj::GetData( const datatransfer::DataFlavor& rFlavor )
258 {
259 	sal_uInt32	nFormat = SotExchange::GetFormat( rFlavor );
260 	sal_Bool	bOK = sal_False;
261 
262 	if( HasFormat( nFormat ) )
263 	{
264 		if ( nFormat == SOT_FORMATSTR_ID_LINKSRCDESCRIPTOR || nFormat == SOT_FORMATSTR_ID_OBJECTDESCRIPTOR )
265 		{
266 			bOK = SetTransferableObjectDescriptor( aObjDesc, rFlavor );
267 		}
268 		else if ( ( nFormat == SOT_FORMAT_RTF || nFormat == SOT_FORMATSTR_ID_EDITENGINE ) &&
269 						aBlock.aStart == aBlock.aEnd )
270 		{
271 			//	RTF from a single cell is handled by EditEngine
272 
273 			SCCOL nCol = aBlock.aStart.Col();
274 			SCROW nRow = aBlock.aStart.Row();
275 			SCTAB nTab = aBlock.aStart.Tab();
276 
277 			const ScPatternAttr* pPattern = pDoc->GetPattern( nCol, nRow, nTab );
278 			ScTabEditEngine aEngine( *pPattern, pDoc->GetEditPool() );
279 			ScBaseCell* pCell = NULL;
280 			pDoc->GetCell( nCol, nRow, nTab, pCell );
281 			if (pCell)
282 			{
283 				if (pCell->GetCellType() == CELLTYPE_EDIT)
284 				{
285 					const EditTextObject* pObj;
286 					((ScEditCell*)pCell)->GetData(pObj);
287 					aEngine.SetText( *pObj );
288 				}
289 				else
290 				{
291 					String aText;
292 					pDoc->GetString( nCol, nRow, nTab, aText );
293 					aEngine.SetText(aText);
294 				}
295 			}
296 
297 			bOK = SetObject( &aEngine,
298 							(nFormat == FORMAT_RTF) ? SCTRANS_TYPE_EDIT_RTF : SCTRANS_TYPE_EDIT_BIN,
299 							rFlavor );
300 		}
301 		else if ( ScImportExport::IsFormatSupported( nFormat ) || nFormat == SOT_FORMAT_RTF )
302 		{
303 			//	if this transfer object was used to create a DDE link, filtered rows
304 			//	have to be included for subsequent calls (to be consistent with link data)
305 			if ( nFormat == SOT_FORMATSTR_ID_LINK )
306 				bUsedForLink = sal_True;
307 
308 			sal_Bool bIncludeFiltered = pDoc->IsCutMode() || bUsedForLink;
309 
310 			ScImportExport aObj( pDoc, aBlock );
311             if ( bUsedForLink )
312                 aObj.SetExportTextOptions( ScExportTextOptions( ScExportTextOptions::ToSpace, ' ', false ) );
313 			aObj.SetFormulas( pDoc->GetViewOptions().GetOption( VOPT_FORMULAS ) );
314 			aObj.SetIncludeFiltered( bIncludeFiltered );
315 
316 			//	DataType depends on format type:
317 
318 			if ( rFlavor.DataType.equals( ::getCppuType( (const ::rtl::OUString*) 0 ) ) )
319 			{
320 				rtl::OUString aString;
321 				if ( aObj.ExportString( aString, nFormat ) )
322 					bOK = SetString( aString, rFlavor );
323 			}
324 			else if ( rFlavor.DataType.equals( ::getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) ) )
325 			{
326 				//	SetObject converts a stream into a Int8-Sequence
327 				bOK = SetObject( &aObj, SCTRANS_TYPE_IMPEX, rFlavor );
328 			}
329 			else
330 			{
331 				DBG_ERROR("unknown DataType");
332 			}
333 		}
334 		else if ( nFormat == SOT_FORMAT_BITMAP || nFormat == SOT_FORMATSTR_ID_PNG )
335 		{
336 			Rectangle aMMRect = pDoc->GetMMRect( aBlock.aStart.Col(), aBlock.aStart.Row(),
337 												 aBlock.aEnd.Col(), aBlock.aEnd.Row(),
338 												 aBlock.aStart.Tab() );
339 			VirtualDevice aVirtDev;
340 			aVirtDev.SetOutputSizePixel( aVirtDev.LogicToPixel( aMMRect.GetSize(), MAP_100TH_MM ) );
341 
342 			PaintToDev( &aVirtDev, pDoc, 1.0, aBlock, sal_False );
343 
344 			aVirtDev.SetMapMode( MapMode( MAP_PIXEL ) );
345 			Bitmap aBmp = aVirtDev.GetBitmap( Point(), aVirtDev.GetOutputSize() );
346 			bOK = SetBitmapEx( aBmp, rFlavor );
347 		}
348 		else if ( nFormat == SOT_FORMAT_GDIMETAFILE )
349 		{
350             // #123405# Do not limit visual size calculation for metafile creation.
351             // It seems unlikely that removing the limitation causes problems since
352             // metafile creation means that no real pixel device in the needed size is
353             // created.
354             InitDocShell(false);
355 
356             SfxObjectShell* pEmbObj = aDocShellRef;
357 
358 			// like SvEmbeddedTransfer::GetData:
359 			GDIMetaFile		aMtf;
360 			VirtualDevice	aVDev;
361 			MapMode			aMapMode( pEmbObj->GetMapUnit() );
362 			Rectangle		aVisArea( pEmbObj->GetVisArea( ASPECT_CONTENT ) );
363 
364 			aVDev.EnableOutput( sal_False );
365 			aVDev.SetMapMode( aMapMode );
366 			aMtf.SetPrefSize( aVisArea.GetSize() );
367 			aMtf.SetPrefMapMode( aMapMode );
368 			aMtf.Record( &aVDev );
369 
370 			pEmbObj->DoDraw( &aVDev, Point(), aVisArea.GetSize(), JobSetup(), ASPECT_CONTENT );
371 
372 			aMtf.Stop();
373 			aMtf.WindStart();
374 
375 			bOK = SetGDIMetaFile( aMtf, rFlavor );
376 		}
377 		else if ( nFormat == SOT_FORMATSTR_ID_EMBED_SOURCE )
378 		{
379             //TODO/LATER: differentiate between formats?!
380             // #123405# Do limit visual size calculation to PageSize
381 			InitDocShell(true);			// set aDocShellRef
382 
383             SfxObjectShell* pEmbObj = aDocShellRef;
384 			bOK = SetObject( pEmbObj, SCTRANS_TYPE_EMBOBJ, rFlavor );
385 		}
386 	}
387 	return bOK;
388 }
389 
WriteObject(SotStorageStreamRef & rxOStm,void * pUserObject,sal_uInt32 nUserObjectId,const datatransfer::DataFlavor & rFlavor)390 sal_Bool ScTransferObj::WriteObject( SotStorageStreamRef& rxOStm, void* pUserObject, sal_uInt32 nUserObjectId,
391 										const datatransfer::DataFlavor& rFlavor )
392 {
393 	// called from SetObject, put data into stream
394 
395 	sal_Bool bRet = sal_False;
396 	switch (nUserObjectId)
397 	{
398 		case SCTRANS_TYPE_IMPEX:
399 			{
400 				ScImportExport* pImpEx = (ScImportExport*)pUserObject;
401 
402 				sal_uInt32 nFormat = SotExchange::GetFormat( rFlavor );
403                 // mba: no BaseURL for data exchange
404                 if ( pImpEx->ExportStream( *rxOStm, String(), nFormat ) )
405 					bRet = ( rxOStm->GetError() == ERRCODE_NONE );
406 			}
407 			break;
408 
409 		case SCTRANS_TYPE_EDIT_RTF:
410 		case SCTRANS_TYPE_EDIT_BIN:
411 			{
412 				ScTabEditEngine* pEngine = (ScTabEditEngine*)pUserObject;
413 				if ( nUserObjectId == SCTRANS_TYPE_EDIT_RTF )
414 				{
415 					pEngine->Write( *rxOStm, EE_FORMAT_RTF );
416 					bRet = ( rxOStm->GetError() == ERRCODE_NONE );
417 				}
418 				else
419 				{
420 					//	#107722# can't use Write for EditEngine format because that would
421 					//	write old format without support for unicode characters.
422 					//	Get the data from the EditEngine's transferable instead.
423 
424 					sal_uInt32 nParCnt = pEngine->GetParagraphCount();
425 					if ( nParCnt == 0 )
426 						nParCnt = 1;
427 					ESelection aSel( 0, 0, nParCnt-1, pEngine->GetTextLen(nParCnt-1) );
428 
429 					uno::Reference<datatransfer::XTransferable> xEditTrans = pEngine->CreateTransferable( aSel );
430 					TransferableDataHelper aEditHelper( xEditTrans );
431 
432 					bRet = aEditHelper.GetSotStorageStream( rFlavor, rxOStm );
433 				}
434 			}
435 			break;
436 
437 		case SCTRANS_TYPE_EMBOBJ:
438 			{
439                 // TODO/MBA: testing
440                 SfxObjectShell*   pEmbObj = (SfxObjectShell*) pUserObject;
441                 ::utl::TempFile     aTempFile;
442                 aTempFile.EnableKillingFile();
443                 uno::Reference< embed::XStorage > xWorkStore =
444                     ::comphelper::OStorageHelper::GetStorageFromURL( aTempFile.GetURL(), embed::ElementModes::READWRITE );
445 
446                 // write document storage
447                 pEmbObj->SetupStorage( xWorkStore, SOFFICE_FILEFORMAT_CURRENT, sal_False );
448 
449                 // mba: no relative ULRs for clipboard!
450                 SfxMedium aMedium( xWorkStore, String() );
451                 bRet = pEmbObj->DoSaveObjectAs( aMedium, sal_False );
452                 pEmbObj->DoSaveCompleted();
453 
454                 uno::Reference< embed::XTransactedObject > xTransact( xWorkStore, uno::UNO_QUERY );
455                 if ( xTransact.is() )
456                     xTransact->commit();
457 
458                 SvStream* pSrcStm = ::utl::UcbStreamHelper::CreateStream( aTempFile.GetURL(), STREAM_READ );
459                 if( pSrcStm )
460                 {
461                     rxOStm->SetBufferSize( 0xff00 );
462                     *rxOStm << *pSrcStm;
463                     delete pSrcStm;
464                 }
465 
466                 bRet = sal_True;
467 
468                 xWorkStore->dispose();
469                 xWorkStore = uno::Reference < embed::XStorage >();
470                 rxOStm->Commit();
471 			}
472 			break;
473 
474 		default:
475 			DBG_ERROR("unknown object id");
476 	}
477 	return bRet;
478 }
479 
ObjectReleased()480 void ScTransferObj::ObjectReleased()
481 {
482 	ScModule* pScMod = SC_MOD();
483 	if ( pScMod->GetClipData().pCellClipboard == this )
484 		pScMod->SetClipObject( NULL, NULL );
485 
486 	TransferableHelper::ObjectReleased();
487 }
488 
DragFinished(sal_Int8 nDropAction)489 void ScTransferObj::DragFinished( sal_Int8 nDropAction )
490 {
491 	if ( nDropAction == DND_ACTION_MOVE && !bDragWasInternal && !(nDragSourceFlags & SC_DROP_NAVIGATOR) )
492 	{
493 		//	move: delete source data
494 		ScDocShell* pSourceSh = GetSourceDocShell();
495 		if (pSourceSh)
496 		{
497 			ScMarkData aMarkData = GetSourceMarkData();
498 			//	external drag&drop doesn't copy objects, so they also aren't deleted:
499 			//	#105703# bApi=sal_True, don't show error messages from drag&drop
500 			pSourceSh->GetDocFunc().DeleteContents( aMarkData, IDF_ALL & ~IDF_OBJECTS, sal_True, sal_True );
501 		}
502 	}
503 
504 	ScModule* pScMod = SC_MOD();
505 	if ( pScMod->GetDragData().pCellTransfer == this )
506 		pScMod->ResetDragObject();
507 
508 	xDragSourceRanges = NULL;		// don't keep source after dropping
509 
510 	TransferableHelper::DragFinished( nDropAction );
511 }
512 
SetDragHandlePos(SCCOL nX,SCROW nY)513 void ScTransferObj::SetDragHandlePos( SCCOL nX, SCROW nY )
514 {
515 	nDragHandleX = nX;
516 	nDragHandleY = nY;
517 }
518 
SetVisibleTab(SCTAB nNew)519 void ScTransferObj::SetVisibleTab( SCTAB nNew )
520 {
521 	nVisibleTab = nNew;
522 }
523 
SetDrawPersist(const SfxObjectShellRef & rRef)524 void ScTransferObj::SetDrawPersist( const SfxObjectShellRef& rRef )
525 {
526     aDrawPersistRef = rRef;
527 }
528 
SetDragSource(ScDocShell * pSourceShell,const ScMarkData & rMark)529 void ScTransferObj::SetDragSource( ScDocShell* pSourceShell, const ScMarkData& rMark )
530 {
531 	ScRangeList aRanges;
532 	rMark.FillRangeListWithMarks( &aRanges, sal_False );
533 	xDragSourceRanges = new ScCellRangesObj( pSourceShell, aRanges );
534 }
535 
SetDragSourceFlags(sal_uInt16 nFlags)536 void ScTransferObj::SetDragSourceFlags( sal_uInt16 nFlags )
537 {
538 	nDragSourceFlags = nFlags;
539 }
540 
SetDragWasInternal()541 void ScTransferObj::SetDragWasInternal()
542 {
543 	bDragWasInternal = sal_True;
544 }
545 
SetUseInApi(bool bSet)546 void ScTransferObj::SetUseInApi( bool bSet )
547 {
548     bUseInApi = bSet;
549 }
550 
GetSourceDocument()551 ScDocument* ScTransferObj::GetSourceDocument()
552 {
553 	ScDocShell* pSourceDocSh = GetSourceDocShell();
554 	if (pSourceDocSh)
555 		return pSourceDocSh->GetDocument();
556 	return NULL;
557 }
558 
GetSourceDocShell()559 ScDocShell* ScTransferObj::GetSourceDocShell()
560 {
561 	ScCellRangesBase* pRangesObj = ScCellRangesBase::getImplementation( xDragSourceRanges );
562 	if (pRangesObj)
563 		return pRangesObj->GetDocShell();
564 
565 	return NULL;	// none set
566 }
567 
GetSourceMarkData()568 ScMarkData ScTransferObj::GetSourceMarkData()
569 {
570 	ScMarkData aMarkData;
571 	ScCellRangesBase* pRangesObj = ScCellRangesBase::getImplementation( xDragSourceRanges );
572 	if (pRangesObj)
573 	{
574 		const ScRangeList& rRanges = pRangesObj->GetRangeList();
575 		aMarkData.MarkFromRangeList( rRanges, sal_False );
576 	}
577 	return aMarkData;
578 }
579 
580 //
581 //	initialize aDocShellRef with a live document from the ClipDoc
582 //
583 // #123405# added parameter to allow size calculation without limitation
584 // to PageSize, e.g. used for Metafile creation for clipboard.
585 
InitDocShell(bool bLimitToPageSize)586 void ScTransferObj::InitDocShell(bool bLimitToPageSize)
587 {
588 	if ( !aDocShellRef.Is() )
589 	{
590 		ScDocShell* pDocSh = new ScDocShell;
591 		aDocShellRef = pDocSh;		// ref must be there before InitNew
592 
593 		pDocSh->DoInitNew(NULL);
594 
595 		ScDocument* pDestDoc = pDocSh->GetDocument();
596 		ScMarkData aDestMark;
597 		aDestMark.SelectTable( 0, sal_True );
598 
599         pDestDoc->SetDocOptions( pDoc->GetDocOptions() );   // #i42666#
600 
601 		String aTabName;
602 		pDoc->GetName( aBlock.aStart.Tab(), aTabName );
603 		pDestDoc->RenameTab( 0, aTabName, sal_False );			// no UpdateRef (empty)
604 
605 		pDestDoc->CopyStdStylesFrom( pDoc );
606 
607 		SCCOL nStartX = aBlock.aStart.Col();
608 		SCROW nStartY = aBlock.aStart.Row();
609 		SCCOL nEndX = aBlock.aEnd.Col();
610 		SCROW nEndY = aBlock.aEnd.Row();
611 
612 		//	widths / heights
613 		//	(must be copied before CopyFromClip, for drawing objects)
614 
615 		SCCOL nCol, nLastCol;
616 		SCTAB nSrcTab = aBlock.aStart.Tab();
617         pDestDoc->SetLayoutRTL(0, pDoc->IsLayoutRTL(nSrcTab));
618 		for (nCol=nStartX; nCol<=nEndX; nCol++)
619 			if ( pDoc->ColHidden(nCol, nSrcTab, nLastCol) )
620 				pDestDoc->ShowCol( nCol, 0, sal_False );
621 			else
622 				pDestDoc->SetColWidth( nCol, 0, pDoc->GetColWidth( nCol, nSrcTab ) );
623 
624         ScBitMaskCompressedArray< SCROW, sal_uInt8> & rDestRowFlags =
625             pDestDoc->GetRowFlagsArrayModifiable(0);
626 
627 		for (SCROW nRow = nStartY; nRow <= nEndY; ++nRow)
628 		{
629             sal_uInt8 nSourceFlags = pDoc->GetRowFlags(nRow, nSrcTab);
630             SCROW nLastRow = -1;
631             if ( pDoc->RowHidden(nRow, nSrcTab, nLastRow) )
632 				pDestDoc->ShowRow( nRow, 0, sal_False );
633 			else
634 			{
635 				pDestDoc->SetRowHeight( nRow, 0, pDoc->GetOriginalHeight( nRow, nSrcTab ) );
636 
637 				//	if height was set manually, that flag has to be copied, too
638 				if ( nSourceFlags & CR_MANUALSIZE )
639 					rDestRowFlags.OrValue( nRow, CR_MANUALSIZE);
640 			}
641 		}
642 
643 		if ( pDoc->GetDrawLayer() )
644 			pDocSh->MakeDrawLayer();
645 
646 		//	cell range is copied to the original position, but on the first sheet
647 		//	-> bCutMode must be set
648 		//	pDoc is always a Clipboard-document
649 
650 		ScRange aDestRange( nStartX,nStartY,0, nEndX,nEndY,0 );
651 		sal_Bool bWasCut = pDoc->IsCutMode();
652 		if (!bWasCut)
653 			pDoc->SetClipArea( aDestRange, sal_True );			// Cut
654 		pDestDoc->CopyFromClip( aDestRange, aDestMark, IDF_ALL, NULL, pDoc, sal_False );
655 		pDoc->SetClipArea( aDestRange, bWasCut );
656 
657 		StripRefs( pDoc, nStartX,nStartY, nEndX,nEndY, pDestDoc, 0,0 );
658 
659 		ScRange aMergeRange = aDestRange;
660 		pDestDoc->ExtendMerge( aMergeRange, sal_True );
661 
662 		pDoc->CopyDdeLinks( pDestDoc );			// copy values of DDE Links
663 
664 		//	page format (grid etc) and page size (maximum size for ole object)
665 
666 		Size aPaperSize = SvxPaperInfo::GetPaperSize( PAPER_A4 );		// Twips
667 		ScStyleSheetPool* pStylePool = pDoc->GetStyleSheetPool();
668 		String aStyleName = pDoc->GetPageStyle( aBlock.aStart.Tab() );
669 		SfxStyleSheetBase* pStyleSheet = pStylePool->Find( aStyleName, SFX_STYLE_FAMILY_PAGE );
670 		if (pStyleSheet)
671 		{
672 			const SfxItemSet& rSourceSet = pStyleSheet->GetItemSet();
673 			aPaperSize = ((const SvxSizeItem&) rSourceSet.Get(ATTR_PAGE_SIZE)).GetSize();
674 
675 			//	CopyStyleFrom kopiert SetItems mit richtigem Pool
676 			ScStyleSheetPool* pDestPool = pDestDoc->GetStyleSheetPool();
677 			pDestPool->CopyStyleFrom( pStylePool, aStyleName, SFX_STYLE_FAMILY_PAGE );
678 		}
679 
680 		ScViewData aViewData( pDocSh, NULL );
681 		aViewData.SetScreen( nStartX,nStartY, nEndX,nEndY );
682 		aViewData.SetCurX( nStartX );
683 		aViewData.SetCurY( nStartY );
684 
685 		pDestDoc->SetViewOptions( pDoc->GetViewOptions() );
686 
687 		//		Size
688 		//! get while copying sizes
689 
690 		long nPosX = 0;
691 		long nPosY = 0;
692 
693 		for (nCol=0; nCol<nStartX; nCol++)
694 			nPosX += pDestDoc->GetColWidth( nCol, 0 );
695         nPosY += pDestDoc->GetRowHeight( 0, nStartY-1, 0 );
696 		nPosX = (long) ( nPosX * HMM_PER_TWIPS );
697 		nPosY = (long) ( nPosY * HMM_PER_TWIPS );
698 
699 
700 		aPaperSize.Width()  *= 2;		// limit OLE object to double of page size
701 		aPaperSize.Height() *= 2;
702 
703 		long nSizeX = 0;
704 		long nSizeY = 0;
705 		for (nCol=nStartX; nCol<=nEndX; nCol++)
706 		{
707 			long nAdd = pDestDoc->GetColWidth( nCol, 0 );
708 			if ( bLimitToPageSize && nSizeX+nAdd > aPaperSize.Width() && nSizeX )	// above limit?
709 				break;
710 			nSizeX += nAdd;
711 		}
712 		for (SCROW nRow=nStartY; nRow<=nEndY; nRow++)
713 		{
714 			long nAdd = pDestDoc->GetRowHeight( nRow, 0 );
715 			if ( bLimitToPageSize && nSizeY+nAdd > aPaperSize.Height() && nSizeY )	// above limit?
716 				break;
717 			nSizeY += nAdd;
718 		}
719 		nSizeX = (long) ( nSizeX * HMM_PER_TWIPS );
720 		nSizeY = (long) ( nSizeY * HMM_PER_TWIPS );
721 
722 //		pDocSh->SetVisAreaSize( Size(nSizeX,nSizeY) );
723 
724 		Rectangle aNewArea( Point(nPosX,nPosY), Size(nSizeX,nSizeY) );
725         //TODO/LATER: why twice?!
726         //pDocSh->SvInPlaceObject::SetVisArea( aNewArea );
727 		pDocSh->SetVisArea( aNewArea );
728 
729 		pDocSh->UpdateOle(&aViewData, sal_True);
730 
731 		//!	SetDocumentModified?
732 		if ( pDestDoc->IsChartListenerCollectionNeedsUpdate() )
733 			pDestDoc->UpdateChartListenerCollection();
734 	}
735 }
736 
737 //	static
SetDrawClipDoc(sal_Bool bAnyOle)738 SfxObjectShell* ScTransferObj::SetDrawClipDoc( sal_Bool bAnyOle )
739 {
740 	// update ScGlobal::pDrawClipDocShellRef
741 
742     delete ScGlobal::pDrawClipDocShellRef;
743     if (bAnyOle)
744     {
745         ScGlobal::pDrawClipDocShellRef =
746                         new ScDocShellRef(new ScDocShell(SFX_CREATE_MODE_INTERNAL));      // there must be a ref
747         (*ScGlobal::pDrawClipDocShellRef)->DoInitNew(NULL);
748         return *ScGlobal::pDrawClipDocShellRef;
749     }
750     else
751     {
752         ScGlobal::pDrawClipDocShellRef = NULL;
753         return NULL;
754     }
755 }
756 
757 //	static
StripRefs(ScDocument * pDoc,SCCOL nStartX,SCROW nStartY,SCCOL nEndX,SCROW nEndY,ScDocument * pDestDoc,SCCOL nSubX,SCROW nSubY)758 void ScTransferObj::StripRefs( ScDocument* pDoc,
759 					SCCOL nStartX, SCROW nStartY, SCCOL nEndX, SCROW nEndY,
760 					ScDocument* pDestDoc, SCCOL nSubX, SCROW nSubY )
761 {
762 	if (!pDestDoc)
763 	{
764 		pDestDoc = pDoc;
765 		DBG_ASSERT(nSubX==0&&nSubY==0, "can't move within the document");
766 	}
767 
768 	//	In a clipboard doc the data don't have to be on the first sheet
769 
770 	SCTAB nSrcTab = 0;
771 	while (nSrcTab<MAXTAB && !pDoc->HasTable(nSrcTab))
772 		++nSrcTab;
773 	SCTAB nDestTab = 0;
774 	while (nDestTab<MAXTAB && !pDestDoc->HasTable(nDestTab))
775 		++nDestTab;
776 
777 	if (!pDoc->HasTable(nSrcTab) || !pDestDoc->HasTable(nDestTab))
778 	{
779 		DBG_ERROR("Sheet not found in ScTransferObj::StripRefs");
780 		return;
781 	}
782 
783 	SvNumberFormatter* pFormatter = pDoc->GetFormatTable();
784 	ScRange aRef;
785 
786 	ScCellIterator aIter( pDoc, nStartX, nStartY, nSrcTab, nEndX, nEndY, nSrcTab );
787 	ScBaseCell* pCell = aIter.GetFirst();
788 	while (pCell)
789 	{
790 		if (pCell->GetCellType() == CELLTYPE_FORMULA)
791 		{
792 			ScFormulaCell* pFCell = (ScFormulaCell*) pCell;
793 			sal_Bool bOut = sal_False;
794 			ScDetectiveRefIter aRefIter( pFCell );
795 			while ( !bOut && aRefIter.GetNextRef( aRef ) )
796 			{
797 				if ( aRef.aStart.Tab() != nSrcTab || aRef.aEnd.Tab() != nSrcTab ||
798 						aRef.aStart.Col() < nStartX || aRef.aEnd.Col() > nEndX ||
799 						aRef.aStart.Row() < nStartY || aRef.aEnd.Row() > nEndY )
800 					bOut = sal_True;
801 			}
802 			if (bOut)
803 			{
804 				SCCOL nCol = aIter.GetCol() - nSubX;
805 				SCROW nRow = aIter.GetRow() - nSubY;
806 
807 				ScBaseCell* pNew = 0;
808 				sal_uInt16 nErrCode = pFCell->GetErrCode();
809 				if (nErrCode)
810 				{
811 					pNew = new ScStringCell( ScGlobal::GetErrorString(nErrCode) );
812 					if ( ((const SvxHorJustifyItem*) pDestDoc->GetAttr(
813 							nCol,nRow,nDestTab, ATTR_HOR_JUSTIFY))->GetValue() ==
814 							SVX_HOR_JUSTIFY_STANDARD )
815 						pDestDoc->ApplyAttr( nCol,nRow,nDestTab,
816 								SvxHorJustifyItem(SVX_HOR_JUSTIFY_RIGHT, ATTR_HOR_JUSTIFY) );
817 				}
818 				else if (pFCell->IsValue())
819 				{
820 					double fVal = pFCell->GetValue();
821 					pNew = new ScValueCell( fVal );
822 				}
823 				else
824 				{
825 					String aStr;
826 					pFCell->GetString(aStr);
827                     if ( pFCell->IsMultilineResult() )
828                         pNew = new ScEditCell( aStr, pDestDoc );
829                     else
830                         pNew = new ScStringCell( aStr );
831 				}
832 				pDestDoc->PutCell( nCol,nRow,nDestTab, pNew );
833 
834 				//	number formats
835 
836 				sal_uLong nOldFormat = ((const SfxUInt32Item*)
837 								pDestDoc->GetAttr(nCol,nRow,nDestTab, ATTR_VALUE_FORMAT))->GetValue();
838 				if ( (nOldFormat % SV_COUNTRY_LANGUAGE_OFFSET) == 0 )
839 				{
840 					sal_uLong nNewFormat = pFCell->GetStandardFormat( *pFormatter,
841 						nOldFormat );
842 					pDestDoc->ApplyAttr( nCol,nRow,nDestTab,
843 								SfxUInt32Item(ATTR_VALUE_FORMAT, nNewFormat) );
844 				}
845 			}
846 		}
847 		pCell = aIter.GetNext();
848 	}
849 }
850 
getUnoTunnelId()851 const com::sun::star::uno::Sequence< sal_Int8 >& ScTransferObj::getUnoTunnelId()
852 {
853     static com::sun::star::uno::Sequence< sal_Int8 > aSeq;
854     if( !aSeq.getLength() )
855     {
856         static osl::Mutex           aCreateMutex;
857         osl::Guard< osl::Mutex >    aGuard( aCreateMutex );
858         aSeq.realloc( 16 );
859         rtl_createUuid( reinterpret_cast< sal_uInt8* >( aSeq.getArray() ), 0, sal_True );
860     }
861     return aSeq;
862 }
863 
getSomething(const com::sun::star::uno::Sequence<sal_Int8> & rId)864 sal_Int64 SAL_CALL ScTransferObj::getSomething( const com::sun::star::uno::Sequence< sal_Int8 >& rId ) throw( com::sun::star::uno::RuntimeException )
865 {
866     sal_Int64 nRet;
867     if( ( rId.getLength() == 16 ) &&
868         ( 0 == rtl_compareMemory( getUnoTunnelId().getConstArray(), rId.getConstArray(), 16 ) ) )
869     {
870         nRet = reinterpret_cast< sal_Int64 >( this );
871     }
872     else
873         nRet = TransferableHelper::getSomething(rId);
874     return nRet;
875 }
876 
877 
878