From c5c1324a48d2f009a7d1961da8aa4186639f763a Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Thu, 18 Dec 2014 19:28:09 +0100
Subject: [PATCH] Changeset: 569 fdbozzo - 18/12/2014 01:07:14: - Salida del
 form Interactive con tecla Esc

---
 foxbin2prg.prg | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index d99f265..fb89d91 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -3256,6 +3256,7 @@ DEFINE CLASS frm_interactive AS form
 		Left = 12, ;
 		Top = 16, ;
 		Width = 356, ;
+		KeyPreview = .T., ;
 		Name = "lbl_Title"
 
 
@@ -3298,7 +3299,18 @@ DEFINE CLASS frm_interactive AS form
 	ENDPROC
 
 
-	PROCEDURE opg_conversiontype.InteractiveChange
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+
+		IF nKeyCode = 27 THEN
+			THISFORM.opg_ConversionType.Value = 3
+			THISFORM.Hide()
+			CLEAR EVENTS
+		ENDIF
+	ENDPROC
+
+
+	PROCEDURE opg_conversiontype.Click
 		*-- Selección
 		THISFORM.Hide()
 		CLEAR EVENTS