diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-05-04 14:11:48 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-05-04 14:11:48 +0000 |
| commit | 3f89ebead0c48da7ade7d46d35a09225096236d8 (patch) | |
| tree | 1860dddb61a5ad3fdd0beb10e4d48bc545a33365 /wizards/source/euro/ConvertRun.xba | |
| parent | 8288389891f2ada8467ec08b789a9ee597619490 (diff) | |
## Dialog adjusted
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 64 |
1 files changed, 8 insertions, 56 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index 1effb30bc575..20cdef930e47 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -1,14 +1,14 @@ <?xml version="1.0" encoding="UTF-8"?> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit -' Todo Den Bug mit der Statuszeilengeschichte überprüfen +' Todo Den Bug mit der Statuszeilengeschichte überprüfen ' Todo Vorselektion der Listbox ' Mauspointer umschalten: ' Todo: Sinnigkeit von 'DocDisposed' noch einmal überprüfen Sub Main() - BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") If InitResources("Euro Converter", "eur") Then DoUnProtect = 0 bPreSelected = True @@ -217,58 +217,6 @@ Dim s as Integer End Sub -Sub SelectCurrency() -Dim AddtoList as Boolean -Dim UpRangeList as Integer -Dim OldCurrIndex as Integer - OldCurrIndex = CurrIndex - CurrIndex = DialogModel.lstCurrencies.SelectedItems(0) - InitializeCurrencyValues(CurrIndex) - CurExtension(0) = LangIDValue(CurrIndex,0,2) - CurExtension(1) = LangIDValue(CurrIndex,1,2) - If DialogModel.Step = 1 Then - If OldCurrIndex = -1 Then - DialogModel.chkComplete.State = 1 - EnableStep1DialogControls(True,False, True) - SetOptionValuestoNull() - Else - EnableStep1DialogControls(False,False, False) - If DialogModel.optCellTemplates.State = 1 Then - EnableStep1DialogControls(False, False, False) - CreateStyleEnumeration() - EnableStep1DialogControls(True, True, True) - ElseIf ((DialogModel.optSheetRanges.State = 1) OR (DialogModel.optDocRanges.State = 1)) AND (DialogModel.Step = 1) Then - UpRangeList = UBound(RangeList()) - ReDim RangeList(UpRangeList) 'as String - CreateRangeEnumeration(False) - ElseIf DialogModel.optSelRange.State= 1 Then - 'Preselected Range - CheckRangeSelection() - End If - EnableStep1DialogControls(True, True, True) - End If - ElseIf DialogModel.Step = 2 Then - EnableStep2DialogControls(True) - End If -End Sub - - - -Sub FillUpCurrencyListbox() -Dim i as Integer -Dim MaxIndex as Integer - MaxIndex = Ubound(CurrValue(),1) - Dim LocList(MaxIndex) as String - For i = 0 To MaxIndex - LocList(i) = CurrValue(i,0) - Next i - DialogModel.lstCurrencies.StringItemList() = LocList() - If CurrIndex > -1 Then - SelectListboxItem(DialogModel.lstCurrencies, CurrIndex) - End If -End Sub - - ' Alles was selektiert wurde wird deselektiert Sub EmptySelection() Dim RangeName as String @@ -343,7 +291,11 @@ Dim OldCurExtension(1) as String End If EnableStep1DialogControls(True, bPreSelected, True) ' Todo: auf Integer umstellen - DialogModel.chkComplete.State = Not bPreSelected + If bPreselected Then + DialogModel.chkComplete.State = 0 + Else + DialogModel.chkComplete.State = 1 + End If DialogModel.optSelRange.Enabled = bPreSelected End Sub @@ -405,4 +357,4 @@ Sub SetOptionValuestoNull() DialogModel.optDocRanges.State = 0 DialogModel.optSelRange.State = 0 End Sub -</script:module> +</script:module>
\ No newline at end of file |