diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2003-12-17 12:19:45 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2003-12-17 12:19:45 +0000 |
| commit | 1de93f70da38ec55bb704be3c88b48811f1a6b95 (patch) | |
| tree | 203aa89d45d34b0388a6a5a77d9d66c5326627eb /wizards | |
| parent | 58c1792d8a2406d77b82355c4991916a0defe774 (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.xba | 7 |
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 |