vcl/source/control/longcurr.cxx

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