summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2003-12-17 12:19:45 +0000
committerVladimir Glazounov <vg@openoffice.org>2003-12-17 12:19:45 +0000
commit1de93f70da38ec55bb704be3c88b48811f1a6b95 (patch)
tree203aa89d45d34b0388a6a5a77d9d66c5326627eb /wizards
parent58c1792d8a2406d77b82355c4991916a0defe774 (diff)
INTEGRATION: CWS extras11 (1.20.92); FILE MERGED
2003/10/07 10:03:35 bc 1.20.92.1: #112505# retrieval of german states now improved
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/schedule/DlgControl.xba7
1 files changed, 4 insertions, 3 deletions
diff --git a/wizards/source/schedule/DlgControl.xba b/wizards/source/schedule/DlgControl.xba
index 275e507fa241..b7a7c4c957ae 100644
--- a/wizards/source/schedule/DlgControl.xba
+++ b/wizards/source/schedule/DlgControl.xba
@@ -57,7 +57,7 @@ Dim ListIndex as Integer
Case cLANGUAGE_GERMAN
If bSelectByMouseMove Then
&apos; oStatusLine.SetText(&quot;Position: &quot; &amp; aEvent.X &amp; &quot; ; &quot; &amp; aEvent.Y)
- ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor), Land$)
+ ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor))
DlgCalendar.GetControl(&quot;lstHolidays&quot;).SelectItemPos(ListIndex, True)
End If
End Select
@@ -69,7 +69,7 @@ Dim ListIndex as Integer
Select Case sCurLangLocale
Case cLANGUAGE_GERMAN
If aEvent.ClickCount &gt;= 1 Then
- ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor), Land$)
+ ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor))
DlgCalendar.GetControl(&quot;lstHolidays&quot;).SelectItemPos(ListIndex, True)
bSelectByMouseMove = False
End If
@@ -144,4 +144,5 @@ Dim DateStr as String
End If
End If
End With
-End Sub</script:module> \ No newline at end of file
+End Sub
+</script:module> \ No newline at end of file