try to catch escape key when cell is in editing mode using set shortc…

…ut in a button
4d · Nov 21, 2024 · 0a2a12f · 0a2a12f
1 parent 06a8e67
commit 0a2a12f
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 9 deletions.
diff --git a/Project/Sources/Forms/%25report/method.4dm b/Project/Sources/Forms/%25report/method.4dm
@@ -71,7 +71,10 @@ Case of
 
 				If (Num:C11($form_event.column)>1)
 
-					CALL FORM:C1391(Current form window:C827; "do_enable_object"; "trap_escape"; True:C214)
+					//CALL FORM(Current form window; "do_enable_object"; "trap_escape"; True)
+
+					CALL FORM:C1391(Current form window:C827; "do_set_shortcut"; "trap_escape"; Shortcut with Escape:K75:20)
+
 
 				End if 
 
@@ -92,8 +95,9 @@ Case of
 				If (Num:C11($form_event.column)>1)
 
 
-					CALL FORM:C1391(Current form window:C827; "do_enable_object"; "trap_escape"; False:C215)
+					//CALL FORM(Current form window; "do_enable_object"; "trap_escape"; False)
 
+					CALL FORM:C1391(Current form window:C827; "do_set_shortcut"; "trap_escape")
 
 				End if 
 

diff --git a/Project/Sources/Forms/NQR/form.4DForm b/Project/Sources/Forms/NQR/form.4DForm
@@ -593,7 +593,7 @@
 					"width": 150,
 					"height": 34,
 					"sizingY": "move",
-					"shortcutKey": "[Esc]",
+					"shortcutKey": "",
 					"shortcutAccel": false,
 					"text": "trap-escape",
 					"focusable": false,
@@ -793,12 +793,10 @@
 	},
 	"geometryStamp": 159,
 	"editor": {
-		"activeView": "Area",
+		"activeView": "Toolbar",
 		"defaultView": "Toolbar",
 		"views": {
-			"Toolbar": {
-				"visible": false
-			},
+			"Toolbar": {},
 			"fieldList": {
 				"visible": false,
 				"objects": [
@@ -852,6 +850,7 @@
 				]
 			},
 			"Area": {
+				"visible": false,
 				"objects": [
 					"myQR"
 				]

diff --git a/Project/Sources/Methods/do_enable_object.4dm b/Project/Sources/Methods/do_enable_object.4dm
@@ -2,4 +2,5 @@
 #DECLARE($name : Text; $enabled : Boolean)
 
 //OBJECT SET VISIBLE(*; $name; $enabled)
+
 OBJECT SET ENABLED:C1123(*; $name; $enabled)
diff --git a/Project/Sources/Methods/do_set_shortcut.4dm b/Project/Sources/Methods/do_set_shortcut.4dm
@@ -0,0 +1,8 @@
+//%attributes = {"invisible":true,"preemptive":"incapable"}
+#DECLARE($name : Text; $shortcut : Text; $modifiers : Integer)
+
+
+$shortcut:=Count parameters:C259>1 ? $shortcut : ""
+$modifiers:=Count parameters:C259>2 ? $modifiers : 0
+
+OBJECT SET SHORTCUT:C1185(*; $name; $shortcut; $modifiers)
diff --git a/Project/Sources/settings.4DSettings b/Project/Sources/settings.4DSettings
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="UTF-8"?><preferences stamp="2855">
+<?xml version="1.0" encoding="UTF-8"?><preferences stamp="2856">
 	<com.4d>
 		<general execute_host_database_event="true"/>
 		<compiler>
@@ -18,7 +18,7 @@
 		</web>
 		<interface>
 			<shortcuts>
-				<cancel_input_form alt="false" command="false" ctrl="false" key_code="0" shift="false"/>
+				<cancel_input_form alt="false" command="false" ctrl="false" key_code="13595" shift="false"/>
 				<accept_input_form alt="false" command="false" ctrl="false" key_code="0" shift="false"/>
 				<add_subform alt="false" command="false" ctrl="false" key_code="0" shift="false"/>
 			</shortcuts>
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,4 +2,5 @@
		#DECLARE($name : Text; $enabled : Boolean)

		//OBJECT SET VISIBLE(*; $name; $enabled)

		OBJECT SET ENABLED:C1123(*; $name; $enabled)