Add B4XPage_KeyPress for B4A

Author: pyhoon

B4A/$APPNAME$.b4a

@@ -51,7 +51,11 @@ Sub Activity_ActionBarHomeClick
 End Sub
 
 Sub Activity_KeyPress (KeyCode As Int) As Boolean
-	Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
+	If KeyCode = KeyCodes.KEYCODE_BACK Then
+		Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
+	End If
+	B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "B4XPage_KeyPress", Array(KeyCode))
+	Return False
 End Sub
 
 Sub Activity_Resume

B4A/Objects/res/drawable/icon.png

@@ -31,4 +31,27 @@ End Sub
 
 Private Sub Button1_Click
 	xui.MsgboxAsync("Hello world!", "B4X")
-End Sub
+End Sub
+
+#If B4A
+Private Sub B4XPage_KeyPress (KeyCode As Int) As Boolean 'ignore
+	Select KeyCode
+		Case KeyCodes.KEYCODE_BACK
+			'code to handle back key
+		Case KeyCodes.KEYCODE_VOLUME_DOWN, KeyCodes.KEYCODE_VOLUME_UP
+			'code to handle volume keys
+		Case KeyCodes.KEYCODE_MEDIA_PLAY_PAUSE
+			'code to handle media button
+		Case Else
+			Return False 'Pass to Android System
+	End Select
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	'If Drawer.LeftOpen Then
+	'	Drawer.LeftOpen = False
+	'	Return False
+	'End If
+	Return True
+End Sub
+#End If