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 <svl/zforlist.hxx>
21 : #include <svl/zformat.hxx>
22 :
23 : #include <svx/svdmodel.hxx>
24 :
25 : #include <calbck.hxx>
26 : #include <calc.hxx>
27 : #include <usrfld.hxx>
28 : #include <doc.hxx>
29 : #include <IDocumentFieldsAccess.hxx>
30 : #include <IDocumentUndoRedo.hxx>
31 : #include <IDocumentState.hxx>
32 : #include <editsh.hxx>
33 : #include <dpage.hxx>
34 : #include <unofldmid.h>
35 :
36 : using namespace ::com::sun::star;
37 :
38 : // Userfields
39 :
40 13 : SwUserField::SwUserField(SwUserFieldType* pTyp, sal_uInt16 nSub, sal_uInt32 nFormat)
41 : : SwValueField(pTyp, nFormat),
42 13 : nSubType(nSub)
43 : {
44 13 : }
45 :
46 4 : OUString SwUserField::Expand() const
47 : {
48 4 : if(!(nSubType & nsSwExtendedSubType::SUB_INVISIBLE))
49 4 : return static_cast<SwUserFieldType*>(GetTyp())->Expand(GetFormat(), nSubType, GetLanguage());
50 :
51 0 : return OUString();
52 : }
53 :
54 11 : SwField* SwUserField::Copy() const
55 : {
56 11 : SwField* pTmp = new SwUserField(static_cast<SwUserFieldType*>(GetTyp()), nSubType, GetFormat());
57 11 : pTmp->SetAutomaticLanguage(IsAutomaticLanguage());
58 11 : return pTmp;
59 : }
60 :
61 1 : OUString SwUserField::GetFieldName() const
62 : {
63 2 : return SwFieldType::GetTypeStr(TYP_USERFLD) +
64 4 : " " + GetTyp()->GetName() + " = " +
65 3 : static_cast<SwUserFieldType*>(GetTyp())->GetContent();
66 : }
67 :
68 0 : double SwUserField::GetValue() const
69 : {
70 0 : return static_cast<SwUserFieldType*>(GetTyp())->GetValue();
71 : }
72 :
73 0 : void SwUserField::SetValue( const double& rVal )
74 : {
75 0 : static_cast<SwUserFieldType*>(GetTyp())->SetValue(rVal);
76 0 : }
77 :
78 : /// Get name
79 0 : OUString SwUserField::GetPar1() const
80 : {
81 0 : return static_cast<const SwUserFieldType*>(GetTyp())->GetName();
82 : }
83 :
84 : /// Get content
85 0 : OUString SwUserField::GetPar2() const
86 : {
87 0 : return static_cast<SwUserFieldType*>(GetTyp())->GetContent(GetFormat());
88 : }
89 :
90 0 : void SwUserField::SetPar2(const OUString& rStr)
91 : {
92 0 : static_cast<SwUserFieldType*>(GetTyp())->SetContent(rStr, GetFormat());
93 0 : }
94 :
95 2 : sal_uInt16 SwUserField::GetSubType() const
96 : {
97 2 : return static_cast<SwUserFieldType*>(GetTyp())->GetType() | nSubType;
98 : }
99 :
100 0 : void SwUserField::SetSubType(sal_uInt16 nSub)
101 : {
102 0 : static_cast<SwUserFieldType*>(GetTyp())->SetType(nSub & 0x00ff);
103 0 : nSubType = nSub & 0xff00;
104 0 : }
105 :
106 0 : bool SwUserField::QueryValue( uno::Any& rAny, sal_uInt16 nWhichId ) const
107 : {
108 0 : switch( nWhichId )
109 : {
110 : case FIELD_PROP_BOOL2:
111 0 : rAny <<= 0 != (nSubType & nsSwExtendedSubType::SUB_CMD);
112 0 : break;
113 : case FIELD_PROP_BOOL1:
114 0 : rAny <<= 0 == (nSubType & nsSwExtendedSubType::SUB_INVISIBLE);
115 0 : break;
116 : case FIELD_PROP_FORMAT:
117 0 : rAny <<= (sal_Int32)GetFormat();
118 0 : break;
119 : default:
120 0 : return SwField::QueryValue(rAny, nWhichId);
121 : }
122 0 : return true;
123 : }
124 :
125 0 : bool SwUserField::PutValue( const uno::Any& rAny, sal_uInt16 nWhichId )
126 : {
127 0 : switch( nWhichId )
128 : {
129 : case FIELD_PROP_BOOL1:
130 0 : if(*static_cast<sal_Bool const *>(rAny.getValue()))
131 0 : nSubType &= (~nsSwExtendedSubType::SUB_INVISIBLE);
132 : else
133 0 : nSubType |= nsSwExtendedSubType::SUB_INVISIBLE;
134 0 : break;
135 : case FIELD_PROP_BOOL2:
136 0 : if(*static_cast<sal_Bool const *>(rAny.getValue()))
137 0 : nSubType |= nsSwExtendedSubType::SUB_CMD;
138 : else
139 0 : nSubType &= (~nsSwExtendedSubType::SUB_CMD);
140 0 : break;
141 : case FIELD_PROP_FORMAT:
142 : {
143 0 : sal_Int32 nTmp = 0;
144 0 : rAny >>= nTmp;
145 0 : SetFormat(nTmp);
146 : }
147 0 : break;
148 : default:
149 0 : return SwField::PutValue(rAny, nWhichId);
150 : }
151 0 : return true;
152 : }
153 :
154 56 : SwUserFieldType::SwUserFieldType( SwDoc* pDocPtr, const OUString& aNam )
155 : : SwValueFieldType( pDocPtr, RES_USERFLD ),
156 : nValue( 0 ),
157 56 : nType(nsSwGetSetExpType::GSE_STRING)
158 : {
159 56 : bValidValue = bDeleted = false;
160 56 : aName = aNam;
161 :
162 56 : if (nType & nsSwGetSetExpType::GSE_STRING)
163 56 : EnableFormat(false); // Do not use a Numberformatter
164 56 : }
165 :
166 7 : OUString SwUserFieldType::Expand(sal_uInt32 nFormat, sal_uInt16 nSubType, sal_uInt16 nLng)
167 : {
168 7 : if((nType & nsSwGetSetExpType::GSE_EXPR) && !(nSubType & nsSwExtendedSubType::SUB_CMD))
169 : {
170 0 : EnableFormat(true);
171 0 : return ExpandValue(nValue, nFormat, nLng);
172 : }
173 :
174 7 : EnableFormat(false); // Do not use a Numberformatter
175 7 : return aContent;
176 : }
177 :
178 28 : SwFieldType* SwUserFieldType::Copy() const
179 : {
180 28 : SwUserFieldType *pTmp = new SwUserFieldType( GetDoc(), aName );
181 28 : pTmp->aContent = aContent;
182 28 : pTmp->nType = nType;
183 28 : pTmp->bValidValue = bValidValue;
184 28 : pTmp->nValue = nValue;
185 28 : pTmp->bDeleted = bDeleted;
186 :
187 28 : return pTmp;
188 : }
189 :
190 498 : OUString SwUserFieldType::GetName() const
191 : {
192 498 : return aName;
193 : }
194 :
195 56 : void SwUserFieldType::Modify( const SfxPoolItem* pOld, const SfxPoolItem* pNew )
196 : {
197 56 : if( !pOld && !pNew )
198 56 : ChgValid( false );
199 :
200 56 : NotifyClients( pOld, pNew );
201 :
202 : // update input fields that might be connected to the user field
203 56 : if ( !IsModifyLocked() )
204 : {
205 56 : LockModify();
206 56 : GetDoc()->getIDocumentFieldsAccess().GetSysFieldType( RES_INPUTFLD )->UpdateFields();
207 56 : UnlockModify();
208 : }
209 56 : }
210 :
211 0 : double SwUserFieldType::GetValue( SwCalc& rCalc )
212 : {
213 0 : if(bValidValue)
214 0 : return nValue;
215 :
216 0 : if(!rCalc.Push( this ))
217 : {
218 0 : rCalc.SetCalcError( CALC_SYNTAX );
219 0 : return 0;
220 : }
221 0 : nValue = rCalc.Calculate( aContent ).GetDouble();
222 0 : rCalc.Pop();
223 :
224 0 : if( !rCalc.IsCalcError() )
225 0 : bValidValue = true;
226 : else
227 0 : nValue = 0;
228 :
229 0 : return nValue;
230 : }
231 :
232 12 : OUString SwUserFieldType::GetContent( sal_uInt32 nFormat )
233 : {
234 12 : if (nFormat && nFormat != SAL_MAX_UINT32)
235 : {
236 0 : OUString sFormattedValue;
237 0 : Color* pCol = 0;
238 :
239 0 : SvNumberFormatter* pFormatter = GetDoc()->GetNumberFormatter();
240 :
241 0 : pFormatter->GetOutputString(GetValue(), nFormat, sFormattedValue, &pCol);
242 0 : return sFormattedValue;
243 : }
244 :
245 12 : return aContent;
246 : }
247 :
248 28 : void SwUserFieldType::SetContent( const OUString& rStr, sal_uInt32 nFormat )
249 : {
250 28 : if( aContent != rStr )
251 : {
252 0 : aContent = rStr;
253 :
254 0 : if (nFormat && nFormat != SAL_MAX_UINT32)
255 : {
256 : double fValue;
257 :
258 0 : SvNumberFormatter* pFormatter = GetDoc()->GetNumberFormatter();
259 :
260 0 : if (pFormatter->IsNumberFormat(rStr, nFormat, fValue))
261 : {
262 0 : SetValue(fValue);
263 0 : aContent = DoubleToString(fValue, nFormat);
264 : }
265 : }
266 :
267 0 : bool bModified = GetDoc()->getIDocumentState().IsModified();
268 0 : GetDoc()->getIDocumentState().SetModified();
269 0 : if( !bModified ) // Bug 57028
270 : {
271 0 : GetDoc()->GetIDocumentUndoRedo().SetUndoNoResetModified();
272 : }
273 : }
274 28 : }
275 :
276 6 : bool SwUserFieldType::QueryValue( uno::Any& rAny, sal_uInt16 nWhichId ) const
277 : {
278 6 : switch( nWhichId )
279 : {
280 : case FIELD_PROP_DOUBLE:
281 0 : rAny <<= (double) nValue;
282 0 : break;
283 : case FIELD_PROP_PAR2:
284 3 : rAny <<= aContent;
285 3 : break;
286 : case FIELD_PROP_BOOL1:
287 3 : rAny <<= 0 != (nsSwGetSetExpType::GSE_EXPR&nType);
288 3 : break;
289 : default:
290 : OSL_FAIL("illegal property");
291 : }
292 6 : return true;
293 : }
294 :
295 55 : bool SwUserFieldType::PutValue( const uno::Any& rAny, sal_uInt16 nWhichId )
296 : {
297 55 : switch( nWhichId )
298 : {
299 : case FIELD_PROP_DOUBLE:
300 : {
301 0 : double fVal = 0;
302 0 : rAny >>= fVal;
303 0 : nValue = fVal;
304 :
305 : // The following line is in fact wrong, since the language is unknown (is part of the
306 : // field) and, thus, aContent should also belong to the field. Each field can have a
307 : // different language, but the same content with just different formatting.
308 0 : aContent = DoubleToString(nValue, static_cast<sal_uInt32>(LANGUAGE_SYSTEM));
309 : }
310 0 : break;
311 : case FIELD_PROP_PAR2:
312 29 : rAny >>= aContent;
313 29 : break;
314 : case FIELD_PROP_BOOL1:
315 26 : if(*static_cast<sal_Bool const *>(rAny.getValue()))
316 : {
317 0 : nType |= nsSwGetSetExpType::GSE_EXPR;
318 0 : nType &= ~nsSwGetSetExpType::GSE_STRING;
319 : }
320 : else
321 : {
322 26 : nType &= ~nsSwGetSetExpType::GSE_EXPR;
323 26 : nType |= nsSwGetSetExpType::GSE_STRING;
324 : }
325 26 : break;
326 : default:
327 : OSL_FAIL("illegal property");
328 : }
329 55 : return true;
330 177 : }
331 :
332 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
