i119933 - make Basic FORMAT function work with non-ASCII text

7868e574 · Ariel Constenla-Haile · 23ad78fe · 7868e574
Kaydet (Commit) 7868e574 authored Haz 10, 2012 tarafından Ariel Constenla-Haile
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

sbxscan.cxx basic/source/sbx/sbxscan.cxx +7 -2

No files found.
--- a/basic/source/sbx/sbxscan.cxx
+++ b/basic/source/sbx/sbxscan.cxx
@@ -727,14 +727,19 @@ void SbxValue::Format( XubString& rRes, const XubString* pFmt ) const
    {
        String aStr = GetString();

+        SvtSysLocale aSysLocale;
+        const CharClass& rCharClass = aSysLocale.GetCharClass();
+
        if( pFmt->EqualsIgnoreCaseAscii( VBAFORMAT_LOWERCASE ) )
        {
-            rRes = aStr.ToLowerAscii();
+            rCharClass.toLower( aStr );
+            rRes = aStr;
            return;
        }
        if( pFmt->EqualsIgnoreCaseAscii( VBAFORMAT_UPPERCASE ) )
        {
-            rRes = aStr.ToUpperAscii();
+            rCharClass.toUpper( aStr );
+            rRes = aStr;
            return;
        }