xref: /trunk/main/sc/source/filter/xcl97/xcl97rec.cxx (revision b77af630)
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_scfilt.hxx"
26 
27 #include <svx/svdpool.hxx>
28 #include <svx/sdtaitm.hxx>
29 #include <svx/svdotext.hxx>
30 #include <editeng/editobj.hxx>
31 #include <svx/svdoole2.hxx>
32 #include <sot/storage.hxx>
33 #include <svl/itemset.hxx>
34 #include <svx/svdpage.hxx>
35 #include <svx/svdocapt.hxx>
36 #include <svx/unoapi.hxx>
37 #include <editeng/writingmodeitem.hxx>
38 #include <vcl/svapp.hxx>
39 #include <rtl/math.hxx>
40 #include <svl/zformat.hxx>
41 #include "cell.hxx"
42 #include "drwlayer.hxx"
43 
44 #include "xcl97rec.hxx"
45 #include "xcl97esc.hxx"
46 #include "editutil.hxx"
47 #include "xecontent.hxx"
48 #include "xeescher.hxx"
49 #include "xestyle.hxx"
50 #include "xelink.hxx"
51 
52 #include "scitems.hxx"
53 
54 #include <unotools/fltrcfg.hxx>
55 #include <editeng/brshitem.hxx>
56 #include <editeng/boxitem.hxx>
57 #include <editeng/frmdiritem.hxx>
58 #include <editeng/adjitem.hxx>
59 #include <editeng/eeitem.hxx>
60 #include <filter/msfilter/msoleexp.hxx>
61 
62 #include <unotools/localedatawrapper.hxx>
63 
64 #include <stdio.h>
65 
66 #include "document.hxx"
67 #include "conditio.hxx"
68 #include "rangelst.hxx"
69 #include "stlpool.hxx"
70 #include "viewopti.hxx"
71 #include "scextopt.hxx"
72 #include "docoptio.hxx"
73 #include "patattr.hxx"
74 #include "tabprotection.hxx"
75 
76 using namespace ::oox;
77 
78 using ::rtl::OString;
79 using ::rtl::OUString;
80 using namespace ::com::sun::star;
81 using ::com::sun::star::uno::Reference;
82 using ::com::sun::star::uno::UNO_QUERY;
83 using ::com::sun::star::beans::XPropertySet;
84 using ::com::sun::star::drawing::XShape;
85 
86 // ============================================================================
87 
XclExpObjList(const XclExpRoot & rRoot,XclEscherEx & rEscherEx)88 XclExpObjList::XclExpObjList( const XclExpRoot& rRoot, XclEscherEx& rEscherEx ) :
89     XclExpRoot( rRoot ),
90     mrEscherEx( rEscherEx ),
91     pSolverContainer( 0 )
92 {
93     pMsodrawingPerSheet = new XclExpMsoDrawing( rEscherEx );
94     // open the DGCONTAINER and the patriarch group shape
95     mrEscherEx.OpenContainer( ESCHER_DgContainer );
96     Rectangle aRect( 0, 0, 0, 0 );
97     mrEscherEx.EnterGroup( &aRect );
98     mrEscherEx.UpdateDffFragmentEnd();
99 }
100 
~XclExpObjList()101 XclExpObjList::~XclExpObjList()
102 {
103 	for ( XclObj* p = First(); p; p = Next() )
104 		delete p;
105 	delete pMsodrawingPerSheet;
106     delete pSolverContainer;
107 }
108 
Add(XclObj * pObj)109 sal_uInt16 XclExpObjList::Add( XclObj* pObj )
110 {
111     DBG_ASSERT( Count() < 0xFFFF, "XclExpObjList::Add: too much for Xcl" );
112 	if ( Count() < 0xFFFF )
113 	{
114 		Insert( pObj, LIST_APPEND );
115 		sal_uInt16 nCnt = (sal_uInt16) Count();
116 		pObj->SetId( nCnt );
117 		return nCnt;
118 	}
119 	else
120 	{
121 		delete pObj;
122 		return 0;
123 	}
124 }
125 
EndSheet()126 void XclExpObjList::EndSheet()
127 {
128     // Is there still something in the stream? -> The solver container
129     if( mrEscherEx.HasPendingDffData() )
130         pSolverContainer = new XclExpMsoDrawing( mrEscherEx );
131 
132     // close the DGCONTAINER created by XclExpObjList ctor MSODRAWING
133     mrEscherEx.CloseContainer();
134 }
135 
Save(XclExpStream & rStrm)136 void XclExpObjList::Save( XclExpStream& rStrm )
137 {
138 	//! Escher must be written, even if there are no objects
139 	pMsodrawingPerSheet->Save( rStrm );
140 
141 	for ( XclObj* p = First(); p; p = Next() )
142 		p->Save( rStrm );
143 
144     if( pSolverContainer )
145         pSolverContainer->Save( rStrm );
146 }
147 
148 // --- class XclObj --------------------------------------------------
149 
XclObj(XclExpObjectManager & rObjMgr,sal_uInt16 nObjType,bool bOwnEscher)150 XclObj::XclObj( XclExpObjectManager& rObjMgr, sal_uInt16 nObjType, bool bOwnEscher ) :
151     XclExpRecord( EXC_ID_OBJ, 26 ),
152     mrEscherEx( rObjMgr.GetEscherEx() ),
153     pClientTextbox( NULL ),
154     pTxo( NULL ),
155     mnObjType( nObjType ),
156     nObjId(0),
157     nGrbit( 0x6011 ),   // AutoLine, AutoFill, Printable, Locked
158     bFirstOnSheet( !rObjMgr.HasObj() ),
159     mbOwnEscher( bOwnEscher )
160 {
161 	//! first object continues the first MSODRAWING record
162 	if ( bFirstOnSheet )
163         pMsodrawing = rObjMgr.GetMsodrawingPerSheet();
164 	else
165         pMsodrawing = new XclExpMsoDrawing( mrEscherEx );
166 }
167 
~XclObj()168 XclObj::~XclObj()
169 {
170 	if ( !bFirstOnSheet )
171 		delete pMsodrawing;
172 	delete pClientTextbox;
173 	delete pTxo;
174 }
175 
ImplWriteAnchor(const XclExpRoot &,const SdrObject * pSdrObj,const Rectangle * pChildAnchor)176 void XclObj::ImplWriteAnchor( const XclExpRoot& /*rRoot*/, const SdrObject* pSdrObj, const Rectangle* pChildAnchor )
177 {
178     if( pChildAnchor )
179     {
180         mrEscherEx.AddChildAnchor( *pChildAnchor );
181     }
182     else if( pSdrObj )
183     {
184         ::std::auto_ptr< XclExpDffAnchorBase > xDffAnchor( mrEscherEx.CreateDffAnchor( *pSdrObj ) );
185         xDffAnchor->WriteDffData( mrEscherEx );
186     }
187 }
188 
SetEscherShapeType(sal_uInt16 nType)189 void XclObj::SetEscherShapeType( sal_uInt16 nType )
190 {
191 //2do: what about the other defined ot... types?
192 	switch ( nType )
193 	{
194 		case ESCHER_ShpInst_Line :
195             mnObjType = EXC_OBJTYPE_LINE;
196 		break;
197 		case ESCHER_ShpInst_Rectangle :
198 		case ESCHER_ShpInst_RoundRectangle :
199             mnObjType = EXC_OBJTYPE_RECTANGLE;
200 		break;
201 		case ESCHER_ShpInst_Ellipse :
202             mnObjType = EXC_OBJTYPE_OVAL;
203 		break;
204 		case ESCHER_ShpInst_Arc :
205             mnObjType = EXC_OBJTYPE_ARC;
206 		break;
207 		case ESCHER_ShpInst_TextBox :
208             mnObjType = EXC_OBJTYPE_TEXT;
209 		break;
210 		case ESCHER_ShpInst_PictureFrame :
211             mnObjType = EXC_OBJTYPE_PICTURE;
212 		break;
213 		default:
214             mnObjType = EXC_OBJTYPE_DRAWING;
215 	}
216 }
217 
SetText(const XclExpRoot & rRoot,const SdrTextObj & rObj)218 void XclObj::SetText( const XclExpRoot& rRoot, const SdrTextObj& rObj )
219 {
220 	DBG_ASSERT( !pClientTextbox, "XclObj::SetText: already set" );
221 	if ( !pClientTextbox )
222 	{
223         mrEscherEx.UpdateDffFragmentEnd();
224         pClientTextbox = new XclExpMsoDrawing( mrEscherEx );
225         mrEscherEx.AddAtom( 0, ESCHER_ClientTextbox );    // TXO record
226         mrEscherEx.UpdateDffFragmentEnd();
227         pTxo = new XclTxo( rRoot, rObj );
228 	}
229 }
230 
WriteBody(XclExpStream & rStrm)231 void XclObj::WriteBody( XclExpStream& rStrm )
232 {
233     DBG_ASSERT( mnObjType != EXC_OBJTYPE_UNKNOWN, "XclObj::WriteBody - unknown type" );
234 
235     // create a substream to be able to create subrecords
236     SvMemoryStream aMemStrm;
237     ::std::auto_ptr< XclExpStream > pXclStrm( new XclExpStream( aMemStrm, rStrm.GetRoot() ) );
238 
239     // write the ftCmo subrecord
240     pXclStrm->StartRecord( EXC_ID_OBJCMO, 18 );
241     *pXclStrm << mnObjType << nObjId << nGrbit;
242     pXclStrm->WriteZeroBytes( 12 );
243     pXclStrm->EndRecord();
244 
245     // write other subrecords
246     WriteSubRecs( *pXclStrm );
247 
248     // write the ftEnd subrecord
249     pXclStrm->StartRecord( EXC_ID_OBJEND, 0 );
250     pXclStrm->EndRecord();
251 
252     // copy the data to the OBJ record
253     pXclStrm.reset();
254     aMemStrm.Seek( 0 );
255     rStrm.CopyFromStream( aMemStrm );
256 }
257 
Save(XclExpStream & rStrm)258 void XclObj::Save( XclExpStream& rStrm )
259 {
260 	// MSODRAWING record (msofbtSpContainer)
261 	if ( !bFirstOnSheet )
262 		pMsodrawing->Save( rStrm );
263 
264 	// OBJ
265     XclExpRecord::Save( rStrm );
266 
267     // second MSODRAWING record and TXO and CONTINUE records
268     SaveTextRecs( rStrm );
269 }
270 
WriteSubRecs(XclExpStream &)271 void XclObj::WriteSubRecs( XclExpStream& /*rStrm*/ )
272 {
273 }
274 
SaveTextRecs(XclExpStream & rStrm)275 void XclObj::SaveTextRecs( XclExpStream& rStrm )
276 {
277 	// MSODRAWING record (msofbtClientTextbox)
278 	if ( pClientTextbox )
279 		pClientTextbox->Save( rStrm );
280 	// TXO and CONTINUE records
281 	if ( pTxo )
282 		pTxo->Save( rStrm );
283 }
284 
285 // --- class XclObjComment -------------------------------------------
286 
XclObjComment(XclExpObjectManager & rObjMgr,const Rectangle & rRect,const EditTextObject & rEditObj,SdrObject * pCaption,bool bVisible)287 XclObjComment::XclObjComment( XclExpObjectManager& rObjMgr, const Rectangle& rRect, const EditTextObject& rEditObj, SdrObject* pCaption, bool bVisible ) :
288     XclObj( rObjMgr, EXC_OBJTYPE_NOTE, true )
289 {
290     ProcessEscherObj( rObjMgr.GetRoot(), rRect, pCaption, bVisible);
291 	// TXO
292     pTxo = new XclTxo( rObjMgr.GetRoot(), rEditObj, pCaption );
293 }
294 
ProcessEscherObj(const XclExpRoot & rRoot,const Rectangle & rRect,SdrObject * pCaption,const bool bVisible)295 void XclObjComment::ProcessEscherObj( const XclExpRoot& rRoot, const Rectangle& rRect, SdrObject* pCaption, const bool bVisible )
296 {
297     Reference<XShape> aXShape;
298     EscherPropertyContainer aPropOpt;
299 
300     if(pCaption)
301     {
302         aXShape = GetXShapeForSdrObject(pCaption);
303         Reference< XPropertySet > aXPropSet( aXShape, UNO_QUERY );
304         if( aXPropSet.is() )
305         {
306             aPropOpt.CreateFillProperties( aXPropSet,  sal_True);
307 
308             aPropOpt.AddOpt( ESCHER_Prop_lTxid, 0 );						// undocumented
309 	    aPropOpt.AddOpt( 0x0158, 0x00000000 );							// undocumented
310 
311             sal_uInt32 nValue = 0;
312             if(!aPropOpt.GetOpt( ESCHER_Prop_FitTextToShape, nValue ))
313                 aPropOpt.AddOpt( ESCHER_Prop_FitTextToShape, 0x00080008 );		// bool field
314 
315             if(aPropOpt.GetOpt( ESCHER_Prop_fillColor, nValue ))
316             {
317                 // If the Colour is the same as the 'ToolTip' System colour then
318                 // use the default rather than the explicit colour value. This will
319                 // be incorrect where user has chosen to use this colour explicity.
320                 Color aColor = Color( (sal_uInt8)nValue, (sal_uInt8)( nValue >> 8 ), (sal_uInt8)( nValue >> 16 ) );
321                 const StyleSettings& rSett = Application::GetSettings().GetStyleSettings();
322                 if(aColor == rSett.GetHelpColor().GetColor())
323                 {
324                     aPropOpt.AddOpt( ESCHER_Prop_fillColor, 0x08000050 );
325                     aPropOpt.AddOpt( ESCHER_Prop_fillBackColor, 0x08000050 );
326                 }
327             }
328             else
329                 aPropOpt.AddOpt( ESCHER_Prop_fillColor, 0x08000050 );
330 
331             if(!aPropOpt.GetOpt( ESCHER_Prop_fillBackColor, nValue ))
332                 aPropOpt.AddOpt( ESCHER_Prop_fillBackColor, 0x08000050 );
333 	    if(!aPropOpt.GetOpt( ESCHER_Prop_fNoFillHitTest, nValue ))
334                 aPropOpt.AddOpt( ESCHER_Prop_fNoFillHitTest, 0x00110010 );		// bool field
335 	    if(!aPropOpt.GetOpt( ESCHER_Prop_shadowColor, nValue ))
336                 aPropOpt.AddOpt( ESCHER_Prop_shadowColor, 0x00000000 );
337 	    if(!aPropOpt.GetOpt( ESCHER_Prop_fshadowObscured, nValue ))		// bool field
338                 aPropOpt.AddOpt( ESCHER_Prop_fshadowObscured, 0x00030003 );		// bool field
339         }
340     }
341 
342 	nGrbit = 0;		// all off: AutoLine, AutoFill, Printable, Locked
343     mrEscherEx.OpenContainer( ESCHER_SpContainer );
344     mrEscherEx.AddShape( ESCHER_ShpInst_TextBox, SHAPEFLAG_HAVEANCHOR | SHAPEFLAG_HAVESPT );
345     sal_uInt32 nFlags = 0x000A0000;
346     ::set_flag( nFlags, sal_uInt32(2), !bVisible );
347     aPropOpt.AddOpt( ESCHER_Prop_fPrint, nFlags );                  // bool field
348     aPropOpt.Commit( mrEscherEx.GetStream() );
349 
350     XclExpDffNoteAnchor( rRoot, rRect ).WriteDffData( mrEscherEx );
351 
352     mrEscherEx.AddAtom( 0, ESCHER_ClientData );                        // OBJ record
353     mrEscherEx.UpdateDffFragmentEnd();
354 
355 	//! Be sure to construct the MSODRAWING ClientTextbox record _after_ the
356 	//! base OBJ's MSODRAWING record Escher data is completed.
357     pClientTextbox = new XclExpMsoDrawing( mrEscherEx );
358     mrEscherEx.AddAtom( 0, ESCHER_ClientTextbox );    // TXO record
359     mrEscherEx.UpdateDffFragmentEnd();
360     mrEscherEx.CloseContainer();   // ESCHER_SpContainer
361 }
362 
~XclObjComment()363 XclObjComment::~XclObjComment()
364 {
365 }
366 
Save(XclExpStream & rStrm)367 void XclObjComment::Save( XclExpStream& rStrm )
368 {
369 	// content of this record
370 	XclObj::Save( rStrm );
371 }
372 
373 // --- class XclObjDropDown ------------------------------------------
374 
XclObjDropDown(XclExpObjectManager & rObjMgr,const ScAddress & rPos,sal_Bool bFilt)375 XclObjDropDown::XclObjDropDown( XclExpObjectManager& rObjMgr, const ScAddress& rPos, sal_Bool bFilt ) :
376     XclObj( rObjMgr, EXC_OBJTYPE_DROPDOWN, true ),
377     bIsFiltered( bFilt )
378 {
379 	SetLocked( sal_True );
380 	SetPrintable( sal_False );
381 	SetAutoFill( sal_True );
382 	SetAutoLine( sal_False );
383 	nGrbit |= 0x0100;	// undocumented
384     mrEscherEx.OpenContainer( ESCHER_SpContainer );
385     mrEscherEx.AddShape( ESCHER_ShpInst_HostControl, SHAPEFLAG_HAVEANCHOR | SHAPEFLAG_HAVESPT );
386 	EscherPropertyContainer aPropOpt;
387 	aPropOpt.AddOpt( ESCHER_Prop_LockAgainstGrouping, 0x01040104 );	// bool field
388 	aPropOpt.AddOpt( ESCHER_Prop_FitTextToShape, 0x00080008 );		// bool field
389 	aPropOpt.AddOpt( ESCHER_Prop_fNoFillHitTest, 0x00010000 );		// bool field
390 	aPropOpt.AddOpt( ESCHER_Prop_fNoLineDrawDash, 0x00080000 );		// bool field
391 	aPropOpt.AddOpt( ESCHER_Prop_fPrint, 0x000A0000 );				// bool field
392     aPropOpt.Commit( mrEscherEx.GetStream() );
393 
394     XclExpDffDropDownAnchor( rObjMgr.GetRoot(), rPos ).WriteDffData( mrEscherEx );
395 
396     mrEscherEx.AddAtom( 0, ESCHER_ClientData );                        // OBJ record
397     mrEscherEx.UpdateDffFragmentEnd();
398     mrEscherEx.CloseContainer();   // ESCHER_SpContainer
399 
400     // old size + ftSbs + ftLbsData
401     AddRecSize( 24 + 20 );
402 }
403 
~XclObjDropDown()404 XclObjDropDown::~XclObjDropDown()
405 {
406 }
407 
WriteSubRecs(XclExpStream & rStrm)408 void XclObjDropDown::WriteSubRecs( XclExpStream& rStrm )
409 {
410 	// ftSbs subrecord - Scroll bars (dummy)
411     rStrm.StartRecord( EXC_ID_OBJSBS, 20 );
412     rStrm.WriteZeroBytes( 20 );
413     rStrm.EndRecord();
414 
415 	// ftLbsData subrecord - Listbox data
416     sal_uInt16 nDropDownFlags = 0;
417     ::insert_value( nDropDownFlags, EXC_OBJ_DROPDOWN_SIMPLE, 0, 2 );
418     ::set_flag( nDropDownFlags, EXC_OBJ_DROPDOWN_FILTERED, bIsFiltered );
419     rStrm.StartRecord( EXC_ID_OBJLBSDATA, 16 );
420     rStrm   << (sal_uInt32)0 << (sal_uInt16)0 << (sal_uInt16)0x0301 << (sal_uInt16)0
421             << nDropDownFlags << sal_uInt16( 20 ) << sal_uInt16( 130 );
422     rStrm.EndRecord();
423 }
424 
425 // --- class XclTxo --------------------------------------------------
426 
lcl_GetHorAlignFromItemSet(const SfxItemSet & rItemSet)427 sal_uInt8 lcl_GetHorAlignFromItemSet( const SfxItemSet& rItemSet )
428 {
429     sal_uInt8 nHorAlign = EXC_OBJ_HOR_LEFT;
430 
431     switch( static_cast< const SvxAdjustItem& >( rItemSet.Get( EE_PARA_JUST ) ).GetAdjust() )
432     {
433         case SVX_ADJUST_LEFT:   nHorAlign = EXC_OBJ_HOR_LEFT;      break;
434         case SVX_ADJUST_CENTER: nHorAlign = EXC_OBJ_HOR_CENTER;    break;
435         case SVX_ADJUST_RIGHT:  nHorAlign = EXC_OBJ_HOR_RIGHT;     break;
436         case SVX_ADJUST_BLOCK:  nHorAlign = EXC_OBJ_HOR_JUSTIFY;   break;
437         default:;
438     }
439     return nHorAlign;
440 }
441 
lcl_GetVerAlignFromItemSet(const SfxItemSet & rItemSet)442 sal_uInt8 lcl_GetVerAlignFromItemSet( const SfxItemSet& rItemSet )
443 {
444     sal_uInt8 nVerAlign = EXC_OBJ_VER_TOP;
445 
446     switch( static_cast< const SdrTextVertAdjustItem& >( rItemSet.Get( SDRATTR_TEXT_VERTADJUST ) ).GetValue() )
447     {
448         case SDRTEXTVERTADJUST_TOP:     nVerAlign = EXC_OBJ_VER_TOP;       break;
449         case SDRTEXTVERTADJUST_CENTER:  nVerAlign = EXC_OBJ_VER_CENTER;    break;
450         case SDRTEXTVERTADJUST_BOTTOM:  nVerAlign = EXC_OBJ_VER_BOTTOM;    break;
451         case SDRTEXTVERTADJUST_BLOCK:   nVerAlign = EXC_OBJ_VER_JUSTIFY;   break;
452     }
453     return nVerAlign;
454 }
455 
XclTxo(const String & rString,sal_uInt16 nFontIx)456 XclTxo::XclTxo( const String& rString, sal_uInt16 nFontIx ) :
457     mpString( new XclExpString( rString ) ),
458     mnRotation( EXC_OBJ_ORIENT_NONE ),
459     mnHorAlign( EXC_OBJ_HOR_LEFT ),
460     mnVerAlign( EXC_OBJ_VER_TOP )
461 {
462     if( mpString->Len() )
463     {
464         // If there is text, Excel *needs* the 2nd CONTINUE record with at least two format runs
465         mpString->AppendFormat( 0, nFontIx );
466         mpString->AppendFormat( mpString->Len(), EXC_FONT_APP );
467     }
468 }
469 
XclTxo(const XclExpRoot & rRoot,const SdrTextObj & rTextObj)470 XclTxo::XclTxo( const XclExpRoot& rRoot, const SdrTextObj& rTextObj ) :
471     mpString( XclExpStringHelper::CreateString( rRoot, rTextObj ) ),
472     mnRotation( EXC_OBJ_ORIENT_NONE ),
473     mnHorAlign( EXC_OBJ_HOR_LEFT ),
474     mnVerAlign( EXC_OBJ_VER_TOP )
475 {
476     // additional alignment and orientation items
477     const SfxItemSet& rItemSet = rTextObj.GetMergedItemSet();
478 
479     // horizontal alignment
480     SetHorAlign( lcl_GetHorAlignFromItemSet( rItemSet ) );
481 
482     // vertical alignment
483     SetVerAlign( lcl_GetVerAlignFromItemSet( rItemSet ) );
484 
485     // rotation
486     long nAngle = rTextObj.GetRotateAngle();
487     if( (4500 < nAngle) && (nAngle < 13500) )
488         mnRotation = EXC_OBJ_ORIENT_90CCW;
489     else if( (22500 < nAngle) && (nAngle < 31500) )
490         mnRotation = EXC_OBJ_ORIENT_90CW;
491     else
492         mnRotation = EXC_OBJ_ORIENT_NONE;
493 }
494 
XclTxo(const XclExpRoot & rRoot,const EditTextObject & rEditObj,SdrObject * pCaption)495 XclTxo::XclTxo( const XclExpRoot& rRoot, const EditTextObject& rEditObj, SdrObject* pCaption ) :
496     mpString( XclExpStringHelper::CreateString( rRoot, rEditObj ) ),
497     mnRotation( EXC_OBJ_ORIENT_NONE ),
498     mnHorAlign( EXC_OBJ_HOR_LEFT ),
499     mnVerAlign( EXC_OBJ_VER_TOP )
500 {
501     if(pCaption)
502     {
503         // Excel has one alignment per NoteObject while Calc supports
504         // one alignment per paragraph - use the first paragraph
505         // alignment (if set) as our overall alignment.
506         String aParaText( rEditObj.GetText( 0 ) );
507         if( aParaText.Len() )
508         {
509             SfxItemSet aSet( rEditObj.GetParaAttribs( 0));
510             const SfxPoolItem* pItem = NULL;
511             if( aSet.GetItemState( EE_PARA_JUST, sal_True, &pItem ) == SFX_ITEM_SET )
512             {
513                 SvxAdjust eEEAlign = static_cast< const SvxAdjustItem& >( *pItem ).GetAdjust();
514                 pCaption->SetMergedItem( SvxAdjustItem( eEEAlign, EE_PARA_JUST ) );
515             }
516         }
517         const SfxItemSet& rItemSet = pCaption->GetMergedItemSet();
518 
519         // horizontal alignment
520         SetHorAlign( lcl_GetHorAlignFromItemSet( rItemSet ) );
521 
522         // vertical alignment
523         SetVerAlign( lcl_GetVerAlignFromItemSet( rItemSet ) );
524 
525         // orientation alignment
526         const SvxWritingModeItem& rItem = static_cast< const SvxWritingModeItem& >( rItemSet.Get( SDRATTR_TEXTDIRECTION ) );
527         if( rItem.GetValue() == com::sun::star::text::WritingMode_TB_RL )
528             mnRotation = EXC_OBJ_ORIENT_90CW;
529     }
530 }
531 
SaveCont(XclExpStream & rStrm)532 void XclTxo::SaveCont( XclExpStream& rStrm )
533 {
534     DBG_ASSERT( mpString.get(), "XclTxo::SaveCont - missing string" );
535 
536     // #i96858# do not save existing string formatting if text is empty
537     sal_uInt16 nRunLen = mpString->IsEmpty() ? 0 : (8 * mpString->GetFormatsCount());
538     // alignment
539     sal_uInt16 nFlags = 0;
540     ::insert_value( nFlags, mnHorAlign, 1, 3 );
541     ::insert_value( nFlags, mnVerAlign, 4, 3 );
542 
543     rStrm << nFlags << mnRotation;
544     rStrm.WriteZeroBytes( 6 );
545     rStrm << mpString->Len() << nRunLen << sal_uInt32( 0 );
546 }
547 
Save(XclExpStream & rStrm)548 void XclTxo::Save( XclExpStream& rStrm )
549 {
550     // Write the TXO part
551 	ExcRecord::Save( rStrm );
552 
553 	// CONTINUE records are only written if there is some text
554     if( !mpString->IsEmpty() )
555 	{
556         // CONTINUE for character array
557         rStrm.StartRecord( EXC_ID_CONT, mpString->GetBufferSize() + 1 );
558         rStrm << static_cast< sal_uInt8 >( mpString->GetFlagField() & EXC_STRF_16BIT ); // only Unicode flag
559         mpString->WriteBuffer( rStrm );
560 		rStrm.EndRecord();
561 
562         // CONTINUE for formatting runs
563         rStrm.StartRecord( EXC_ID_CONT, 8 * mpString->GetFormatsCount() );
564         const XclFormatRunVec& rFormats = mpString->GetFormats();
565         for( XclFormatRunVec::const_iterator aIt = rFormats.begin(), aEnd = rFormats.end(); aIt != aEnd; ++aIt )
566             rStrm << aIt->mnChar << aIt->mnFontIdx << sal_uInt32( 0 );
567         rStrm.EndRecord();
568 	}
569 }
570 
GetNum() const571 sal_uInt16 XclTxo::GetNum() const
572 {
573     return EXC_ID_TXO;
574 }
575 
GetLen() const576 sal_Size XclTxo::GetLen() const
577 {
578 	return 18;
579 }
580 
581 // --- class XclObjOle -------------------------------------------
582 
XclObjOle(XclExpObjectManager & rObjMgr,const SdrObject & rObj)583 XclObjOle::XclObjOle( XclExpObjectManager& rObjMgr, const SdrObject& rObj ) :
584     XclObj( rObjMgr, EXC_OBJTYPE_PICTURE ),
585     rOleObj( rObj ),
586     pRootStorage( rObjMgr.GetRoot().GetRootStorage() )
587 {
588 }
589 
~XclObjOle()590 XclObjOle::~XclObjOle()
591 {
592 }
593 
WriteSubRecs(XclExpStream & rStrm)594 void XclObjOle::WriteSubRecs( XclExpStream& rStrm )
595 {
596 	// write only as embedded, not linked
597 	String			aStorageName( RTL_CONSTASCII_USTRINGPARAM( "MBD" ) );
598 	sal_Char		aBuf[ sizeof(sal_uInt32) * 2 + 1 ];
599     // FIXME Eeek! Is this just a way to get a unique id?
600 	sal_uInt32			nPictureId = sal_uInt32(sal_uIntPtr(this) >> 2);
601     sprintf( aBuf, "%08X", static_cast< unsigned int >( nPictureId ) );        // #100211# - checked
602 	aStorageName.AppendAscii( aBuf );
603     SotStorageRef    xOleStg = pRootStorage->OpenSotStorage( aStorageName,
604 							STREAM_READWRITE| STREAM_SHARE_DENYALL );
605 	if( xOleStg.Is() )
606 	{
607         uno::Reference < embed::XEmbeddedObject > xObj( ((SdrOle2Obj&)rOleObj).GetObjRef() );
608         if ( xObj.is() )
609 		{
610 			// set version to "old" version, because it must be
611 			// saved in MS notation.
612 			sal_uInt32					nFl = 0;
613 			SvtFilterOptions*		pFltOpts = SvtFilterOptions::Get();
614 			if( pFltOpts )
615 			{
616 				if( pFltOpts->IsMath2MathType() )
617 					nFl |= OLE_STARMATH_2_MATHTYPE;
618 
619 				if( pFltOpts->IsWriter2WinWord() )
620 					nFl |= OLE_STARWRITER_2_WINWORD;
621 
622 				if( pFltOpts->IsCalc2Excel() )
623 					nFl |= OLE_STARCALC_2_EXCEL;
624 
625 				if( pFltOpts->IsImpress2PowerPoint() )
626 					nFl |= OLE_STARIMPRESS_2_POWERPOINT;
627 			}
628 
629 			SvxMSExportOLEObjects	aOLEExpFilt( nFl );
630             aOLEExpFilt.ExportOLEObject( xObj, *xOleStg );
631 
632             // OBJCF subrecord, undocumented as usual
633             rStrm.StartRecord( EXC_ID_OBJCF, 2 );
634             rStrm << sal_uInt16(0x0002);
635             rStrm.EndRecord();
636 
637             // OBJFLAGS subrecord, undocumented as usual
638             rStrm.StartRecord( EXC_ID_OBJFLAGS, 2 );
639             sal_uInt16 nFlags = EXC_OBJ_PIC_MANUALSIZE;
640             ::set_flag( nFlags, EXC_OBJ_PIC_SYMBOL, ((SdrOle2Obj&)rOleObj).GetAspect() == embed::Aspects::MSOLE_ICON );
641             rStrm << nFlags;
642             rStrm.EndRecord();
643 
644             // OBJPICTFMLA subrecord, undocumented as usual
645             XclExpString aName( xOleStg->GetUserName() );
646             sal_uInt16 nPadLen = (sal_uInt16)(aName.GetSize() & 0x01);
647             sal_uInt16 nFmlaLen = static_cast< sal_uInt16 >( 12 + aName.GetSize() + nPadLen );
648 			sal_uInt16 nSubRecLen = nFmlaLen + 6;
649 
650             rStrm.StartRecord( EXC_ID_OBJPICTFMLA, nSubRecLen );
651             rStrm   << nFmlaLen
652                     << sal_uInt16( 5 ) << sal_uInt32( 0 ) << sal_uInt8( 2 )
653                     << sal_uInt32( 0 ) << sal_uInt8( 3 )
654                     << aName;
655 			if( nPadLen )
656                 rStrm << sal_uInt8( 0 );       // pad byte
657             rStrm << nPictureId;
658             rStrm.EndRecord();
659 		}
660 	}
661 }
662 
Save(XclExpStream & rStrm)663 void XclObjOle::Save( XclExpStream& rStrm )
664 {
665 	// content of this record
666 	XclObj::Save( rStrm );
667 }
668 
669 // --- class XclObjAny -------------------------------------------
670 
XclObjAny(XclExpObjectManager & rObjMgr)671 XclObjAny::XclObjAny( XclExpObjectManager& rObjMgr ) :
672     XclObj( rObjMgr, EXC_OBJTYPE_UNKNOWN )
673 {
674 }
675 
~XclObjAny()676 XclObjAny::~XclObjAny()
677 {
678 }
679 
WriteSubRecs(XclExpStream & rStrm)680 void XclObjAny::WriteSubRecs( XclExpStream& rStrm )
681 {
682     if( mnObjType == EXC_OBJTYPE_GROUP )
683         // ftGmo subrecord
684         rStrm << EXC_ID_OBJGMO << sal_uInt16(2) << sal_uInt16(0);
685 }
686 
Save(XclExpStream & rStrm)687 void XclObjAny::Save( XclExpStream& rStrm )
688 {
689     if( mnObjType == EXC_OBJTYPE_GROUP )
690         // old size + ftGmo
691         AddRecSize( 6 );
692 
693 	// content of this record
694 	XclObj::Save( rStrm );
695 }
696 
697 // --- class ExcBof8_Base --------------------------------------------
698 
ExcBof8_Base()699 ExcBof8_Base::ExcBof8_Base()
700 {
701 	nVers		  	= 0x0600;
702 	nRupBuild	  	= 0x0dbb;
703 	nRupYear	  	= 0x07cc;
704 //	nFileHistory  	= 0x00000001;	// last edited by Microsoft Excel for Windows
705 	nFileHistory  	= 0x00000000;
706 	nLowestBiffVer	= 0x00000006;	// Biff8
707 }
708 
709 
SaveCont(XclExpStream & rStrm)710 void ExcBof8_Base::SaveCont( XclExpStream& rStrm )
711 {
712     rStrm.DisableEncryption();
713 	rStrm	<< nVers << nDocType << nRupBuild << nRupYear
714 			<< nFileHistory << nLowestBiffVer;
715 }
716 
717 
GetNum() const718 sal_uInt16 ExcBof8_Base::GetNum() const
719 {
720 	return 0x0809;
721 }
722 
723 
GetLen() const724 sal_Size ExcBof8_Base::GetLen() const
725 {
726 	return 16;
727 }
728 
729 
730 // --- class ExcBof8 -------------------------------------------------
731 
ExcBof8()732 ExcBof8::ExcBof8()
733 {
734 	nDocType = 0x0010;
735 }
736 
737 
738 // --- class ExcBofW8 ------------------------------------------------
739 
ExcBofW8()740 ExcBofW8::ExcBofW8()
741 {
742 	nDocType = 0x0005;
743 }
744 
745 
746 // --- class ExcBundlesheet8 -----------------------------------------
747 
ExcBundlesheet8(RootData & rRootData,SCTAB _nTab)748 ExcBundlesheet8::ExcBundlesheet8( RootData& rRootData, SCTAB _nTab ) :
749 	ExcBundlesheetBase( rRootData, static_cast<sal_uInt16>(_nTab) ),
750     sUnicodeName( rRootData.pER->GetTabInfo().GetScTabName( _nTab ) )
751 {
752 }
753 
754 
ExcBundlesheet8(const String & rString)755 ExcBundlesheet8::ExcBundlesheet8( const String& rString ) :
756 	ExcBundlesheetBase(),
757     sUnicodeName( rString )
758 {
759 }
760 
761 
GetName() const762 XclExpString ExcBundlesheet8::GetName() const
763 {
764     return XclExpString( sUnicodeName, EXC_STR_8BITLENGTH );
765 }
766 
767 
SaveCont(XclExpStream & rStrm)768 void ExcBundlesheet8::SaveCont( XclExpStream& rStrm )
769 {
770     nOwnPos = rStrm.GetSvStreamPos();
771     // write dummy position, real position comes later
772     rStrm.DisableEncryption();
773     rStrm << sal_uInt32(0);
774     rStrm.EnableEncryption();
775     rStrm << nGrbit << GetName();
776 }
777 
778 
GetLen() const779 sal_Size ExcBundlesheet8::GetLen() const
780 {	// Text max 255 chars
781     return 8 + GetName().GetBufferSize();
782 }
783 
784 
SaveXml(XclExpXmlStream & rStrm)785 void ExcBundlesheet8::SaveXml( XclExpXmlStream& rStrm )
786 {
787     OUString sId;
788     rStrm.CreateOutputStream(
789             XclXmlUtils::GetStreamName( "xl/", "worksheets/sheet", nTab+1),
790             XclXmlUtils::GetStreamName( NULL, "worksheets/sheet", nTab+1),
791             rStrm.GetCurrentStream()->getOutputStream(),
792             "application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml",
793             "http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet",
794             &sId );
795 
796     rStrm.GetCurrentStream()->singleElement( XML_sheet,
797             XML_name,               XclXmlUtils::ToOString( sUnicodeName ).getStr(),
798             XML_sheetId,            rtl::OString::valueOf( (sal_Int32)( nTab+1 ) ).getStr(),
799             XML_state,              nGrbit == 0x0000 ? "visible" : "hidden",
800             FSNS( XML_r, XML_id ),  XclXmlUtils::ToOString( sId ).getStr(),
801             FSEND );
802 }
803 
804 
805 
806 // --- class XclObproj -----------------------------------------------
807 
GetNum() const808 sal_uInt16 XclObproj::GetNum() const
809 {
810 	return 0x00D3;
811 }
812 
813 
GetLen() const814 sal_Size XclObproj::GetLen() const
815 {
816 	return 0;
817 }
818 
819 
820 // ---- class XclCodename --------------------------------------------
821 
XclCodename(const String & r)822 XclCodename::XclCodename( const String& r ) : aName( r )
823 {
824 }
825 
826 
SaveCont(XclExpStream & rStrm)827 void XclCodename::SaveCont( XclExpStream& rStrm )
828 {
829     rStrm << aName;
830 }
831 
832 
GetNum() const833 sal_uInt16 XclCodename::GetNum() const
834 {
835 	return 0x01BA;
836 }
837 
838 
GetLen() const839 sal_Size XclCodename::GetLen() const
840 {
841     return aName.GetSize();
842 }
843 
844 
845 
846 // ---- Scenarios ----------------------------------------------------
847 
ExcEScenarioCell(sal_uInt16 nC,sal_uInt16 nR,const String & rTxt)848 ExcEScenarioCell::ExcEScenarioCell( sal_uInt16 nC, sal_uInt16 nR, const String& rTxt ) :
849 		nCol( nC ),
850 		nRow( nR ),
851         sText( rTxt, EXC_STR_DEFAULT, 255 )
852 {
853 }
854 
WriteAddress(XclExpStream & rStrm)855 void ExcEScenarioCell::WriteAddress( XclExpStream& rStrm )
856 {
857 	rStrm << nRow << nCol;
858 }
859 
WriteText(XclExpStream & rStrm)860 void ExcEScenarioCell::WriteText( XclExpStream& rStrm )
861 {
862     rStrm << sText;
863 }
864 
SaveXml(XclExpXmlStream & rStrm)865 void ExcEScenarioCell::SaveXml( XclExpXmlStream& rStrm )
866 {
867     rStrm.GetCurrentStream()->singleElement( XML_inputCells,
868             // OOXTODO: XML_deleted,
869             // OOXTODO: XML_numFmtId,
870             XML_r,      XclXmlUtils::ToOString( ScAddress( nCol, nRow, 0 ) ).getStr(),
871             // OOXTODO: XML_undone,
872             XML_val,    XclXmlUtils::ToOString( sText ).getStr(),
873             FSEND );
874 }
875 
876 
877 
878 
ExcEScenario(const XclExpRoot & rRoot,SCTAB nTab)879 ExcEScenario::ExcEScenario( const XclExpRoot& rRoot, SCTAB nTab )
880 {
881 	String	sTmpName;
882 	String	sTmpComm;
883 	Color	aDummyCol;
884 	sal_uInt16	nFlags;
885 
886     ScDocument& rDoc = rRoot.GetDoc();
887 	rDoc.GetName( nTab, sTmpName );
888     sName.Assign( sTmpName, EXC_STR_8BITLENGTH );
889     nRecLen = 8 + sName.GetBufferSize();
890 
891 	rDoc.GetScenarioData( nTab, sTmpComm, aDummyCol, nFlags );
892     sComment.Assign( sTmpComm, EXC_STR_DEFAULT, 255 );
893     if( sComment.Len() )
894         nRecLen += sComment.GetSize();
895     nProtected = (nFlags & SC_SCENARIO_PROTECT) ? 1 : 0;
896 
897     sUserName.Assign( rRoot.GetUserName(), EXC_STR_DEFAULT, 255 );
898     nRecLen += sUserName.GetSize();
899 
900 	const ScRangeList* pRList = rDoc.GetScenarioRanges( nTab );
901 	if( !pRList )
902 		return;
903 
904 	sal_Bool	bContLoop = sal_True;
905 	SCROW	nRow;
906 	SCCOL	nCol;
907 	String	sText;
908 	double	fVal;
909 
910 	for( sal_uInt32 nRange = 0; (nRange < pRList->Count()) && bContLoop; nRange++ )
911 	{
912 		const ScRange* pRange = pRList->GetObject( nRange );
913 		for( nRow = pRange->aStart.Row(); (nRow <= pRange->aEnd.Row()) && bContLoop; nRow++ )
914 			for( nCol = pRange->aStart.Col(); (nCol <= pRange->aEnd.Col()) && bContLoop; nCol++ )
915 			{
916 				if( rDoc.HasValueData( nCol, nRow, nTab ) )
917 				{
918 					rDoc.GetValue( nCol, nRow, nTab, fVal );
919                     sText = ::rtl::math::doubleToUString( fVal,
920                             rtl_math_StringFormat_Automatic,
921                             rtl_math_DecimalPlaces_Max,
922                             ScGlobal::pLocaleData->getNumDecimalSep().GetChar(0),
923                             sal_True );
924 				}
925 				else
926 					rDoc.GetString( nCol, nRow, nTab, sText );
927                 bContLoop = Append( static_cast<sal_uInt16>(nCol),
928                         static_cast<sal_uInt16>(nRow), sText );
929 			}
930 	}
931 }
932 
~ExcEScenario()933 ExcEScenario::~ExcEScenario()
934 {
935 	for( ExcEScenarioCell* pCell = _First(); pCell; pCell = _Next() )
936 		delete pCell;
937 }
938 
Append(sal_uInt16 nCol,sal_uInt16 nRow,const String & rTxt)939 sal_Bool ExcEScenario::Append( sal_uInt16 nCol, sal_uInt16 nRow, const String& rTxt )
940 {
941 	if( List::Count() == EXC_SCEN_MAXCELL )
942 		return sal_False;
943 
944 	ExcEScenarioCell* pCell = new ExcEScenarioCell( nCol, nRow, rTxt );
945 	List::Insert( pCell, LIST_APPEND );
946     nRecLen += 6 + pCell->GetStringBytes();        // 4 bytes address, 2 bytes ifmt
947 	return sal_True;
948 }
949 
SaveCont(XclExpStream & rStrm)950 void ExcEScenario::SaveCont( XclExpStream& rStrm )
951 {
952 	rStrm	<< (sal_uInt16) List::Count()		// number of cells
953 			<< nProtected		            // fProtection
954 			<< (sal_uInt8) 0					// fHidden
955             << (sal_uInt8) sName.Len()          // length of scen name
956             << (sal_uInt8) sComment.Len()       // length of comment
957             << (sal_uInt8) sUserName.Len();     // length of user name
958     sName.WriteFlagField( rStrm );
959 	sName.WriteBuffer( rStrm );
960 
961     rStrm << sUserName;
962 
963     if( sComment.Len() )
964         rStrm << sComment;
965 
966 	ExcEScenarioCell* pCell;
967 	for( pCell = _First(); pCell; pCell = _Next() )
968 		pCell->WriteAddress( rStrm );			// pos of cell
969 	for( pCell = _First(); pCell; pCell = _Next() )
970 		pCell->WriteText( rStrm );				// string content
971     rStrm.SetSliceSize( 2 );
972     rStrm.WriteZeroBytes( 2 * List::Count() );  // date format
973 }
974 
GetNum() const975 sal_uInt16 ExcEScenario::GetNum() const
976 {
977 	return 0x00AF;
978 }
979 
GetLen() const980 sal_Size ExcEScenario::GetLen() const
981 {
982     return nRecLen;
983 }
984 
SaveXml(XclExpXmlStream & rStrm)985 void ExcEScenario::SaveXml( XclExpXmlStream& rStrm )
986 {
987     sax_fastparser::FSHelperPtr& rWorkbook = rStrm.GetCurrentStream();
988     rWorkbook->startElement( XML_scenario,
989             XML_name,       XclXmlUtils::ToOString( sName ).getStr(),
990             XML_locked,     XclXmlUtils::ToPsz( nProtected ),
991             // OOXTODO: XML_hidden,
992             XML_count,      OString::valueOf( (sal_Int32) List::Count() ).getStr(),
993             XML_user,       XESTRING_TO_PSZ( sUserName ),
994             XML_comment,    XESTRING_TO_PSZ( sComment ),
995             FSEND );
996 
997     for( ExcEScenarioCell* pCell = _First(); pCell; pCell = _Next() )
998         pCell->SaveXml( rStrm );
999 
1000     rWorkbook->endElement( XML_scenario );
1001 }
1002 
1003 
1004 
1005 
ExcEScenarioManager(const XclExpRoot & rRoot,SCTAB nTab)1006 ExcEScenarioManager::ExcEScenarioManager( const XclExpRoot& rRoot, SCTAB nTab ) :
1007 		nActive( 0 )
1008 {
1009     ScDocument& rDoc = rRoot.GetDoc();
1010 	if( rDoc.IsScenario( nTab ) )
1011 		return;
1012 
1013 	SCTAB nFirstTab	= nTab + 1;
1014 	SCTAB nNewTab		= nFirstTab;
1015 
1016     while( rDoc.IsScenario( nNewTab ) )
1017 	{
1018         Append( new ExcEScenario( rRoot, nNewTab ) );
1019 
1020         if( rDoc.IsActiveScenario( nNewTab ) )
1021 			nActive = static_cast<sal_uInt16>(nNewTab - nFirstTab);
1022 		nNewTab++;
1023 	}
1024 }
1025 
~ExcEScenarioManager()1026 ExcEScenarioManager::~ExcEScenarioManager()
1027 {
1028 	for( ExcEScenario* pScen = _First(); pScen; pScen = _Next() )
1029 		delete pScen;
1030 }
1031 
SaveCont(XclExpStream & rStrm)1032 void ExcEScenarioManager::SaveCont( XclExpStream& rStrm )
1033 {
1034 	rStrm	<< (sal_uInt16) List::Count()		// number of scenarios
1035 			<< nActive						// active scen
1036 			<< nActive						// last displayed
1037 			<< (sal_uInt16) 0;					// reference areas
1038 }
1039 
Save(XclExpStream & rStrm)1040 void ExcEScenarioManager::Save( XclExpStream& rStrm )
1041 {
1042 	if( List::Count() )
1043 		ExcRecord::Save( rStrm );
1044 
1045 	for( ExcEScenario* pScen = _First(); pScen; pScen = _Next() )
1046 		pScen->Save( rStrm );
1047 }
1048 
SaveXml(XclExpXmlStream & rStrm)1049 void ExcEScenarioManager::SaveXml( XclExpXmlStream& rStrm )
1050 {
1051     if( ! List::Count() )
1052         return;
1053 
1054     sax_fastparser::FSHelperPtr& rWorkbook = rStrm.GetCurrentStream();
1055     rWorkbook->startElement( XML_scenarios,
1056             XML_current,    OString::valueOf( (sal_Int32)nActive ).getStr(),
1057             XML_show,       OString::valueOf( (sal_Int32)nActive ).getStr(),
1058             // OOXTODO: XML_sqref,
1059             FSEND );
1060 
1061     for( ExcEScenario* pScen = _First(); pScen; pScen = _Next() )
1062         pScen->SaveXml( rStrm );
1063 
1064     rWorkbook->endElement( XML_scenarios );
1065 }
1066 
GetNum() const1067 sal_uInt16 ExcEScenarioManager::GetNum() const
1068 {
1069 	return 0x00AE;
1070 }
1071 
GetLen() const1072 sal_Size ExcEScenarioManager::GetLen() const
1073 {
1074 	return 8;
1075 }
1076 
1077 // ============================================================================
1078 
1079 struct XclExpTabProtectOption
1080 {
1081     ScTableProtection::Option   eOption;
1082     sal_uInt16                  nMask;
1083 };
1084 
XclExpSheetProtectOptions(const XclExpRoot & rRoot,SCTAB nTab)1085 XclExpSheetProtectOptions::XclExpSheetProtectOptions( const XclExpRoot& rRoot, SCTAB nTab ) :
1086     XclExpRecord( 0x0867, 23 )
1087 {
1088     static const XclExpTabProtectOption aTable[] =
1089     {
1090         { ScTableProtection::OBJECTS,               0x0001 },
1091         { ScTableProtection::SCENARIOS,             0x0002 },
1092         { ScTableProtection::FORMAT_CELLS,          0x0004 },
1093         { ScTableProtection::FORMAT_COLUMNS,        0x0008 },
1094         { ScTableProtection::FORMAT_ROWS,           0x0010 },
1095         { ScTableProtection::INSERT_COLUMNS,        0x0020 },
1096         { ScTableProtection::INSERT_ROWS,           0x0040 },
1097         { ScTableProtection::INSERT_HYPERLINKS,     0x0080 },
1098 
1099         { ScTableProtection::DELETE_COLUMNS,        0x0100 },
1100         { ScTableProtection::DELETE_ROWS,           0x0200 },
1101         { ScTableProtection::SELECT_LOCKED_CELLS,   0x0400 },
1102         { ScTableProtection::SORT,                  0x0800 },
1103         { ScTableProtection::AUTOFILTER,            0x1000 },
1104         { ScTableProtection::PIVOT_TABLES,          0x2000 },
1105         { ScTableProtection::SELECT_UNLOCKED_CELLS, 0x4000 },
1106 
1107         { ScTableProtection::NONE,                  0x0000 }
1108     };
1109 
1110     mnOptions = 0x0000;
1111     ScTableProtection* pProtect = rRoot.GetDoc().GetTabProtection(nTab);
1112     if (!pProtect)
1113         return;
1114 
1115     for (int i = 0; aTable[i].nMask != 0x0000; ++i)
1116     {
1117         if ( pProtect->isOptionEnabled(aTable[i].eOption) )
1118             mnOptions |= aTable[i].nMask;
1119     }
1120 }
1121 
WriteBody(XclExpStream & rStrm)1122 void XclExpSheetProtectOptions::WriteBody( XclExpStream& rStrm )
1123 {
1124     sal_uInt16 nBytes = 0x0867;
1125     rStrm << nBytes;
1126 
1127     sal_uChar nZero = 0x00;
1128     for (int i = 0; i < 9; ++i)
1129         rStrm << nZero;
1130 
1131     nBytes = 0x0200;
1132     rStrm << nBytes;
1133     nBytes = 0x0100;
1134     rStrm << nBytes;
1135     nBytes = 0xFFFF;
1136     rStrm << nBytes << nBytes;
1137 
1138     rStrm << mnOptions;
1139     nBytes = 0;
1140     rStrm << nBytes;
1141 }
1142 
1143 // ============================================================================
1144 
1145 
1146 
1147 
SaveCont(XclExpStream & rStrm)1148 void XclCalccount::SaveCont( XclExpStream& rStrm )
1149 {
1150 	rStrm << nCount;
1151 }
1152 
1153 
XclCalccount(const ScDocument & rDoc)1154 XclCalccount::XclCalccount( const ScDocument& rDoc )
1155 {
1156 	nCount = rDoc.GetDocOptions().GetIterCount();
1157 }
1158 
1159 
GetNum() const1160 sal_uInt16 XclCalccount::GetNum() const
1161 {
1162 	return 0x000C;
1163 }
1164 
1165 
GetLen() const1166 sal_Size XclCalccount::GetLen() const
1167 {
1168 	return 2;
1169 }
1170 
1171 
SaveXml(XclExpXmlStream & rStrm)1172 void XclCalccount::SaveXml( XclExpXmlStream& rStrm )
1173 {
1174     rStrm.WriteAttributes(
1175             XML_iterateCount, OString::valueOf( (sal_Int32)nCount ).getStr(),
1176             FSEND );
1177 }
1178 
1179 
1180 
1181 
SaveCont(XclExpStream & rStrm)1182 void XclIteration::SaveCont( XclExpStream& rStrm )
1183 {
1184 	rStrm << nIter;
1185 }
1186 
1187 
XclIteration(const ScDocument & rDoc)1188 XclIteration::XclIteration( const ScDocument& rDoc )
1189 {
1190 	nIter = rDoc.GetDocOptions().IsIter()? 1 : 0;
1191 }
1192 
1193 
GetNum() const1194 sal_uInt16 XclIteration::GetNum() const
1195 {
1196 	return 0x0011;
1197 }
1198 
1199 
GetLen() const1200 sal_Size XclIteration::GetLen() const
1201 {
1202 	return 2;
1203 }
1204 
1205 
SaveXml(XclExpXmlStream & rStrm)1206 void XclIteration::SaveXml( XclExpXmlStream& rStrm )
1207 {
1208     rStrm.WriteAttributes(
1209             XML_iterate, XclXmlUtils::ToPsz( nIter == 1 ),
1210             FSEND );
1211 }
1212 
1213 
1214 
1215 
SaveCont(XclExpStream & rStrm)1216 void XclDelta::SaveCont( XclExpStream& rStrm )
1217 {
1218 	rStrm << fDelta;
1219 }
1220 
1221 
1222 
XclDelta(const ScDocument & rDoc)1223 XclDelta::XclDelta( const ScDocument& rDoc )
1224 {
1225 	fDelta = rDoc.GetDocOptions().GetIterEps();
1226 }
1227 
1228 
GetNum() const1229 sal_uInt16 XclDelta::GetNum() const
1230 {
1231 	return 0x0010;
1232 }
1233 
1234 
GetLen() const1235 sal_Size XclDelta::GetLen() const
1236 {
1237 	return 8;
1238 }
1239 
1240 
SaveXml(XclExpXmlStream & rStrm)1241 void XclDelta::SaveXml( XclExpXmlStream& rStrm )
1242 {
1243     rStrm.WriteAttributes(
1244             XML_iterateDelta, OString::valueOf( fDelta ).getStr(),
1245             FSEND );
1246 }
1247 
1248 // ============================================================================
1249 
XclExpFileEncryption(const XclExpRoot & rRoot)1250 XclExpFileEncryption::XclExpFileEncryption( const XclExpRoot& rRoot ) :
1251     XclExpRecord(0x002F, 54),
1252     mrRoot(rRoot)
1253 {
1254 }
1255 
~XclExpFileEncryption()1256 XclExpFileEncryption::~XclExpFileEncryption()
1257 {
1258 }
1259 
WriteBody(XclExpStream & rStrm)1260 void XclExpFileEncryption::WriteBody( XclExpStream& rStrm )
1261 {
1262     // 0x0000 - neither standard nor strong encryption
1263     // 0x0001 - standard or strong encryption
1264     rStrm << static_cast<sal_uInt16>(0x0001);
1265 
1266     // 0x0000 - non standard encryption
1267     // 0x0001 - standard encryption
1268     sal_uInt16 nStdEnc = 0x0001;
1269     rStrm << nStdEnc << nStdEnc;
1270 
1271     sal_uInt8 pnDocId[16];
1272     sal_uInt8 pnSalt[16];
1273     sal_uInt8 pnSaltHash[16];
1274     XclExpEncrypterRef xEnc( new XclExpBiff8Encrypter(mrRoot) );
1275     xEnc->GetDocId(pnDocId);
1276     xEnc->GetSalt(pnSalt);
1277     xEnc->GetSaltDigest(pnSaltHash);
1278 
1279     rStrm.Write(pnDocId, 16);
1280     rStrm.Write(pnSalt, 16);
1281     rStrm.Write(pnSaltHash, 16);
1282 
1283     rStrm.SetEncrypter(xEnc);
1284 }
1285 
1286 // ============================================================================
1287 
XclExpInterfaceHdr(sal_uInt16 nCodePage)1288 XclExpInterfaceHdr::XclExpInterfaceHdr( sal_uInt16 nCodePage ) :
1289     XclExpUInt16Record( EXC_ID_INTERFACEHDR, nCodePage )
1290 {
1291 }
1292 
WriteBody(XclExpStream & rStrm)1293 void XclExpInterfaceHdr::WriteBody( XclExpStream& rStrm )
1294 {
1295     rStrm.DisableEncryption();
1296     rStrm << GetValue();
1297 }
1298 
1299 // ============================================================================
1300 
XclExpInterfaceEnd()1301 XclExpInterfaceEnd::XclExpInterfaceEnd() :
1302     XclExpRecord(0x00E2, 0) {}
1303 
~XclExpInterfaceEnd()1304 XclExpInterfaceEnd::~XclExpInterfaceEnd() {}
1305 
WriteBody(XclExpStream & rStrm)1306 void XclExpInterfaceEnd::WriteBody( XclExpStream& rStrm )
1307 {
1308     // Don't forget to re-enable encryption.
1309     rStrm.EnableEncryption();
1310 }
1311 
1312 // ============================================================================
1313 
XclExpWriteAccess()1314 XclExpWriteAccess::XclExpWriteAccess() :
1315     XclExpRecord(0x005C, 112)
1316 {
1317 }
1318 
~XclExpWriteAccess()1319 XclExpWriteAccess::~XclExpWriteAccess()
1320 {
1321 }
1322 
WriteBody(XclExpStream & rStrm)1323 void XclExpWriteAccess::WriteBody( XclExpStream& rStrm )
1324 {
1325     static const sal_uInt8 aData[] = {
1326         0x04, 0x00, 0x00,  'C',  'a',  'l',  'c', 0x20,
1327         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1328         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1329         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1330         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1331         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1332         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1333         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1334         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1335         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1336         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1337         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1338         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
1339         0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20 };
1340 
1341     sal_Size nDataSize = sizeof(aData);
1342     for (sal_Size i = 0; i < nDataSize; ++i)
1343         rStrm << aData[i];
1344 }
1345 
1346 // ============================================================================
1347 
XclExpFileSharing(const XclExpRoot & rRoot,sal_uInt16 nPasswordHash,bool bRecommendReadOnly)1348 XclExpFileSharing::XclExpFileSharing( const XclExpRoot& rRoot, sal_uInt16 nPasswordHash, bool bRecommendReadOnly ) :
1349     XclExpRecord( EXC_ID_FILESHARING ),
1350     mnPasswordHash( nPasswordHash ),
1351     mbRecommendReadOnly( bRecommendReadOnly )
1352 {
1353     if( rRoot.GetBiff() <= EXC_BIFF5 )
1354         maUserName.AssignByte( rRoot.GetUserName(), rRoot.GetTextEncoding(), EXC_STR_8BITLENGTH );
1355     else
1356         maUserName.Assign( rRoot.GetUserName() );
1357 }
1358 
Save(XclExpStream & rStrm)1359 void XclExpFileSharing::Save( XclExpStream& rStrm )
1360 {
1361     if( (mnPasswordHash != 0) || mbRecommendReadOnly )
1362         XclExpRecord::Save( rStrm );
1363 }
1364 
WriteBody(XclExpStream & rStrm)1365 void XclExpFileSharing::WriteBody( XclExpStream& rStrm )
1366 {
1367     rStrm << sal_uInt16( mbRecommendReadOnly ? 1 : 0 ) << mnPasswordHash << maUserName;
1368 }
1369 
1370 // ============================================================================
1371 
XclExpProt4Rev()1372 XclExpProt4Rev::XclExpProt4Rev() :
1373     XclExpRecord(0x01AF, 2)
1374 {
1375 }
1376 
~XclExpProt4Rev()1377 XclExpProt4Rev::~XclExpProt4Rev()
1378 {
1379 }
1380 
WriteBody(XclExpStream & rStrm)1381 void XclExpProt4Rev::WriteBody( XclExpStream& rStrm )
1382 {
1383     rStrm << static_cast<sal_uInt16>(0x0000);
1384 }
1385 
1386 // ============================================================================
1387 
XclExpProt4RevPass()1388 XclExpProt4RevPass::XclExpProt4RevPass() :
1389     XclExpRecord(0x01BC, 2)
1390 {
1391 }
1392 
~XclExpProt4RevPass()1393 XclExpProt4RevPass::~XclExpProt4RevPass()
1394 {
1395 }
1396 
WriteBody(XclExpStream & rStrm)1397 void XclExpProt4RevPass::WriteBody( XclExpStream& rStrm )
1398 {
1399     rStrm << static_cast<sal_uInt16>(0x0000);
1400 }
1401 
1402 // ============================================================================
1403 
1404 static const sal_uInt8 nDataRecalcId[] = {
1405     0xC1, 0x01, 0x00, 0x00, 0x54, 0x8D, 0x01, 0x00
1406 };
1407 
XclExpRecalcId()1408 XclExpRecalcId::XclExpRecalcId() :
1409     XclExpDummyRecord(0x01C1, nDataRecalcId, sizeof(nDataRecalcId))
1410 {
1411 }
1412 
1413 // ============================================================================
1414 
1415 static const sal_uInt8 nDataBookExt[] = {
1416     0x63, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
1417     0x00, 0x00, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
1418     0x02
1419 };
1420 
XclExpBookExt()1421 XclExpBookExt::XclExpBookExt() :
1422     XclExpDummyRecord(0x0863, nDataBookExt, sizeof(nDataBookExt))
1423 {
1424 }
1425 
1426 // ============================================================================
1427 
XclRefmode(const ScDocument & rDoc)1428 XclRefmode::XclRefmode( const ScDocument& rDoc ) :
1429     XclExpBoolRecord( 0x000F, rDoc.GetAddressConvention() != formula::FormulaGrammar::CONV_XL_R1C1 )
1430 {
1431 }
1432 
SaveXml(XclExpXmlStream & rStrm)1433 void XclRefmode::SaveXml( XclExpXmlStream& rStrm )
1434 {
1435     rStrm.WriteAttributes(
1436             XML_refMode, GetBool() ? "A1" : "R1C1",
1437             FSEND );
1438 }
1439 
1440