Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include "xiview.hxx"
21 : #include "document.hxx"
22 : #include "scextopt.hxx"
23 : #include "viewopti.hxx"
24 : #include "xistream.hxx"
25 : #include "xihelper.hxx"
26 : #include "xistyle.hxx"
27 :
28 : // Document view settings =====================================================
29 :
30 144 : XclImpDocViewSettings::XclImpDocViewSettings( const XclImpRoot& rRoot ) :
31 144 : XclImpRoot( rRoot )
32 : {
33 144 : }
34 :
35 140 : void XclImpDocViewSettings::ReadWindow1( XclImpStream& rStrm )
36 : {
37 140 : rStrm >> maData.mnWinX
38 280 : >> maData.mnWinY
39 280 : >> maData.mnWinWidth
40 280 : >> maData.mnWinHeight
41 280 : >> maData.mnFlags;
42 140 : if( GetBiff() >= EXC_BIFF5 )
43 : {
44 140 : rStrm >> maData.mnDisplXclTab
45 280 : >> maData.mnFirstVisXclTab
46 280 : >> maData.mnXclSelectCnt
47 280 : >> maData.mnTabBarWidth;
48 : }
49 140 : }
50 :
51 560 : SCTAB XclImpDocViewSettings::GetDisplScTab() const
52 : {
53 : /* Simply cast Excel index to Calc index.
54 : TODO: This may fail if the document contains scenarios. */
55 560 : sal_uInt16 nMaxXclTab = static_cast< sal_uInt16 >( GetMaxPos().Tab() );
56 560 : return static_cast< SCTAB >( (maData.mnDisplXclTab <= nMaxXclTab) ? maData.mnDisplXclTab : 0 );
57 : }
58 :
59 144 : void XclImpDocViewSettings::Finalize()
60 : {
61 144 : ScViewOptions aViewOpt( GetDoc().GetViewOptions() );
62 144 : aViewOpt.SetOption( VOPT_HSCROLL, ::get_flag( maData.mnFlags, EXC_WIN1_HOR_SCROLLBAR ) );
63 144 : aViewOpt.SetOption( VOPT_VSCROLL, ::get_flag( maData.mnFlags, EXC_WIN1_VER_SCROLLBAR ) );
64 144 : aViewOpt.SetOption( VOPT_TABCONTROLS, ::get_flag( maData.mnFlags, EXC_WIN1_TABBAR ) );
65 144 : GetDoc().SetViewOptions( aViewOpt );
66 :
67 : // displayed sheet
68 144 : GetExtDocOptions().GetDocSettings().mnDisplTab = GetDisplScTab();
69 :
70 : // width of the tabbar with sheet names
71 144 : if( maData.mnTabBarWidth <= 1000 )
72 144 : GetExtDocOptions().GetDocSettings().mfTabBarWidth = static_cast< double >( maData.mnTabBarWidth ) / 1000.0;
73 144 : }
74 :
75 : // Sheet view settings ========================================================
76 :
77 : namespace {
78 :
79 832 : long lclGetScZoom( sal_uInt16 nXclZoom, sal_uInt16 nDefZoom )
80 : {
81 832 : return static_cast< long >( nXclZoom ? nXclZoom : nDefZoom );
82 : }
83 :
84 : } // namespace
85 :
86 144 : XclImpTabViewSettings::XclImpTabViewSettings( const XclImpRoot& rRoot ) :
87 144 : XclImpRoot( rRoot )
88 : {
89 144 : Initialize();
90 144 : }
91 :
92 560 : void XclImpTabViewSettings::Initialize()
93 : {
94 560 : maData.SetDefaults();
95 560 : }
96 :
97 4 : void XclImpTabViewSettings::ReadTabBgColor( XclImpStream& rStrm, XclImpPalette& rPal )
98 : {
99 : OSL_ENSURE_BIFF( GetBiff() >= EXC_BIFF8 );
100 4 : if( GetBiff() < EXC_BIFF8 )
101 4 : return;
102 :
103 : sal_uInt8 ColorIndex;
104 4 : Color TabBgColor;
105 :
106 4 : rStrm.Ignore( 16 );
107 4 : ColorIndex = rStrm.ReaduInt8() & EXC_SHEETEXT_TABCOLOR; //0x7F
108 4 : if ( ColorIndex >= 8 && ColorIndex <= 63 ) //only accept valid index values
109 : {
110 4 : TabBgColor = rPal.GetColor( ColorIndex );
111 4 : maData.maTabBgColor = TabBgColor;
112 : }
113 : }
114 :
115 412 : void XclImpTabViewSettings::ReadWindow2( XclImpStream& rStrm, bool bChart )
116 : {
117 412 : if( GetBiff() == EXC_BIFF2 )
118 : {
119 0 : maData.mbShowFormulas = rStrm.ReaduInt8() != 0;
120 0 : maData.mbShowGrid = rStrm.ReaduInt8() != 0;
121 0 : maData.mbShowHeadings = rStrm.ReaduInt8() != 0;
122 0 : maData.mbFrozenPanes = rStrm.ReaduInt8() != 0;
123 0 : maData.mbShowZeros = rStrm.ReaduInt8() != 0;
124 0 : rStrm >> maData.maFirstXclPos;
125 0 : maData.mbDefGridColor = rStrm.ReaduInt8() != 0;
126 0 : rStrm >> maData.maGridColor;
127 : }
128 : else
129 : {
130 : sal_uInt16 nFlags;
131 412 : rStrm >> nFlags >> maData.maFirstXclPos;
132 :
133 : // #i59590# real life: Excel ignores some view settings in chart sheets
134 412 : maData.mbSelected = ::get_flag( nFlags, EXC_WIN2_SELECTED );
135 412 : maData.mbDisplayed = ::get_flag( nFlags, EXC_WIN2_DISPLAYED );
136 412 : maData.mbMirrored = !bChart && ::get_flag( nFlags, EXC_WIN2_MIRRORED );
137 412 : maData.mbFrozenPanes = !bChart && ::get_flag( nFlags, EXC_WIN2_FROZEN );
138 412 : maData.mbPageMode = !bChart && ::get_flag( nFlags, EXC_WIN2_PAGEBREAKMODE );
139 412 : maData.mbDefGridColor = bChart || ::get_flag( nFlags, EXC_WIN2_DEFGRIDCOLOR );
140 412 : maData.mbShowFormulas = !bChart && ::get_flag( nFlags, EXC_WIN2_SHOWFORMULAS );
141 412 : maData.mbShowGrid = bChart || ::get_flag( nFlags, EXC_WIN2_SHOWGRID );
142 412 : maData.mbShowHeadings = bChart || ::get_flag( nFlags, EXC_WIN2_SHOWHEADINGS );
143 412 : maData.mbShowZeros = bChart || ::get_flag( nFlags, EXC_WIN2_SHOWZEROS );
144 412 : maData.mbShowOutline = bChart || ::get_flag( nFlags, EXC_WIN2_SHOWOUTLINE );
145 :
146 412 : switch( GetBiff() )
147 : {
148 : case EXC_BIFF3:
149 : case EXC_BIFF4:
150 : case EXC_BIFF5:
151 4 : rStrm >> maData.maGridColor;
152 4 : break;
153 : case EXC_BIFF8:
154 : {
155 : sal_uInt16 nGridColorIdx;
156 408 : rStrm >> nGridColorIdx;
157 : // zoom data not included in chart sheets
158 408 : if( rStrm.GetRecLeft() >= 6 )
159 : {
160 406 : rStrm.Ignore( 2 );
161 406 : rStrm >> maData.mnPageZoom >> maData.mnNormalZoom;
162 : }
163 :
164 408 : if( !maData.mbDefGridColor )
165 0 : maData.maGridColor = GetPalette().GetColor( nGridColorIdx );
166 : }
167 408 : break;
168 : default: DBG_ERROR_BIFF();
169 : }
170 : }
171 :
172 : // do not scroll chart sheets
173 412 : if( bChart )
174 0 : maData.maFirstXclPos.Set( 0, 0 );
175 412 : }
176 :
177 6 : void XclImpTabViewSettings::ReadScl( XclImpStream& rStrm )
178 : {
179 : sal_uInt16 nNum, nDenom;
180 6 : rStrm >> nNum >> nDenom;
181 : OSL_ENSURE( nDenom > 0, "XclImpPageSettings::ReadScl - invalid denominator" );
182 6 : if( nDenom > 0 )
183 6 : maData.mnCurrentZoom = limit_cast< sal_uInt16 >( (nNum * 100) / nDenom );
184 6 : }
185 :
186 32 : void XclImpTabViewSettings::ReadPane( XclImpStream& rStrm )
187 : {
188 32 : rStrm >> maData.mnSplitX;
189 32 : maData.mnSplitY = rStrm.ReaduInt16();
190 :
191 32 : rStrm >> maData.maSecondXclPos
192 64 : >> maData.mnActivePane;
193 32 : }
194 :
195 444 : void XclImpTabViewSettings::ReadSelection( XclImpStream& rStrm )
196 : {
197 : // pane of this selection
198 : sal_uInt8 nPane;
199 444 : rStrm >> nPane;
200 444 : XclSelectionData& rSelData = maData.CreateSelectionData( nPane );
201 : // cursor position and selection
202 444 : rStrm >> rSelData.maXclCursor >> rSelData.mnCursorIdx;
203 444 : rSelData.maXclSelection.Read( rStrm, false );
204 444 : }
205 :
206 416 : void XclImpTabViewSettings::Finalize()
207 : {
208 416 : SCTAB nScTab = GetCurrScTab();
209 416 : ScDocument& rDoc = GetDoc();
210 416 : XclImpAddressConverter& rAddrConv = GetAddressConverter();
211 416 : ScExtTabSettings& rTabSett = GetExtDocOptions().GetOrCreateTabSettings( nScTab );
212 416 : bool bDisplayed = GetDocViewSettings().GetDisplScTab() == nScTab;
213 :
214 : // *** sheet options: cursor, selection, splits, zoom ***
215 :
216 : // sheet flags
217 416 : if( maData.mbMirrored )
218 : // do not call this function with sal_False, it would mirror away all drawing objects
219 0 : rDoc.SetLayoutRTL( nScTab, true );
220 416 : rTabSett.mbSelected = maData.mbSelected || bDisplayed;
221 :
222 : // first visible cell in top-left pane and in additional pane(s)
223 416 : rTabSett.maFirstVis = rAddrConv.CreateValidAddress( maData.maFirstXclPos, nScTab, false );
224 416 : rTabSett.maSecondVis = rAddrConv.CreateValidAddress( maData.maSecondXclPos, nScTab, false );
225 :
226 : // cursor position and selection
227 416 : if( const XclSelectionData* pSelData = maData.GetSelectionData( maData.mnActivePane ) )
228 : {
229 408 : rTabSett.maCursor = rAddrConv.CreateValidAddress( pSelData->maXclCursor, nScTab, false );
230 408 : rAddrConv.ConvertRangeList( rTabSett.maSelection, pSelData->maXclSelection, nScTab, false );
231 : }
232 :
233 : // active pane
234 416 : switch( maData.mnActivePane )
235 : {
236 386 : case EXC_PANE_TOPLEFT: rTabSett.meActivePane = SCEXT_PANE_TOPLEFT; break;
237 0 : case EXC_PANE_TOPRIGHT: rTabSett.meActivePane = SCEXT_PANE_TOPRIGHT; break;
238 30 : case EXC_PANE_BOTTOMLEFT: rTabSett.meActivePane = SCEXT_PANE_BOTTOMLEFT; break;
239 0 : case EXC_PANE_BOTTOMRIGHT: rTabSett.meActivePane = SCEXT_PANE_BOTTOMRIGHT; break;
240 : }
241 :
242 : // freeze/split position
243 416 : rTabSett.mbFrozenPanes = maData.mbFrozenPanes;
244 416 : if( maData.mbFrozenPanes )
245 : {
246 : /* Frozen panes: handle split position as row/column positions.
247 : #i35812# Excel uses number of visible rows/columns, Calc uses position of freeze. */
248 30 : if( (maData.mnSplitX > 0) && (maData.maFirstXclPos.mnCol + maData.mnSplitX <= GetScMaxPos().Col()) )
249 0 : rTabSett.maFreezePos.SetCol( static_cast< SCCOL >( maData.maFirstXclPos.mnCol + maData.mnSplitX ) );
250 30 : if( (maData.mnSplitY > 0) && (maData.maFirstXclPos.mnRow + maData.mnSplitY <= static_cast<unsigned>(GetScMaxPos().Row())) )
251 30 : rTabSett.maFreezePos.SetRow( static_cast< SCROW >( maData.maFirstXclPos.mnRow + maData.mnSplitY ) );
252 : }
253 : else
254 : {
255 : // split window: position is in twips
256 386 : rTabSett.maSplitPos.X() = static_cast< long >( maData.mnSplitX );
257 386 : rTabSett.maSplitPos.Y() = static_cast< long >( maData.mnSplitY );
258 : }
259 :
260 : // grid color
261 416 : if( maData.mbDefGridColor )
262 416 : rTabSett.maGridColor.SetColor( COL_AUTO );
263 : else
264 0 : rTabSett.maGridColor = maData.maGridColor;
265 :
266 : // show grid option
267 416 : rTabSett.mbShowGrid = maData.mbShowGrid;
268 :
269 : // view mode and zoom
270 416 : if( maData.mnCurrentZoom != 0 )
271 6 : (maData.mbPageMode ? maData.mnPageZoom : maData.mnNormalZoom) = maData.mnCurrentZoom;
272 416 : rTabSett.mbPageMode = maData.mbPageMode;
273 416 : rTabSett.mnNormalZoom = lclGetScZoom( maData.mnNormalZoom, EXC_WIN2_NORMALZOOM_DEF );
274 416 : rTabSett.mnPageZoom = lclGetScZoom( maData.mnPageZoom, EXC_WIN2_PAGEZOOM_DEF );
275 :
276 : // *** additional handling for displayed sheet ***
277 :
278 416 : if( bDisplayed )
279 : {
280 : // set Excel sheet settings globally at Calc document, take settings from displayed sheet
281 140 : ScViewOptions aViewOpt( rDoc.GetViewOptions() );
282 140 : aViewOpt.SetOption( VOPT_FORMULAS, maData.mbShowFormulas );
283 140 : aViewOpt.SetOption( VOPT_HEADER, maData.mbShowHeadings );
284 140 : aViewOpt.SetOption( VOPT_NULLVALS, maData.mbShowZeros );
285 140 : aViewOpt.SetOption( VOPT_OUTLINER, maData.mbShowOutline );
286 140 : rDoc.SetViewOptions( aViewOpt );
287 : }
288 :
289 : // *** set tab bg color
290 416 : if ( !maData.IsDefaultTabBgColor() )
291 4 : rDoc.SetTabBgColor(nScTab, maData.maTabBgColor);
292 464 : }
293 :
294 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
