1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file 9 * to you under the Apache License, Version 2.0 (the 10 * "License"); you may not use this file except in compliance 11 * with the License. You may obtain a copy of the License at 12 * 13 * http://www.apache.org/licenses/LICENSE-2.0 14 * 15 * Unless required by applicable law or agreed to in writing, 16 * software distributed under the License is distributed on an 17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18 * KIND, either express or implied. See the License for the 19 * specific language governing permissions and limitations 20 * under the License. 21 * 22 ***********************************************************--> 23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit 24REM ***** BASIC ***** 25 26Public Const SBRANGEUBOUND = 20 27Public StyleRangeAssignmentList(SBRANGEUBOUND)as String 28Public SelRangeList(SBRANGEUBOUND) as String 29Public RangeList(SBRANGEUBOUND) as String 30Public UnprotectList() as String 31Public FilterNames(2,1) as String 32Public bDoUnProtect as Boolean 33Public bCancelTask as Boolean 34 35Public sREADY as String 36Public sPROTECT as String 37Public sCONTINUE as String 38 39Public sSELTEMPL as String 40Public sSELCELL as String 41Public sCURRRANGES as String 42Public sTEMPLATES as String 43 44Public sSOURCEFILE as String 45Public sSOURCEDIR as String 46Public sTARGETDIR as String 47 48Public sStsPROGRESS as String 49Public sStsCELLPROGRSS as String 50Public sStsRELRANGES as String 51Public sStsRELSHEETRANGES as String 52Public sStsREPROTECT as String 53 54Public sMsgSELDIR as String 55Public sMsgSELFILE as String 56Public sMsgTARGETDIR as String 57Public sMsgNOTTHERE as String 58Public sMsgDLGTITLE as String 59Public sMsgUNPROTECT as String 60Public sMsgPWPROTECT as String 61Public sMsgWRONGPW as String 62Public sMsgSHEETPROTECTED as String 63Public sMsgWARNING as String 64Public sMsgSHEETSNOPROTECT as String 65Public sMsgSHEETNOPROTECT as String 66Public sMsgCHOOSECURRENCY as String 67Public sMsgPASSWORD as String 68Public sMsgOK as String 69Public sMsgCANCEL as String 70Public sMsgFileInvalid as String 71Public sMsgNODIRECTORY as String 72Public sMsgDOCISREADONLY as String 73Public sMsgFileExists as String 74Public sMsgCancelConversion as String 75Public sMsgCancelTitle as String 76Public sCurrPORTUGUESE as String 77Public sCurrDUTCH as String 78Public sCurrFRENCH as String 79Public sCurrSPANISH as String 80Public sCurrITALIAN as String 81Public sCurrGERMAN as String 82Public sCurrBELGIAN as String 83Public sCurrIRISH as String 84Public sCurrLUXEMBOURG as String 85Public sCurrAUSTRIAN as String 86Public sCurrFINNISH as String 87Public sCurrGREEK as String 88Public sCurrSLOVENIAN as String 89Public sCurrCYPRIOT as String 90Public sCurrMALTESE as String 91Public sCurrSLOVAK as String 92Public sCurrESTONIAN as String 93Public sCurrLATVIAN as String 94Public sCurrLITHUANIAN as String 95Public sCurrCROATIAN as String 96Public sCurrBULGARIAN as String 97Public sCurrUNKNOWN as String 98Public sCurrSYSUNKNOWN as String 99 100Public sPrgsRETRIEVAL as String 101Public sPrgsCONVERTING as String 102Public sPrgsUNPROTECT as String 103Public sInclusiveSubDir as String 104 105Public Const SBCOUNTRYCOUNT = 20 106Public CurMimeType as String 107Public CurCellCount as Long 108Public oSheets as Object 109Public oStyles as Object 110Public oStyle as Object 111Public oFormats as Object 112Public aSimpleStr as String 113Public nSimpleKey as Long 114Public aFormat() as Variant 115Public oRanges as Object 116Public oRange as Object 117Public nLanguage as integer 118Public nFormatLanguage as integer 119Public aCellFormat as Variant 120Public oDocument as Object 121Public StartCol, StartRow, EndCol, EndRow as String 122Public oSheet as Object 123Public IntStartCol, IntStartRow, IntEndCol, IntEndRow as integer 124Public oSelRanges as Object 125Public nFormatType as Integer 126Public sFormatCurrency as String 127Public sFormatLanguage as String 128Public CurSheetName as String 129Public oStatusLine as Object 130Public Const SBRELGET = 50 131Public StatusValue as Single 132Public TotCellCount as Long 133Public StyleIndex as Integer 134Public RangeIndex as Integer 135Public CurrIndex as Integer 136Public ActLangNumber(1) as Integer 137Public CurExtension(2) as String 138Public Currfactor as Double 139Public CurrSymbolList(2) as String 140Public CurrLanguage as String 141Public CurrValue(20,5) 142Public LangIDValue(20,2,2) as String 143Public PreName as String 144Public Separator as String 145Public BitmapDir as String 146Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer 147Public oLocale as New com.sun.star.lang.Locale 148Public sEuroSign as String 149Public oPointer as Object 150Public sDocType as String 151Public bPreSelected as Boolean 152Public bRecursive as Boolean 153Public bCancelProtection as Boolean 154Public CurrRoundMode as Boolean 155Public bRangeListDefined as Boolean 156Public bDocHasProtectedSheets as Boolean 157Public sGOON as String 158Public sHELP as String 159Public sCANCEL as String 160Dim sEnd as String 161 162Sub InitializeResources() 163Dim LocWorkPath as String 164 With DialogModel 165 ' Strings that are also needed by the Password Dialog 166 sGoOn = GetResText(1003) 167 sHelp = GetResText(1001) 168 sCANCEL = GetResText(1418) 169 sEnd = GetResText(1000) 170 sPROTECT = GetResText(1005) 171 sCONTINUE = GetResText(1007) 172 sSELTEMPL = GetResText(1106) 173 sSELCELL = GetResText(1107) 174 sCURRRANGES = GetResText(1108) 175 sTEMPLATES = GetResText(1109) 176 sStsPROGRESS = GetResText(1300) 177 sStsCELLPROGRSS = GetResText(1301) 178 sStsRELSHEETRANGES = GetResText(1302) 179 sStsRELRANGES = GetResText(1303) 180 sStsREPROTECT = GetResText(1304) 181 sREADY = GetResText(1400) 182 sMsgSELDIR = GetResText(1401) 183 sMsgSELFILE = GetResText(1402) 184 sMsgTARGETDIR = GetResText(1403) 185 sMsgNOTTHERE = GetResText(1404) 186 sMsgDLGTITLE = GetResText(1405) 187 sMsgUNPROTECT = GetResText(1406) 188 sMsgPWPROTECT = GetResText(1407) 189 sMsgWRONGPW = GetResText(1408) 190 sMsgSHEETPROTECTED = GetResText(1409) 191 sMsgWARNING = GetResText(1410) 192 sMsgSHEETSNOPROTECT = GetResText(1411) 193 sMsgSHEETNOPROTECT = GetResText(1412) 194 sMsgCHOOSECURRENCY = GetResText(1415) 195 sMsgPASSWORD = GetResText(1416) 196 sMsgOK = GetResText(1417) 197 sMsgCANCEL = GetResText(1418) 198 sMsgFILEINVALID = GetResText(1419) 199 sMsgFILEINVALID = ReplaceString(sMsgFILEINVALID,"%PRODUCTNAME", GetProductname()) 200 SMsgNODIRECTORY = GetResText(1420) 201 sMsgDOCISREADONLY = GetResText(1421) 202 sMsgFileExists = GetResText(1422) 203 sMsgCancelConversion = GetResText(1423) 204 sMsgCancelTitle = GetResText(1424) 205 sCurrPORTUGUESE = GetResText(1500) 206 sCurrDUTCH = GetResText(1501) 207 sCurrFRENCH = GetResText(1502) 208 sCurrSPANISH = GetResText(1503) 209 sCurrITALIAN = GetResText(1504) 210 sCurrGERMAN = GetResText(1505) 211 sCurrBELGIAN = GetResText(1506) 212 sCurrIRISH = GetResText(1507) 213 sCurrLUXEMBOURG = GetResText(1508) 214 sCurrAUSTRIAN = GetResText(1509) 215 sCurrFINNISH = GetResText(1510) 216 sCurrGREEK = GetResText(1511) 217 sCurrSLOVENIAN = GetResText(1512) 218 sCurrCYPRIOT = GetResText(1513) 219 sCurrMALTESE = GetResText(1514) 220 sCurrSLOVAK = GetResText(1515) 221 sCurrESTONIAN = GetResText(1516) 222 sCurrLATVIAN = GetResText(1517) 223 sCurrLITHUANIAN = GetResText(1518) 224 sCurrCROATIAN = GetResText(1519) 225 sCurrBULGARIAN = GetResText(1520) 226 sCurrUNKNOWN = GetResText(1521) 227 sCurrSYSUNKNOWN = GetResText(1522) 228 .cmdCancel.Label = sCANCEL 229 .cmdHelp.Label = sHELP 230 .cmdBack.Label = GetResText(1002) 231 .cmdGoOn.Label = sGOON 232 .lblHint.Label = GetResText(1004) 233 .lblCurrencies.Label = GetResText(1006) 234 .cmdBack.Enabled = False 235 If .Step = 1 Then 236 .chkComplete.Label = GetResText(1100) 237 .hlnSelection.Label = GetResText(1101) 238 .optCellTemplates.Label = GetResText(1102) 239 .optSheetRanges.Label = GetResText(1103) 240 .optDocRanges.Label = GetResText(1104) 241 .optSelRange.Label = GetResText(1105) 242 sCURRRANGES = GetResText(1108) 243 .lblSelection.Label = sCURRRANGES 244 Else 245 .lblProgress.Label = sStsPROGRESS 246 .hlnExtent.Label = GetResText(1200) 247 .optSingleFile.Label = GetResText(1201) 248 .optWholeDir.Label = GetResText(1202) 249 .chkProtect.Label = GetResText(1207) 250 .chkTextDocuments.Label = GetResText(1210) 251 252 sSOURCEFILE = GetResText(1203) 253 sSOURCEDIR = GetResText(1204) 254 .lblSource.Label = sSOURCEDIR 255 sInclusiveSubDir = GetResText(1205) 256 .chkRecursive.Label = sInclusiveSubDir 257 sTARGETDIR = GetResText(1206) 258 .lblTarget.Label = STARGETDIR 259 260 LocWorkPath = GetPathSettings("Work") 261 If Not oUcb.Exists(LocWorkPath) Then 262 ShowNoOfficePathError() 263 Stop 264 End If 265 266 .txtSource.Text = ConvertfromUrl(LocWorkPath) 267 268 SubstDir = .txtSource.Text 269 .txtTarget.Text = .txtSource.Text 270 .hlnProgress.Label = GetResText(1600) 271 .lblConfig.Label = GetResText(1603) 272 sPrgsRETRIEVAL = GetResText(1601) 273 sPrgsCONVERTING = GetResText(1602) 274 sPrgsUNPROTECT = GetResText(1604) 275 End If 276 End With 277End Sub 278 279Sub InitializeLanguages() 280 sEuroSign = chr(8364) 281 282' CURRENCIES_PORTUGUESE 283 LangIDValue(0,0,0) = "pt" 284 LangIDValue(0,0,1) = "" 285 LangIDValue(0,0,2) = "-816" 286 287' CURRENCIES_DUTCH 288 LangIDValue(1,0,0) = "nl" 289 LangIDValue(1,0,1) = "" 290 LangIDValue(1,0,2) = "-413" 291 292' CURRENCIES_FRENCH 293 LangIDValue(2,0,0) = "fr" 294 LangIDValue(2,0,1) = "" 295 LangIDValue(2,0,2) = "-40C" 296 297' CURRENCIES_SPANISH 298 LangIDValue(3,0,0) = "es" 299 LangIDValue(3,0,1) = "" 300 LangIDValue(3,0,2) = "-40A" 301 302 'Spanish modern 303 LangIDValue(3,1,0) = "es" 304 LangIDValue(3,1,1) = "" 305 LangIDValue(3,1,2) = "-C0A" 306 307 'Spanish katalanic 308 LangIDValue(3,2,0) = "es" 309 LangIDValue(3,2,1) = "" 310 LangIDValue(3,2,2) = "-403" 311 312' CURRENCIES_ITALIAN 313 LangIDValue(4,0,0) = "it" 314 LangIDValue(4,0,1) = "" 315 LangIDValue(4,0,2) = "-410" 316 317' CURRENCIES_GERMAN 318 LangIDValue(5,0,0) = "de" 319 LangIDValue(5,0,1) = "DE" 320 LangIDValue(5,0,2) = "-407" 321 322' CURRENCIES_BELGIAN 323 LangIDValue(6,0,0) = "fr" 324 LangIDValue(6,0,1) = "BE" 325 LangIDValue(6,0,2) = "-80C" 326 327 LangIDValue(6,1,0) = "nl" 328 LangIDValue(6,1,1) = "BE" 329 LangIDValue(6,1,2) = "-813" 330 331' CURRENCIES_IRISH 332 LangIDValue(7,0,0) = "en" 333 LangIDValue(7,0,1) = "IE" 334 LangIDValue(7,0,2) = "-1809" 335 336 LangIDValue(7,1,0) = "ga" 337 LangIDValue(7,1,1) = "IE" 338 LangIDValue(7,1,2) = "-83C" 339 340' CURRENCIES_LUXEMBOURG 341 LangIDValue(8,0,0) = "fr" 342 LangIDValue(8,0,1) = "LU" 343 LangIDValue(8,0,2) = "-140C" 344 345 LangIDValue(8,1,0) = "de" 346 LangIDValue(8,1,1) = "LU" 347 LangIDValue(8,1,2) = "-1007" 348 349' CURRENCIES_AUSTRIAN 350 LangIDValue(9,0,0) = "de" 351 LangIDValue(9,0,1) = "AT" 352 LangIDValue(9,0,2) = "-C07" 353 354' CURRENCIES_FINNISH 355 LangIDValue(10,0,0) = "fi" 356 LangIDValue(10,0,1) = "FI" 357 LangIDValue(10,0,2) = "-40B" 358 359 LangIDValue(10,1,0) = "sv" 360 LangIDValue(10,1,1) = "FI" 361 LangIDValue(10,1,2) = "-81D" 362 363' CURRENCIES_GREEK 364 LangIDValue(11,0,0) = "el" 365 LangIDValue(11,0,1) = "GR" 366 LangIDValue(11,0,2) = "-408" 367 368' CURRENCIES_SLOVENIAN 369 LangIDValue(12,0,0) = "sl" 370 LangIDValue(12,0,1) = "SI" 371 LangIDValue(12,0,2) = "-424" 372 373' CURRENCIES_CYPRIOT 374 LangIDValue(13,0,0) = "el" 375 LangIDValue(13,0,1) = "CY" 376 LangIDValue(13,0,2) = "-408" 377 378' CURRENCIES_MALTESE 379 LangIDValue(14,0,0) = "mt" 380 LangIDValue(14,0,1) = "MT" 381 LangIDValue(14,0,2) = "-43A" 382 383' CURRENCIES_SLOVAK 384 LangIDValue(15,0,0) = "sk" 385 LangIDValue(15,0,1) = "SK" 386 LangIDValue(15,0,2) = "-41B" 387 388' CURRENCIES_ESTONIAN 389 LangIDValue(16,0,0) = "et" 390 LangIDValue(16,0,1) = "ET" 391 LangIDValue(16,0,2) = "-425" 392 393' CURRENCIES_LATVIAN 394 LangIDValue(17,0,0) = "lv" 395 LangIDValue(17,0,1) = "LV" 396 LangIDValue(17,0,2) = "-426" 397 398 'Latgalian 399 LangIDValue(17,1,0) = "ltg" 400 LangIDValue(17,1,1) = "LV" 401 LangIDValue(17,1,2) = "-64B" 402 403' CURRENCIES_LITHUANIAN 404 LangIDValue(18,0,0) = "lt" 405 LangIDValue(18,0,1) = "LT" 406 LangIDValue(18,0,2) = "-427" 407 408' CURRENCIES_CROATIAN 409 LangIDValue(19,0,0) = "hr" 410 LangIDValue(19,0,1) = "HR" 411 LangIDValue(19,0,2) = "-41A" 412 413' CURRENCIES_BULGARIAN 414 LangIDValue(20,0,0) = "bg" 415 LangIDValue(20,0,1) = "BG" 416 LangIDValue(20,0,2) = "-402" 417 418End Sub 419 420 421 422Sub InitializeCurrencies() 423Dim i as Integer 424 GoOn = True 425 426 CurrValue(0,0) = sCurrPORTUGUESE 427 ' real conversion rate 428 CurrValue(0,1) = 200.482 429 ' rounded conversion rate 430 CurrValue(0,2) = 200 431 CurrValue(0,3) = "Esc." 432 CurrValue(0,4) = "Esc." 433 CurrValue(0,5) = "PTE" 434 435 CurrValue(1,0) = sCurrDUTCH 436 ' real conversion rate 437 CurrValue(1,1) = 2.20371 438 ' rounded conversion rate 439 CurrValue(1,2) = 2 440 CurrValue(1,3) = "F" 441 CurrValue(1,4) = "fl" 442 CurrValue(1,5) = "NLG" 443 444 CurrValue(2,0) = sCurrFRENCH 445 ' real conversion rate 446 CurrValue(2,1) = 6.55957 447 ' rounded conversion rate 448 CurrValue(2,2) = 7 449 CurrValue(2,3) = "F" 450 CurrValue(2,4) = "F" 451 CurrValue(2,5) = "FRF" 452 453 CurrValue(3,0) = sCurrSPANISH 454 ' real conversion rate 455 CurrValue(3,1) = 166.386 456 ' rounded conversion rate 457 CurrValue(3,2) = 170 458 CurrValue(3,3) = "Pts" 459 CurrValue(3,4) = "Pts" 460 CurrValue(3,5) = "ESP" 461 462 CurrValue(4,0) = sCurrITALIAN 463 ' real conversion rate 464 CurrValue(4,1) = 1936.27 465 ' rounded conversion rate 466 CurrValue(4,2) = 2000 467 CurrValue(4,3) = "L." 468 CurrValue(4,4) = "L." 469 CurrValue(4,5) = "ITL" 470 471 CurrValue(5,0) = sCurrGERMAN 472 ' real conversion rate 473 CurrValue(5,1) = 1.95583 474 ' rounded conversion rate 475 CurrValue(5,2) = 2 476 CurrValue(5,3) = "DM" 477 CurrValue(5,4) = "DM" 478 CurrValue(5,5) = "DEM" 479 480 CurrValue(6,0) = sCurrBELGIAN 481 ' real conversion rate 482 CurrValue(6,1) = 40.3399 483 ' rounded conversion rate 484 CurrValue(6,2) = 40 485 CurrValue(6,3) = "FB" 486 CurrValue(6,4) = "BF" 487 CurrValue(6,5) = "BEF" 488 489 CurrValue(7,0) = sCurrIRISH 490 ' real conversion rate 491 CurrValue(7,1) = 0.787564 492 ' rounded conversion rate 493 CurrValue(7,2) = 0.8 494 CurrValue(7,3) = "IR£" 495 CurrValue(7,4) = "£" 496 CurrValue(7,5) = "IEP" 497 498 CurrValue(8,0) = sCurrLUXEMBOURG 499 ' real conversion rate 500 CurrValue(8,1) = 40.3399 501 ' rounded conversion rate 502 CurrValue(8,2) = 40 503 CurrValue(8,3) = "F" 504 CurrValue(8,4) = "F" 505 CurrValue(8,5) = "LUF" 506 507 CurrValue(9,0) = sCurrAUSTRIAN 508 ' real conversion rate 509 CurrValue(9,1) = 13.7603 510 ' rounded conversion rate 511 CurrValue(9,2) = 15 512 CurrValue(9,3) = "öS" 513 CurrValue(9,4) = "S" 514 CurrValue(9,5) = "ATS" 515 516 CurrValue(10,0) = sCurrFINNISH 517 ' real conversion rate 518 CurrValue(10,1) = 5.94573 519 ' rounded conversion rate 520 CurrValue(10,2) = 6 521 CurrValue(10,3) = "mk" 522 CurrValue(10,4) = "mk" 523 CurrValue(10,5) = "FIM" 524 525 CurrValue(11,0) = sCurrGREEK 526 ' real conversion rate 527 CurrValue(11,1) = 340.750 528 ' rounded conversion rate 529 CurrValue(11,2) = 400 530 CurrValue(11,3) = chr(916) & chr(961) & chr(967) 531 CurrValue(11,4) = chr(916) & chr(961) & chr(967) 532 CurrValue(11,5) = "GRD" 533 534 CurrValue(12,0) = sCurrSLOVENIAN 535 ' real conversion rate 536 CurrValue(12,1) = 239.64 537 ' rounded conversion rate 538 CurrValue(12,2) = 240 539 CurrValue(12,3) = "SIT" 540 CurrValue(12,4) = "SIT" 541 CurrValue(12,5) = "SIT" 542 543 CurrValue(13,0) = sCurrCYPRIOT 544 ' real conversion rate 545 CurrValue(13,1) = 0.585274 546 ' rounded conversion rate 547 CurrValue(13,2) = 0.6 548 CurrValue(13,3) = "£C" 549 CurrValue(13,4) = "£" 550 CurrValue(13,5) = "CYP" 551 552 CurrValue(14,0) = sCurrMALTESE 553 ' real conversion rate 554 CurrValue(14,1) = 0.429300 555 ' rounded conversion rate 556 CurrValue(14,2) = 0.4 557 CurrValue(14,3) = chr(8356) 558 CurrValue(14,4) = "Lm" 559 CurrValue(14,5) = "MTL" 560 561 CurrValue(15,0) = sCurrSLOVAK 562 ' real conversion rate 563 CurrValue(15,1) = 30.1260 564 ' rounded conversion rate 565 CurrValue(15,2) = 30 566 CurrValue(15,3) = "Sk" 567 CurrValue(15,4) = "Sk" 568 CurrValue(15,5) = "SKK" 569 570 CurrValue(16,0) = sCurrESTONIAN 571 ' real conversion rate 572 CurrValue(16,1) = 15.6466 573 ' rounded conversion rate 574 CurrValue(16,2) = 15 575 CurrValue(16,3) = "kr" 576 CurrValue(16,4) = "kr" 577 CurrValue(16,5) = "EEK" 578 579 CurrValue(17,0) = sCurrLATVIAN 580 ' real conversion rate 581 CurrValue(17,1) = 0.702804 582 ' rounded conversion rate 583 CurrValue(17,2) = 0.7 584 CurrValue(17,3) = "Ls" 585 CurrValue(17,4) = "Ls" 586 CurrValue(17,5) = "LVL" 587 588 CurrValue(18,0) = sCurrLITHUANIAN 589 ' real conversion rate 590 CurrValue(18,1) = 3.45280 591 ' rounded conversion rate 592 CurrValue(18,2) = 3.5 593 CurrValue(18,3) = "Lt" 594 CurrValue(18,4) = "Lt" 595 CurrValue(18,5) = "LTL" 596 597 CurrValue(19,0) = sCurrCROATIAN 598 ' real conversion rate 599 CurrValue(19,1) = 7.53450 600 ' rounded conversion rate 601 CurrValue(19,2) = 7.5 602 CurrValue(19,3) = "kn" 603 CurrValue(19,4) = "kn" 604 CurrValue(19,5) = "HRK" 605 606 CurrValue(20,0) = sCurrBULGARIAN 607 ' real conversion rate 608 CurrValue(20,1) = 1.95583 609 ' rounded conversion rate 610 CurrValue(20,2) = 2 611 CurrValue(20,3) = "лв." 612 CurrValue(20,4) = "лв." 613 CurrValue(20,5) = "BGN" 614 615 i = -1 616 CurrSymbolList(0) = "" 617 CurrSymbolList(1) = "" 618 InitializeCurrencyValues(CurrIndex) 619End Sub 620 621 622Sub InitializeControls() 623 If CurrIndex = -1 Then 624 If DialogModel.Step = 1 Then 625 EnableStep1DialogControls(True, False, False) 626 ElseIf DialogModel.Step = 2 Then 627 EnableStep2DialogControls(True) 628 End If 629 End If 630End Sub 631 632 633Sub InitializeConverter(oLocale, iDialogPage as Integer) 634Dim Isthere as Boolean 635 bCancelProtection = False 636 bRangeListDefined = False 637 PWIndex = -1 638 If iDialogPage = 1 Then 639 ToggleWindow(False) 640 sDocType = Tools.GetDocumentType(ThisComponent) 641 If sDocType = "sCalc" Then 642 bDocHasProtectedSheets = CheckSheetProtection(oSheets) 643 End If 644 oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator() 645 End If 646 DialogConvert = LoadDialog("Euro", "DlgConvert") 647 DialogModel = DialogConvert.Model 648 DialogPassword = LoadDialog("Euro", "DlgPassword") 649 PasswordModel = DialogPassword.Model 650 DialogModel.Step = iDialogPage 651 InitializeResources() 652 InitializeLanguages() 653 InitializeLocales(oLocale) 654 InitializeCurrencies() 655 InitializeControls() 656 BitmapDir = GetOfficeSubPath("Template", "../wizard/bitmap") 657 If BitmapDir = "" Then 658 Stop 659 End If 660 FillUpCurrencyListbox() 661 DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".png" 662 DialogConvert.Title = sMsgDLGTITLE 663 DialogModel.cmdGoOn.DefaultButton = True 664 If iDialogPage = 1 Then 665 ToggleWindow(True) 666 End If 667End Sub 668 669 670Sub InitializeCurrencyValues(CurrIndex) 671 If CurrIndex <> -1 Then 672 CurrLanguage = CurrValue(CurrIndex,0) 673 CurrFactor = CurrValue(CurrIndex,1) 674 CurrSymbolList(0) = CurrValue(CurrIndex,3) 675 CurrSymbolList(1) = CurrValue(CurrIndex,4) 676 CurrSymbolList(2) = CurrValue(CurrIndex,5) 677 End If 678End Sub 679 680 681Function InitializeLocales(oLocale) as Boolean 682Dim i as Integer, n as Integer, m as Integer 683Dim sLanguage as String, sCountry as String 684Dim bTakeThisLocale as Boolean 685 sLanguage = oLocale.Language 686 sCountry = oLocale.Country 687 For n = 0 To SBCOUNTRYCOUNT - 1 688 For m = 0 TO 1 689 If DialogModel.Step = 2 Then 690 bTakeThisLocale = LangIDValue(n,m,0) = sLanguage 691 Else 692 bTakeThisLocale = LangIDValue(n,m,0) = sLanguage 693 End If 694 If bTakeThisLocale Then 695 CurrIndex = n 696 For i = 0 To 2 697 CurExtension(i) = LangIDValue(CurrIndex,i,2) 698 Next i 699 InitializeLocales = True 700 Exit Function 701 End If 702 Next m 703 Next n 704 CurrIndex = -1 705 InitializeLocales = False 706End Function 707</script:module> 708