Allow "Space" key to trigger OK button on dialogs

...same as the "Enter" key.

Relates to #566.  Thank you to @dbojan for the suggestion!

Author: tannerhelland

Classes/pdObjectList.cls

@@ -630,7 +630,7 @@ End Function
 Private Function HandleMsg_WM_KEYDOWN(ByVal hWnd As Long, ByVal uiMsg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal dwRefData As Long, ByRef eatMsg As Boolean) As Long
 
     'The only keypresses we currently care about are ENTER and ESCAPE
-    If (wParam = pdnk_Enter) Or (wParam = pdnk_Escape) Then
+    If (wParam = pdnk_Enter) Or (wParam = pdnk_Escape) Or (wParam = pdnk_Space) Then
 
         'See if this form 1) is a raised dialog, and 2) contains a command bar
         If Interface.IsModalDialogActive() Then

Classes/pdUCSupport.cls

@@ -837,7 +837,7 @@ Private Sub m_KeyEvents_KeyDownCustom(ByVal Shift As ShiftConstants, ByVal vkCod
 
     'Handle navigation keys separately (unless the keypress was already eaten by the attached control)
     If (Not markEventHandled) And m_ControlCanGetFocus Then
-        If (vkCode = pdnk_Enter) Or (vkCode = pdnk_Escape) Or (vkCode = pdnk_Tab) Then RaiseEvent KeyDownSystem(Shift, vkCode, markEventHandled)
+        If (vkCode = pdnk_Enter) Or (vkCode = pdnk_Escape) Or (vkCode = pdnk_Space) Or (vkCode = pdnk_Tab) Then RaiseEvent KeyDownSystem(Shift, vkCode, markEventHandled)
     End If
 
 End Sub

Controls/pdCommandBar.ctl

@@ -919,8 +919,8 @@ Private Sub ucSupport_CustomMessage(ByVal wMsg As Long, ByVal wParam As Long, By
 
         'This is a relevant navigation key!
 
-        'Interpret Enter as OK...
-        If (wParam = pdnk_Enter) Then
+        'Interpret Enter or Space as OK...
+        If (wParam = pdnk_Enter) Or (wParam = pdnk_Space) Then
             HandleOKButton
             bHandled = True
 
@@ -941,8 +941,8 @@ End Sub
 'If the command bar itself has focus, manually handle Enter/Esc as OK/Cancel events
 Private Sub ucSupport_KeyDownSystem(ByVal Shift As ShiftConstants, ByVal whichSysKey As PD_NavigationKey, markEventHandled As Boolean)
 
-    'Interpret Enter as OK...
-    If (whichSysKey = pdnk_Enter) Then
+    'Interpret Enter or Space as OK...
+    If (whichSysKey = pdnk_Enter) Or (whichSysKey = pdnk_Space) Then
         markEventHandled = True
         HandleOKButton
 

Controls/pdCommandBarMini.ctl

@@ -256,8 +256,8 @@ Private Sub ucSupport_CustomMessage(ByVal wMsg As Long, ByVal wParam As Long, By
 
         'This is a relevant navigation key!
 
-        'Interpret Enter as OK...
-        If (wParam = pdnk_Enter) Then
+        'Interpret Enter or Space as OK...
+        If (wParam = pdnk_Enter) Or (wParam = pdnk_Space) Then
             HandleOKButton
             bHandled = True
 
@@ -278,8 +278,8 @@ End Sub
 'If the command bar itself has focus, manually handle Enter/Esc as OK/Cancel events
 Private Sub ucSupport_KeyDownSystem(ByVal Shift As ShiftConstants, ByVal whichSysKey As PD_NavigationKey, markEventHandled As Boolean)
 
-    'Interpret Enter as OK...
-    If (whichSysKey = pdnk_Enter) Then
+    'Interpret Enter or Space as OK...
+    If (whichSysKey = pdnk_Enter) Or (whichSysKey = pdnk_Space) Then
         markEventHandled = True
         HandleOKButton
 

Modules/NavKey.bas

@@ -194,7 +194,7 @@ Public Function NotifyNavKeypress(ByRef childObject As Object, ByVal navKeyCode
 
         'For Enter and Esc keypresses, we want to see if the target form contains a command bar.  If it does,
         ' we'll directly invoke the appropriate keypress.
-        If (navKeyCode = pdnk_Enter) Or (navKeyCode = pdnk_Escape) Then
+        If (navKeyCode = pdnk_Enter) Or (navKeyCode = pdnk_Escape) Or (navKeyCode = pdnk_Space) Then
 
             'See if this form 1) is a raised dialog, and 2) contains a command bar
             If Interface.IsModalDialogActive() Then

Modules/PublicEnumsAndTypes.bas

@@ -714,11 +714,12 @@ End Type
 Public Enum PD_NavigationKey
     pdnk_Enter = vbKeyReturn
     pdnk_Escape = vbKeyEscape
+    pdnk_Space = vbKeySpace
     pdnk_Tab = vbKeyTab
 End Enum
 
 #If False Then
-    Private Const pdnk_Enter = vbKeyReturn, pdnk_Escape = vbKeyEscape, pdnk_Tab = vbKeyTab
+    Private Const pdnk_Enter = vbKeyReturn, pdnk_Escape = vbKeyEscape, pdnk_Space = vbKeySpace, pdnk_Tab = vbKeyTab
 #End If
 
 'Prior to 7.0, only selections offered detailed control over smoothing.  However, new tools (like flood fills)

PhotoDemon.vbp

@@ -527,7 +527,7 @@ Description="PhotoDemon Photo Editor"
 CompatibleMode="0"
 MajorVer=2024
 MinorVer=8
-RevisionVer=6
+RevisionVer=7
 AutoIncrementVer=1
 ServerSupportFiles=0
 VersionComments="Copyright 2000-2024 Tanner Helland - photodemon.org"