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