diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-19 15:24:29 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-19 15:24:29 +0000 |
| commit | da7bd58fe04af8caff8093b22a6c3f7535aa7929 (patch) | |
| tree | 2140535d416b0eeb8b8014e825dabe51ea48de35 /wizards/source/euro/Common.xba | |
| parent | 96417befe597c718e0e27fe53cc9eb30b550b9ac (diff) | |
#94155# Preselection improved
Diffstat (limited to 'wizards/source/euro/Common.xba')
| -rw-r--r-- | wizards/source/euro/Common.xba | 29 |
1 files changed, 11 insertions, 18 deletions
diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba index 26d0da7c0e5f..0fcb07b30f22 100644 --- a/wizards/source/euro/Common.xba +++ b/wizards/source/euro/Common.xba @@ -216,25 +216,18 @@ Dim OldCurrIndex as Integer CurExtension(1) = LangIDValue(CurrIndex,1,2) CurExtension(2) = LangIDValue(CurrIndex,2,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() - 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) + EnableStep1DialogControls(False,False, False) + If DialogModel.optCellTemplates.State = 1 Then + EnableStep1DialogControls(False, False, False) + CreateStyleEnumeration() + 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 End If + EnableStep1DialogControls(True, True, True) ElseIf DialogModel.Step = 2 Then EnableStep2DialogControls(True) End If |