summaryrefslogtreecommitdiff
path: root/wizards/source/schedule/DlgControl.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/schedule/DlgControl.xba')
-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
' oStatusLine.SetText("Position: " & aEvent.X & " ; " & 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("lstHolidays").SelectItemPos(ListIndex, True)
End If
End Select
@@ -69,7 +69,7 @@ Dim ListIndex as Integer
Select Case sCurLangLocale
Case cLANGUAGE_GERMAN
If aEvent.ClickCount >= 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("lstHolidays").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