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 <comphelper/string.hxx>
21 : #include <sot/object.hxx>
22 : #include <sot/factory.hxx>
23 : #include <tools/debug.hxx>
24 : #include <tools/bigint.hxx>
25 :
26 : #include <tools/rc.h>
27 :
28 : #include <vcl/event.hxx>
29 : #include <vcl/svapp.hxx>
30 : #include <vcl/longcurr.hxx>
31 :
32 : #include <svdata.hxx>
33 :
34 : #include <unotools/localedatawrapper.hxx>
35 :
36 : using namespace ::comphelper;
37 :
38 : namespace
39 : {
40 :
41 : #define FORMAT_LONGCURRENCY 4
42 :
43 0 : static BigInt ImplPower10( sal_uInt16 n )
44 : {
45 : sal_uInt16 i;
46 0 : BigInt nValue = 1;
47 :
48 0 : for ( i=0; i < n; i++ )
49 0 : nValue *= 10;
50 :
51 0 : return nValue;
52 : }
53 :
54 0 : static OUString ImplGetCurr( const LocaleDataWrapper& rLocaleDataWrapper, const BigInt &rNumber, sal_uInt16 nDigits, const OUString& rCurrSymbol, bool bShowThousandSep )
55 : {
56 : DBG_ASSERT( nDigits < 10, "LongCurrency may only have 9 decimal places" );
57 :
58 0 : if ( rNumber.IsZero() || (long)rNumber )
59 0 : return rLocaleDataWrapper.getCurr( (long)rNumber, nDigits, rCurrSymbol, bShowThousandSep );
60 :
61 0 : BigInt aTmp( ImplPower10( nDigits ) );
62 0 : BigInt aInteger( rNumber );
63 0 : aInteger.Abs();
64 0 : aInteger /= aTmp;
65 0 : BigInt aFraction( rNumber );
66 0 : aFraction.Abs();
67 0 : aFraction %= aTmp;
68 0 : if ( !aInteger.IsZero() )
69 : {
70 0 : aFraction += aTmp;
71 0 : aTmp = 1000000000L;
72 : }
73 0 : if ( rNumber.IsNeg() )
74 0 : aFraction *= -1;
75 :
76 0 : OUStringBuffer aTemplate = rLocaleDataWrapper.getCurr( (long)aFraction, nDigits, rCurrSymbol, bShowThousandSep );
77 0 : while( !aInteger.IsZero() )
78 : {
79 0 : aFraction = aInteger;
80 0 : aFraction %= aTmp;
81 0 : aInteger /= aTmp;
82 0 : if( !aInteger.IsZero() )
83 0 : aFraction += aTmp;
84 :
85 0 : OUString aFractionStr = rLocaleDataWrapper.getNum( (long)aFraction, 0 );
86 :
87 0 : sal_Int32 nSPos = aTemplate.indexOf( '1' );
88 0 : if ( aFractionStr.getLength() == 1 )
89 0 : aTemplate[ nSPos ] = aFractionStr[0];
90 : else
91 : {
92 0 : aTemplate.remove( nSPos, 1 );
93 0 : aTemplate.insert( nSPos, aFractionStr );
94 : }
95 0 : }
96 :
97 0 : return aTemplate.makeStringAndClear();
98 : }
99 :
100 0 : static bool ImplNumericProcessKeyInput( Edit*, const KeyEvent& rKEvt,
101 : bool bStrictFormat, bool bThousandSep,
102 : const LocaleDataWrapper& rLocaleDataWrapper )
103 : {
104 0 : if ( !bStrictFormat )
105 0 : return false;
106 : else
107 : {
108 0 : sal_Unicode cChar = rKEvt.GetCharCode();
109 0 : sal_uInt16 nGroup = rKEvt.GetKeyCode().GetGroup();
110 :
111 0 : if ( (nGroup == KEYGROUP_FKEYS) || (nGroup == KEYGROUP_CURSOR) ||
112 0 : (nGroup == KEYGROUP_MISC) ||
113 0 : ((cChar >= '0') && (cChar <= '9')) ||
114 0 : (bThousandSep && string::equals(rLocaleDataWrapper.getNumThousandSep(), cChar)) ||
115 0 : (string::equals(rLocaleDataWrapper.getNumDecimalSep(), cChar) ) ||
116 : (cChar == '-') )
117 0 : return false;
118 : else
119 0 : return true;
120 : }
121 : }
122 :
123 0 : static bool ImplNumericGetValue( const OUString& rStr, BigInt& rValue,
124 : sal_uInt16 nDecDigits, const LocaleDataWrapper& rLocaleDataWrapper,
125 : bool bCurrency = false )
126 : {
127 0 : OUString aStr = rStr;
128 0 : OUStringBuffer aStr1;
129 0 : OUStringBuffer aStr2;
130 : sal_Int32 nDecPos;
131 0 : bool bNegative = false;
132 :
133 : // On empty string
134 0 : if ( rStr.isEmpty() )
135 0 : return false;
136 :
137 : // Trim leading and trailing spaces
138 0 : aStr = string::strip(aStr, ' ');
139 :
140 : // Find decimal sign's position
141 0 : nDecPos = aStr.indexOf( rLocaleDataWrapper.getNumDecimalSep() );
142 :
143 0 : if ( nDecPos != -1 )
144 : {
145 0 : aStr1 = aStr.copy( 0, nDecPos );
146 0 : aStr2.append(aStr.copy(nDecPos+1));
147 : }
148 : else
149 0 : aStr1 = aStr;
150 :
151 : // Negative?
152 0 : if ( bCurrency )
153 : {
154 0 : if ( (aStr[ 0 ] == '(') && (aStr[ aStr.getLength()-1 ] == ')') )
155 0 : bNegative = true;
156 0 : if ( !bNegative )
157 : {
158 0 : for (sal_Int32 i=0; i < aStr.getLength(); i++ )
159 : {
160 0 : if ( (aStr[ i ] >= '0') && (aStr[ i ] <= '9') )
161 0 : break;
162 0 : else if ( aStr[ i ] == '-' )
163 : {
164 0 : bNegative = true;
165 0 : break;
166 : }
167 : }
168 : }
169 0 : if ( !bNegative && bCurrency && !aStr.isEmpty() )
170 : {
171 0 : sal_uInt16 nFormat = rLocaleDataWrapper.getCurrNegativeFormat();
172 0 : if ( (nFormat == 3) || (nFormat == 6) ||
173 0 : (nFormat == 7) || (nFormat == 10) )
174 : {
175 0 : for (sal_Int32 i = aStr.getLength()-1; i > 0; i++ )
176 : {
177 0 : if ( (aStr[ i ] >= '0') && (aStr[ i ] <= '9') )
178 0 : break;
179 0 : else if ( aStr[ i ] == '-' )
180 : {
181 0 : bNegative = true;
182 0 : break;
183 : }
184 : }
185 : }
186 : }
187 : }
188 : else
189 : {
190 0 : if ( aStr1[ 0 ] == '-' )
191 0 : bNegative = true;
192 : }
193 :
194 : // delete unwanted characters
195 0 : for (sal_Int32 i=0; i < aStr1.getLength(); )
196 : {
197 0 : if ( (aStr1[ i ] >= '0') && (aStr1[ i ] <= '9') )
198 0 : i++;
199 : else
200 0 : aStr1.remove( i, 1 );
201 : }
202 0 : for (sal_Int32 i=0; i < aStr2.getLength(); )
203 : {
204 0 : if ((aStr2[i] >= '0') && (aStr2[i] <= '9'))
205 0 : ++i;
206 : else
207 0 : aStr2.remove(i, 1);
208 : }
209 :
210 0 : if ( aStr1.isEmpty() && aStr2.isEmpty())
211 0 : return false;
212 :
213 0 : if ( aStr1.isEmpty() )
214 0 : aStr1 = "0";
215 0 : if ( bNegative )
216 0 : aStr1.insert( 0, '-');
217 :
218 : // Cut down decimal part and round while doing so
219 0 : bool bRound = false;
220 0 : if (aStr2.getLength() > nDecDigits)
221 : {
222 0 : if (aStr2[nDecDigits] >= '5')
223 0 : bRound = true;
224 0 : string::truncateToLength(aStr2, nDecDigits);
225 : }
226 0 : if (aStr2.getLength() < nDecDigits)
227 0 : string::padToLength(aStr2, nDecDigits, '0');
228 :
229 0 : aStr = aStr1.makeStringAndClear();
230 0 : aStr += aStr2.makeStringAndClear();
231 :
232 : // check range
233 0 : BigInt nValue( aStr );
234 0 : if ( bRound )
235 : {
236 0 : if ( !bNegative )
237 0 : nValue+=1;
238 : else
239 0 : nValue-=1;
240 : }
241 :
242 0 : rValue = nValue;
243 :
244 0 : return true;
245 : }
246 :
247 0 : static bool ImplLongCurrencyProcessKeyInput( Edit* pEdit, const KeyEvent& rKEvt,
248 : bool, bool bUseThousandSep, const LocaleDataWrapper& rLocaleDataWrapper )
249 : {
250 : // There's no StrictFormat that makes sense here, thus allow all chars
251 0 : return ImplNumericProcessKeyInput( pEdit, rKEvt, false, bUseThousandSep, rLocaleDataWrapper );
252 : }
253 :
254 : } // namespace
255 :
256 0 : inline bool ImplLongCurrencyGetValue( const OUString& rStr, BigInt& rValue,
257 : sal_uInt16 nDecDigits, const LocaleDataWrapper& rLocaleDataWrapper )
258 : {
259 0 : return ImplNumericGetValue( rStr, rValue, nDecDigits, rLocaleDataWrapper, true );
260 : }
261 :
262 0 : bool ImplLongCurrencyReformat( const OUString& rStr, BigInt nMin, BigInt nMax,
263 : sal_uInt16 nDecDigits,
264 : const LocaleDataWrapper& rLocaleDataWrapper, OUString& rOutStr,
265 : LongCurrencyFormatter& rFormatter )
266 : {
267 0 : BigInt nValue;
268 0 : if ( !ImplNumericGetValue( rStr, nValue, nDecDigits, rLocaleDataWrapper, true ) )
269 0 : return true;
270 : else
271 : {
272 0 : BigInt nTempVal = nValue;
273 0 : if ( nTempVal > nMax )
274 0 : nTempVal = nMax;
275 0 : else if ( nTempVal < nMin )
276 0 : nTempVal = nMin;
277 :
278 0 : if ( rFormatter.GetErrorHdl().IsSet() && (nValue != nTempVal) )
279 : {
280 0 : rFormatter.mnCorrectedValue = nTempVal;
281 0 : if ( !rFormatter.GetErrorHdl().Call( &rFormatter ) )
282 : {
283 0 : rFormatter.mnCorrectedValue = 0;
284 0 : return false;
285 : }
286 : else
287 : {
288 0 : rFormatter.mnCorrectedValue = 0;
289 : }
290 : }
291 :
292 0 : rOutStr = ImplGetCurr( rLocaleDataWrapper, nTempVal, nDecDigits, rFormatter.GetCurrencySymbol(), rFormatter.IsUseThousandSep() );
293 0 : return true;
294 : }
295 : }
296 :
297 0 : void LongCurrencyFormatter::ImpInit()
298 : {
299 0 : mnFieldValue = 0;
300 0 : mnLastValue = 0;
301 0 : mnMin = 0;
302 0 : mnMax = 0x7FFFFFFF;
303 0 : mnMax *= 0x7FFFFFFF;
304 0 : mnCorrectedValue = 0;
305 0 : mnDecimalDigits = 0;
306 0 : mnType = FORMAT_LONGCURRENCY;
307 0 : mbThousandSep = true;
308 0 : SetDecimalDigits( 0 );
309 0 : }
310 :
311 0 : LongCurrencyFormatter::LongCurrencyFormatter()
312 : {
313 0 : ImpInit();
314 0 : }
315 :
316 0 : LongCurrencyFormatter::~LongCurrencyFormatter()
317 : {
318 0 : }
319 :
320 0 : void LongCurrencyFormatter::SetCurrencySymbol( const OUString& rStr )
321 : {
322 0 : maCurrencySymbol= rStr;
323 0 : ReformatAll();
324 0 : }
325 :
326 0 : OUString LongCurrencyFormatter::GetCurrencySymbol() const
327 : {
328 0 : return !maCurrencySymbol.isEmpty() ? maCurrencySymbol : GetLocaleDataWrapper().getCurrSymbol();
329 : }
330 :
331 0 : void LongCurrencyFormatter::SetValue( BigInt nNewValue )
332 : {
333 0 : SetUserValue( nNewValue );
334 0 : mnFieldValue = mnLastValue;
335 0 : SetEmptyFieldValueData( false );
336 0 : }
337 :
338 0 : void LongCurrencyFormatter::SetUserValue( BigInt nNewValue )
339 : {
340 0 : if ( nNewValue > mnMax )
341 0 : nNewValue = mnMax;
342 0 : else if ( nNewValue < mnMin )
343 0 : nNewValue = mnMin;
344 0 : mnLastValue = nNewValue;
345 :
346 0 : if ( !GetField() )
347 0 : return;
348 :
349 0 : OUString aStr = ImplGetCurr( GetLocaleDataWrapper(), nNewValue, GetDecimalDigits(), GetCurrencySymbol(), IsUseThousandSep() );
350 0 : if ( GetField()->HasFocus() )
351 : {
352 0 : Selection aSelection = GetField()->GetSelection();
353 0 : GetField()->SetText( aStr );
354 0 : GetField()->SetSelection( aSelection );
355 : }
356 : else
357 0 : GetField()->SetText( aStr );
358 0 : MarkToBeReformatted( false );
359 : }
360 :
361 0 : BigInt LongCurrencyFormatter::GetValue() const
362 : {
363 0 : if ( !GetField() )
364 0 : return 0;
365 :
366 0 : BigInt nTempValue;
367 0 : if ( ImplLongCurrencyGetValue( GetField()->GetText(), nTempValue, GetDecimalDigits(), GetLocaleDataWrapper() ) )
368 : {
369 0 : if ( nTempValue > mnMax )
370 0 : nTempValue = mnMax;
371 0 : else if ( nTempValue < mnMin )
372 0 : nTempValue = mnMin;
373 0 : return nTempValue;
374 : }
375 : else
376 0 : return mnLastValue;
377 : }
378 :
379 0 : void LongCurrencyFormatter::Reformat()
380 : {
381 0 : if ( !GetField() )
382 0 : return;
383 :
384 0 : if ( GetField()->GetText().isEmpty() && ImplGetEmptyFieldValue() )
385 0 : return;
386 :
387 0 : OUString aStr;
388 0 : bool bOK = ImplLongCurrencyReformat( GetField()->GetText(), mnMin, mnMax,
389 0 : GetDecimalDigits(), GetLocaleDataWrapper(), aStr, *this );
390 0 : if ( !bOK )
391 0 : return;
392 :
393 0 : if ( !aStr.isEmpty() )
394 : {
395 0 : GetField()->SetText( aStr );
396 0 : MarkToBeReformatted( false );
397 0 : ImplLongCurrencyGetValue( aStr, mnLastValue, GetDecimalDigits(), GetLocaleDataWrapper() );
398 : }
399 : else
400 0 : SetValue( mnLastValue );
401 : }
402 :
403 0 : void LongCurrencyFormatter::ReformatAll()
404 : {
405 0 : Reformat();
406 0 : }
407 :
408 0 : void LongCurrencyFormatter::SetMin( BigInt nNewMin )
409 : {
410 0 : mnMin = nNewMin;
411 0 : ReformatAll();
412 0 : }
413 :
414 0 : void LongCurrencyFormatter::SetMax( BigInt nNewMax )
415 : {
416 0 : mnMax = nNewMax;
417 0 : ReformatAll();
418 0 : }
419 :
420 0 : void LongCurrencyFormatter::SetUseThousandSep( bool b )
421 : {
422 0 : mbThousandSep = b;
423 0 : ReformatAll();
424 0 : }
425 :
426 0 : void LongCurrencyFormatter::SetDecimalDigits( sal_uInt16 nDigits )
427 : {
428 0 : if ( nDigits > 9 )
429 0 : nDigits = 9;
430 :
431 0 : mnDecimalDigits = nDigits;
432 0 : ReformatAll();
433 0 : }
434 :
435 0 : sal_uInt16 LongCurrencyFormatter::GetDecimalDigits() const
436 : {
437 0 : return mnDecimalDigits;
438 : }
439 :
440 0 : void ImplNewLongCurrencyFieldValue( LongCurrencyField* pField, BigInt nNewValue )
441 : {
442 0 : Selection aSelect = pField->GetSelection();
443 0 : aSelect.Justify();
444 0 : OUString aText = pField->GetText();
445 0 : bool bLastSelected = aSelect.Max() == aText.getLength();
446 :
447 0 : BigInt nOldLastValue = pField->mnLastValue;
448 0 : pField->SetUserValue( nNewValue );
449 0 : pField->mnLastValue = nOldLastValue;
450 :
451 0 : if ( bLastSelected )
452 : {
453 0 : if ( !aSelect.Len() )
454 0 : aSelect.Min() = SELECTION_MAX;
455 0 : aSelect.Max() = SELECTION_MAX;
456 : }
457 0 : pField->SetSelection( aSelect );
458 0 : pField->SetModifyFlag();
459 0 : pField->Modify();
460 0 : }
461 :
462 0 : LongCurrencyField::LongCurrencyField( Window* pParent, WinBits nWinStyle ) :
463 0 : SpinField( pParent, nWinStyle )
464 : {
465 0 : SetField( this );
466 0 : mnSpinSize = 1;
467 0 : mnFirst = mnMin;
468 0 : mnLast = mnMax;
469 :
470 0 : Reformat();
471 0 : }
472 :
473 0 : LongCurrencyField::~LongCurrencyField()
474 : {
475 0 : }
476 :
477 0 : bool LongCurrencyField::PreNotify( NotifyEvent& rNEvt )
478 : {
479 0 : if( rNEvt.GetType() == EVENT_KEYINPUT )
480 : {
481 0 : if ( ImplLongCurrencyProcessKeyInput( GetField(), *rNEvt.GetKeyEvent(), IsStrictFormat(), IsUseThousandSep(), GetLocaleDataWrapper() ) )
482 0 : return true;
483 : }
484 0 : return SpinField::PreNotify( rNEvt );
485 : }
486 :
487 0 : bool LongCurrencyField::Notify( NotifyEvent& rNEvt )
488 : {
489 0 : if( rNEvt.GetType() == EVENT_GETFOCUS )
490 : {
491 0 : MarkToBeReformatted( false );
492 : }
493 0 : else if( rNEvt.GetType() == EVENT_LOSEFOCUS )
494 : {
495 0 : if ( MustBeReformatted() )
496 : {
497 0 : Reformat();
498 0 : SpinField::Modify();
499 : }
500 : }
501 0 : return SpinField::Notify( rNEvt );
502 : }
503 :
504 0 : void LongCurrencyField::Modify()
505 : {
506 0 : MarkToBeReformatted( true );
507 0 : SpinField::Modify();
508 0 : }
509 :
510 0 : void LongCurrencyField::Up()
511 : {
512 0 : BigInt nValue = GetValue();
513 0 : nValue += mnSpinSize;
514 0 : if ( nValue > mnMax )
515 0 : nValue = mnMax;
516 :
517 0 : ImplNewLongCurrencyFieldValue( this, nValue );
518 0 : SpinField::Up();
519 0 : }
520 :
521 0 : void LongCurrencyField::Down()
522 : {
523 0 : BigInt nValue = GetValue();
524 0 : nValue -= mnSpinSize;
525 0 : if ( nValue < mnMin )
526 0 : nValue = mnMin;
527 :
528 0 : ImplNewLongCurrencyFieldValue( this, nValue );
529 0 : SpinField::Down();
530 0 : }
531 :
532 0 : void LongCurrencyField::First()
533 : {
534 0 : ImplNewLongCurrencyFieldValue( this, mnFirst );
535 0 : SpinField::First();
536 0 : }
537 :
538 0 : void LongCurrencyField::Last()
539 : {
540 0 : ImplNewLongCurrencyFieldValue( this, mnLast );
541 0 : SpinField::Last();
542 0 : }
543 :
544 0 : LongCurrencyBox::LongCurrencyBox( Window* pParent, WinBits nWinStyle ) :
545 0 : ComboBox( pParent, nWinStyle )
546 : {
547 0 : SetField( this );
548 0 : Reformat();
549 0 : }
550 :
551 0 : LongCurrencyBox::~LongCurrencyBox()
552 : {
553 0 : }
554 :
555 0 : bool LongCurrencyBox::PreNotify( NotifyEvent& rNEvt )
556 : {
557 0 : if( rNEvt.GetType() == EVENT_KEYINPUT )
558 : {
559 0 : if ( ImplLongCurrencyProcessKeyInput( GetField(), *rNEvt.GetKeyEvent(), IsStrictFormat(), IsUseThousandSep(), GetLocaleDataWrapper() ) )
560 0 : return true;
561 : }
562 0 : return ComboBox::PreNotify( rNEvt );
563 : }
564 :
565 0 : bool LongCurrencyBox::Notify( NotifyEvent& rNEvt )
566 : {
567 0 : if( rNEvt.GetType() == EVENT_GETFOCUS )
568 : {
569 0 : MarkToBeReformatted( false );
570 : }
571 0 : else if( rNEvt.GetType() == EVENT_LOSEFOCUS )
572 : {
573 0 : if ( MustBeReformatted() )
574 : {
575 0 : Reformat();
576 0 : ComboBox::Modify();
577 : }
578 : }
579 0 : return ComboBox::Notify( rNEvt );
580 : }
581 :
582 0 : void LongCurrencyBox::Modify()
583 : {
584 0 : MarkToBeReformatted( true );
585 0 : ComboBox::Modify();
586 0 : }
587 :
588 0 : void LongCurrencyBox::ReformatAll()
589 : {
590 0 : OUString aStr;
591 0 : SetUpdateMode( false );
592 0 : sal_uInt16 nEntryCount = GetEntryCount();
593 0 : for ( sal_uInt16 i=0; i < nEntryCount; i++ )
594 : {
595 : ImplLongCurrencyReformat( GetEntry( i ), mnMin, mnMax,
596 0 : GetDecimalDigits(), GetLocaleDataWrapper(),
597 0 : aStr, *this );
598 0 : RemoveEntryAt(i);
599 0 : InsertEntry( aStr, i );
600 : }
601 0 : LongCurrencyFormatter::Reformat();
602 0 : SetUpdateMode( true );
603 0 : }
604 :
605 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
