From 1de93f70da38ec55bb704be3c88b48811f1a6b95 Mon Sep 17 00:00:00 2001 From: Vladimir Glazounov Date: Wed, 17 Dec 2003 12:19:45 +0000 Subject: 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 --- wizards/source/schedule/DlgControl.xba | 7 ++++--- 1 file 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 \ No newline at end of file +End Sub + \ No newline at end of file -- cgit v1.2.1