Changeset: 569 fdbozzo - 18/12/2014 01:07:14:

- Salida del form Interactive con tecla Esc

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<63>n
 		THISFORM.Hide()
 		CLEAR EVENTS