From 77e70b7f98a813eedff8060976da33b6b837d0d5 Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Fri, 2 Nov 2001 15:49:43 +0000 Subject: #94168# Preselected Range handling now modified. Numberlocale --- wizards/source/euro/Common.xba | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'wizards/source/euro/Common.xba') diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba index fb972cd3a49c..2bc1fbc5f3b6 100644 --- a/wizards/source/euro/Common.xba +++ b/wizards/source/euro/Common.xba @@ -80,7 +80,6 @@ Dim nFormatLeading as Integer Dim bFormatLeading as Integer Dim bFormatNegRed as Integer Dim bFormatThousands as Integer -Dim aLocLocale As New com.sun.star.lang.Locale Dim i as Integer Dim aNewStr as String Dim iNumberFormat as Long @@ -106,9 +105,8 @@ Dim sOldCurrSymbol as String nFormatLeading = aFormat.LeadingZeros bFormatNegRed = aFormat.NegativeRed bFormatThousands = aFormat.ThousandsSeparator - aLocLocale = aFormat.Locale - aNewStr = oFormats.generateFormat( nSimpleKey, oLocale, bFormatThousands, bFormatNegRed, nFormatDecimals, nFormatLeading) - oObject.NumberFormat = Numberformat(oFormats, aNewStr, aLocLocale) + aNewStr = oFormats.generateFormat( nSimpleKey, aFormat.Locale, bFormatThousands, bFormatNegRed, nFormatDecimals, nFormatLeading) + oObject.NumberFormat = Numberformat(oFormats, aNewStr, aFormat.Locale) NOKEY: If Err <> 0 Then Resume CLERROR @@ -119,8 +117,12 @@ End Sub Function Numberformat( oFormats as Object, aFormatStr as String, oLocale as Object) Dim nRetkey +Dim l as String +Dim c as String nRetKey = oFormats.queryKey( aFormatStr, oLocale, True ) If nRetKey = -1 Then + l = oLocale.Language + c = oLocale.Country nRetKey = oFormats.addNew( aFormatStr, oLocale ) If nRetKey = -1 Then nRetKey = 0 End If @@ -232,7 +234,7 @@ Dim OldCurrIndex as Integer CreateRangeEnumeration(False) ElseIf DialogModel.optSelRange.State= 1 Then 'Preselected Range - CheckRangeSelection() +' CheckRangeSelection() End If EnableStep1DialogControls(True, True, True) End If -- cgit