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