strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS extras11 (1.20.92); FILE MERGED

Browse source 
2003/10/07 10:03:35 bc 1.20.92.1: #112505# retrieval of german states now improved
This commit is contained in:
Vladimir Glazounov 2003-12-17 12:19:45 +00:00
parent 58c1792d8a
commit 1de93f70da
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
wizards/source/schedule/DlgControl.xba
View file

@ -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>
End Sub
</script:module>