diff options
Diffstat (limited to 'wizards/source/access2base/Event.xba')
-rw-r--r-- | wizards/source/access2base/Event.xba | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/wizards/source/access2base/Event.xba b/wizards/source/access2base/Event.xba index 73bcd8222546..ddf37aac3da4 100644 --- a/wizards/source/access2base/Event.xba +++ b/wizards/source/access2base/Event.xba @@ -404,12 +404,13 @@ Dim sXPos As String, sYPos As String sXPos = Iif(IsNull(_XPos), "", "XPos") sYPos = Iif(IsNull(_YPos), "", "YPos") - _PropertiesList = Utils._TrimArray("ButtonLeft", "ButtonRight", "ButtonMiddle", "ClickCount" _ + _PropertiesList = Utils._TrimArray(Array( _ + "ButtonLeft", "ButtonRight", "ButtonMiddle", "ClickCount" _ , "ContextShortcut", "EventName", "EventType", "FocusChangeTemporary", _ , "KeyAlt", "KeyChar", "KeyCode", "KeyCtrl", "KeyFunction", "KeyShift" _ , "ObjectType", "Recommendation", "RowChangeAction", "Source" _ , sSubComponentName, sSubComponentType, sXPos, sYPos _ - ) + )) End Function ' _PropertiesList |