diff options
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index e7995b1a2090..57ffffcd1cb5 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -1,15 +1,9 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit Public oPreSelRange as Object -' Todo Den Bug mit der Statuszeilengeschichte überprüfen -' Todo Vorselektion der Listbox -' Mauspointer umschalten: - -' Todo: In der Hilfe sollte ein Hinweis erscheinen, dass immer zwei Nachkommastellen angezeigt werden -' und die resultierende Betrag ebenfalls bis auf zwei Stellen nach dem Komma gerundet wird Sub Main() BasicLibraries.LoadLibrary("Tools") @@ -259,7 +253,6 @@ End Sub Sub AddRangeToListbox(oLocRange as Object) EmptyListBox(DialogModel.lstSelection) - ' Den Namen der Range ermitteln und in ein Array packen PreName = RetrieveRangeNamefromAddress(oLocRange) AddSingleItemToListbox(DialogModel.lstSelection, Prename)', 0) SelectListboxItem(DialogModel.lstCurrencies, CurrIndex) @@ -268,7 +261,6 @@ End Sub Sub CheckRangeSelection(Optional oEvent) -' Todo: Beim Startup werden die folgenden zwei Zeilen doppelt ausgeführt EmptySelection() AddRangeToListbox(oPreSelRange) oPreSelRange = AddSelectedRangeToSelRangesEnum() |