diff options
Diffstat (limited to 'wizards/source/euro/Init.xba')
| -rw-r--r-- | wizards/source/euro/Init.xba | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba index f8c2eac7e966..623a0a53be46 100644 --- a/wizards/source/euro/Init.xba +++ b/wizards/source/euro/Init.xba @@ -18,9 +18,7 @@ * the License at http://www.apache.org/licenses/LICENSE-2.0 . --> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit -REM ***** BASIC ***** - - +REM ***** BASIC ***** Public Const SBRANGEUBOUND = 20 Public StyleRangeAssignmentList(SBRANGEUBOUND)as String @@ -255,7 +253,7 @@ Dim LocWorkPath as String End If .txtSource.Text = ConvertfromUrl(LocWorkPath) - + SubstDir = .txtSource.Text .txtTarget.Text = .txtSource.Text .hlnProgress.Label = GetResText("STEP_LASTPAGE_0") @@ -289,7 +287,7 @@ Sub InitializeLanguages() LangIDValue(3,0,0) = "es" LangIDValue(3,0,1) = "" LangIDValue(3,0,2) = "-40A" - + 'Spanish modern LangIDValue(3,1,0) = "es" LangIDValue(3,1,1) = "" @@ -332,7 +330,7 @@ Sub InitializeLanguages() LangIDValue(8,0,0) = "fr" LangIDValue(8,0,1) = "LU" LangIDValue(8,0,2) = "-140C" - + LangIDValue(8,1,0) = "de" LangIDValue(8,1,1) = "LU" LangIDValue(8,1,2) = "-1007" @@ -589,7 +587,7 @@ Sub InitializeControls() EnableStep2DialogControls(True) End If End If -End Sub +End Sub Sub InitializeConverter(oLocale, iDialogPage as Integer) @@ -603,7 +601,7 @@ Dim Isthere as Boolean If sDocType = "sCalc" Then bDocHasProtectedSheets = CheckSheetProtection(oSheets) End If - oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator() + oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator() End If DialogConvert = LoadDialog("Euro", "DlgConvert") DialogModel = DialogConvert.Model @@ -620,9 +618,9 @@ Dim Isthere as Boolean Stop End If FillUpCurrencyListbox() - DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".bmp" + DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".png" DialogConvert.Title = sMsgDLGTITLE - DialogModel.cmdGoOn.DefaultButton = True + DialogModel.cmdGoOn.DefaultButton = True If iDialogPage = 1 Then ToggleWindow(True) End If @@ -637,7 +635,7 @@ Sub InitializeCurrencyValues(CurrIndex) CurrSymbolList(1) = CurrValue(CurrIndex,4) CurrSymbolList(2) = CurrValue(CurrIndex,5) End If -End Sub +End Sub Function InitializeLocales(oLocale) as Boolean |