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 <sal/config.h>
  21
  22 #include <string_view>
  23
  24 #include <comphelper/string.hxx>
  25 #include <tools/bigint.hxx>
  26 #include <sal/log.hxx>
  27
  28 #include <vcl/event.hxx>
  29 #include <vcl/svapp.hxx>
  30 #include <vcl/toolkit/longcurr.hxx>
  31 #include <vcl/weldutils.hxx>
  32
  33 #include <unotools/localedatawrapper.hxx>
  34
  35 using namespace ::comphelper;
  36
  37 namespace
  38 {
  39
  40 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 OUString ImplGetCurr( const LocaleDataWrapper& rLocaleDataWrapper, const BigInt &rNumber, sal_uInt16 nDigits, std::u16string_view rCurrSymbol, bool bShowThousandSep )
  52 {
  53     SAL_WARN_IF( nDigits >= 10, "vcl", "LongCurrency may only have 9 decimal places" );
  54
  55     if ( rNumber.IsZero() || static_cast<tools::Long>(rNumber) )
  56         return rLocaleDataWrapper.getCurr( static_cast<tools::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       = 1000000000;
  69     }
  70     if ( rNumber.IsNeg() )
  71         aFraction *= -1;
  72
  73     OUStringBuffer aTemplate(rLocaleDataWrapper.getCurr( static_cast<tools::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         OUString aFractionStr = rLocaleDataWrapper.getNum( static_cast<tools::Long>(aFraction), 0 );
  83
  84         sal_Int32 nSPos = aTemplate.indexOf( '1' );
  85         if (nSPos == -1)
  86             break;
  87         if ( aFractionStr.getLength() == 1 )
  88             aTemplate[ nSPos ] = aFractionStr[0];
  89         else
  90         {
  91             aTemplate.remove( nSPos, 1 );
  92             aTemplate.insert( nSPos, aFractionStr  );
  93         }
  94     }
  95
  96     return aTemplate.makeStringAndClear();
  97 }
  98
  99 bool ImplCurrencyGetValue( const OUString& rStr, BigInt& rValue,
 100                                  sal_uInt16 nDecDigits, const LocaleDataWrapper& rLocaleDataWrapper )
 101 {
 102     OUString aStr = rStr;
 103     OUStringBuffer aStr1;
 104     OUStringBuffer aStr2;
 105     sal_Int32 nDecPos;
 106     bool bNegative = false;
 107
 108     // On empty string
 109     if ( rStr.isEmpty() )
 110         return false;
 111
 112     // Trim leading and trailing spaces
 113     aStr = string::strip(aStr, ' ');
 114
 115     // Find decimal sign's position
 116     nDecPos = aStr.indexOf( rLocaleDataWrapper.getNumDecimalSep() );
 117     if (nDecPos < 0 && !rLocaleDataWrapper.getNumDecimalSepAlt().isEmpty())
 118         nDecPos = aStr.indexOf( rLocaleDataWrapper.getNumDecimalSepAlt() );
 119
 120     if ( nDecPos != -1 )
 121     {
 122         aStr1 = aStr.subView( 0, nDecPos );
 123         aStr2.append(aStr.subView(nDecPos+1));
 124     }
 125     else
 126         aStr1 = aStr;
 127
 128     // Negative?
 129     if ( (aStr[ 0 ] == '(') && (aStr[ aStr.getLength()-1 ] == ')') )
 130         bNegative = true;
 131     if ( !bNegative )
 132     {
 133         for (sal_Int32 i=0; i < aStr.getLength(); i++ )
 134         {
 135             if ( (aStr[ i ] >= '0') && (aStr[ i ] <= '9') )
 136                 break;
 137             else if ( aStr[ i ] == '-' )
 138             {
 139                 bNegative = true;
 140                 break;
 141             }
 142         }
 143     }
 144     if ( !bNegative && !aStr.isEmpty() )
 145     {
 146         sal_uInt16 nFormat = rLocaleDataWrapper.getCurrNegativeFormat();
 147         if ( (nFormat == 3) || (nFormat == 6)  ||
 148              (nFormat == 7) || (nFormat == 10) )
 149         {
 150             for (sal_Int32 i = aStr.getLength()-1; i > 0; i++ )
 151             {
 152                 if ( (aStr[ i ] >= '0') && (aStr[ i ] <= '9') )
 153                     break;
 154                 else if ( aStr[ i ] == '-' )
 155                 {
 156                     bNegative = true;
 157                     break;
 158                 }
 159             }
 160         }
 161     }
 162
 163     // delete unwanted characters
 164     for (sal_Int32 i=0; i < aStr1.getLength(); )
 165     {
 166         if ( (aStr1[ i ] >= '0') && (aStr1[ i ] <= '9') )
 167             i++;
 168         else
 169             aStr1.remove( i, 1 );
 170     }
 171     for (sal_Int32 i=0; i < aStr2.getLength(); )
 172     {
 173         if ((aStr2[i] >= '0') && (aStr2[i] <= '9'))
 174             ++i;
 175         else
 176             aStr2.remove(i, 1);
 177     }
 178
 179     if ( aStr1.isEmpty() && aStr2.isEmpty())
 180         return false;
 181
 182     if ( aStr1.isEmpty() )
 183         aStr1 = "0";
 184     if ( bNegative )
 185         aStr1.insert( 0, '-');
 186
 187     // Cut down decimal part and round while doing so
 188     bool bRound = false;
 189     if (aStr2.getLength() > nDecDigits)
 190     {
 191         if (aStr2[nDecDigits] >= '5')
 192             bRound = true;
 193         string::truncateToLength(aStr2, nDecDigits);
 194     }
 195     string::padToLength(aStr2, nDecDigits, '0');
 196
 197     aStr1.append(aStr2);
 198     aStr  = aStr1.makeStringAndClear();
 199
 200     // check range
 201     BigInt nValue( aStr );
 202     if ( bRound )
 203     {
 204         if ( !bNegative )
 205             nValue+=1;
 206         else
 207             nValue-=1;
 208     }
 209
 210     rValue = nValue;
 211
 212     return true;
 213 }
 214
 215 } // namespace
 216
 217 static bool ImplLongCurrencyGetValue( const OUString& rStr, BigInt& rValue,
 218                                       sal_uInt16 nDecDigits, const LocaleDataWrapper& rLocaleDataWrapper )
 219 {
 220     return ImplCurrencyGetValue( rStr, rValue, nDecDigits, rLocaleDataWrapper );
 221 }
 222
 223 namespace weld
 224 {
 225     IMPL_LINK_NOARG(LongCurrencyFormatter, FormatOutputHdl, LinkParamNone*, bool)
 226     {
 227         const LocaleDataWrapper& rLocaleDataWrapper = Application::GetSettings().GetLocaleDataWrapper();
 228         const OUString& rCurrencySymbol = !m_aCurrencySymbol.isEmpty() ? m_aCurrencySymbol : rLocaleDataWrapper.getCurrSymbol();
 229         double fValue = GetValue() * weld::SpinButton::Power10(GetDecimalDigits());
 230         OUString aText = ImplGetCurr(rLocaleDataWrapper, fValue, GetDecimalDigits(), rCurrencySymbol, m_bThousandSep);
 231         ImplSetTextImpl(aText, nullptr);
 232         return true;
 233     }
 234
 235     IMPL_LINK(LongCurrencyFormatter, ParseInputHdl, sal_Int64*, result, TriState)
 236     {
 237         const LocaleDataWrapper& rLocaleDataWrapper = Application::GetSettings().GetLocaleDataWrapper();
 238
 239         BigInt value;
 240         bool bRet = ImplLongCurrencyGetValue(GetEntryText(), value, GetDecimalDigits(), rLocaleDataWrapper);
 241
 242         if (bRet)
 243             *result = double(value);
 244
 245         return bRet ? TRISTATE_TRUE : TRISTATE_FALSE;
 246     }
 247 }
 248
 249 bool ImplLongCurrencyReformat( const OUString& rStr, BigInt const & nMin, BigInt const & nMax,
 250                                sal_uInt16 nDecDigits,
 251                                const LocaleDataWrapper& rLocaleDataWrapper, OUString& rOutStr,
 252                                LongCurrencyFormatter const & rFormatter )
 253 {
 254     BigInt nValue;
 255     if ( !ImplCurrencyGetValue( rStr, nValue, nDecDigits, rLocaleDataWrapper ) )
 256         return true;
 257     else
 258     {
 259         BigInt nTempVal = nValue;
 260         if ( nTempVal > nMax )
 261             nTempVal = nMax;
 262         else if ( nTempVal < nMin )
 263             nTempVal = nMin;
 264
 265         rOutStr = ImplGetCurr( rLocaleDataWrapper, nTempVal, nDecDigits, rFormatter.GetCurrencySymbol(), /*IsUseThousandSep*/true );
 266         return true;
 267     }
 268 }
 269
 270 void LongCurrencyFormatter::ImpInit()
 271 {
 272     mnLastValue         = 0;
 273     mnMin               = 0;
 274     mnMax               = 0x7FFFFFFF;
 275     mnMax              *= 0x7FFFFFFF;
 276     mnDecimalDigits     = 0;
 277     SetDecimalDigits( 0 );
 278 }
 279
 280 LongCurrencyFormatter::LongCurrencyFormatter(Edit* pEdit)
 281     : FormatterBase(pEdit)
 282 {
 283     ImpInit();
 284 }
 285
 286 LongCurrencyFormatter::~LongCurrencyFormatter()
 287 {
 288 }
 289
 290 OUString const & LongCurrencyFormatter::GetCurrencySymbol() const
 291 {
 292     return GetLocaleDataWrapper().getCurrSymbol();
 293 }
 294
 295 void LongCurrencyFormatter::SetValue(const BigInt& rNewValue)
 296 {
 297     SetUserValue(rNewValue);
 298     SetEmptyFieldValueData( false );
 299 }
 300
 301 void LongCurrencyFormatter::SetUserValue( BigInt nNewValue )
 302 {
 303     if ( nNewValue > mnMax )
 304         nNewValue = mnMax;
 305     else if ( nNewValue < mnMin )
 306         nNewValue = mnMin;
 307     mnLastValue = nNewValue;
 308
 309     if ( !GetField() )
 310         return;
 311
 312     OUString aStr = ImplGetCurr( GetLocaleDataWrapper(), nNewValue, GetDecimalDigits(), GetCurrencySymbol(), /*UseThousandSep*/true );
 313     if ( GetField()->HasFocus() )
 314     {
 315         Selection aSelection = GetField()->GetSelection();
 316         GetField()->SetText( aStr );
 317         GetField()->SetSelection( aSelection );
 318     }
 319     else
 320         GetField()->SetText( aStr );
 321     MarkToBeReformatted( false );
 322 }
 323
 324 BigInt LongCurrencyFormatter::GetValue() const
 325 {
 326     if ( !GetField() )
 327         return 0;
 328
 329     BigInt nTempValue;
 330     if ( ImplLongCurrencyGetValue( GetField()->GetText(), nTempValue, GetDecimalDigits(), GetLocaleDataWrapper() ) )
 331     {
 332         if ( nTempValue > mnMax )
 333             nTempValue = mnMax;
 334         else if ( nTempValue < mnMin )
 335             nTempValue = mnMin;
 336         return nTempValue;
 337     }
 338     else
 339         return mnLastValue;
 340 }
 341
 342 void LongCurrencyFormatter::Reformat()
 343 {
 344     if ( !GetField() )
 345         return;
 346
 347     if ( GetField()->GetText().isEmpty() && ImplGetEmptyFieldValue() )
 348         return;
 349
 350     OUString aStr;
 351     bool bOK = ImplLongCurrencyReformat( GetField()->GetText(), mnMin, mnMax,
 352                                          GetDecimalDigits(), GetLocaleDataWrapper(), aStr, *this );
 353     if ( !bOK )
 354         return;
 355
 356     if ( !aStr.isEmpty() )
 357     {
 358         GetField()->SetText( aStr );
 359         MarkToBeReformatted( false );
 360         ImplLongCurrencyGetValue( aStr, mnLastValue, GetDecimalDigits(), GetLocaleDataWrapper() );
 361     }
 362     else
 363         SetValue( mnLastValue );
 364 }
 365
 366 void LongCurrencyFormatter::ReformatAll()
 367 {
 368     Reformat();
 369 }
 370
 371 void LongCurrencyFormatter::SetDecimalDigits( sal_uInt16 nDigits )
 372 {
 373     if ( nDigits > 9 )
 374         nDigits = 9;
 375
 376     mnDecimalDigits = nDigits;
 377     ReformatAll();
 378 }
 379
 380
 381
 382 LongCurrencyBox::LongCurrencyBox(vcl::Window* pParent, WinBits nWinStyle)
 383     : ComboBox(pParent, nWinStyle)
 384     , LongCurrencyFormatter(this)
 385 {
 386     Reformat();
 387 }
 388
 389 bool LongCurrencyBox::EventNotify( NotifyEvent& rNEvt )
 390 {
 391     if( rNEvt.GetType() == NotifyEventType::GETFOCUS )
 392     {
 393         MarkToBeReformatted( false );
 394     }
 395     else if( rNEvt.GetType() == NotifyEventType::LOSEFOCUS )
 396     {
 397         if ( MustBeReformatted() )
 398         {
 399             Reformat();
 400             ComboBox::Modify();
 401         }
 402     }
 403     return ComboBox::EventNotify( rNEvt );
 404 }
 405
 406 void LongCurrencyBox::Modify()
 407 {
 408     MarkToBeReformatted( true );
 409     ComboBox::Modify();
 410 }
 411
 412 void LongCurrencyBox::ReformatAll()
 413 {
 414     OUString aStr;
 415     SetUpdateMode( false );
 416     const sal_Int32 nEntryCount = GetEntryCount();
 417     for ( sal_Int32 i=0; i < nEntryCount; ++i )
 418     {
 419         ImplLongCurrencyReformat( GetEntry( i ), mnMin, mnMax,
 420                                   GetDecimalDigits(), GetLocaleDataWrapper(),
 421                                   aStr, *this );
 422         RemoveEntryAt(i);
 423         InsertEntry( aStr, i );
 424     }
 425     LongCurrencyFormatter::Reformat();
 426     SetUpdateMode( true );
 427 }
 428
 429 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */