BUG: Form Not Released When Focus on Grid and Modal Form Started (178666)

MORE INFORMATION

• A grid object does not have focus.
• The WindowType property of the form being instantiated, after release of the form containing the grid, is set to 0 - Modeless.

Steps to Reproduce Behavior

1. Create a form called gridfrm and place a grid object on the form.
2. Create a second form called modalfrm and set its WindowType property to 1 - Modal.
3. Add the following code to the forms Click event:

         =endjob()
   							

4. Create a program file named Norelease.prg using the following code:

         CLEAR
         SET SYSMENU TO
         SET SYSMENU AUTOMATIC
         DEFINE PAD modal_frm OF _MSYSMENU PROMPT "\<Modal Form" COLOR
         SCHEME 3 ;
         KEY ALT+M, ""
         DEFINE PAD exit_prg OF _MSYSMENU PROMPT "E\<xit" COLOR SCHEME 3 ;
         KEY ALT+X, ""
         ON SELECTION PAD modal_frm OF _MSYSMENU =runmodal()
         ON SELECTION PAD exit_prg OF _MSYSMENU =endjob()
         USE home()+"SAMPLES\DATA\CUSTOMER"
         DO FORM gridfrm
         READ EVENTS
         SET SYSMENU TO DEFAULT
         RETURN
   
         PROCEDURE closescreens
         IF _SCREEN.FORMCOUNT > 0
         FOR i = _SCREEN.FORMCOUNT TO 1 STEP -1
         _SCREEN.FORMS(i).RELEASE
         ENDFOR
         ENDIF
         RETURN
   
         PROCEDURE runmodal
         =closescreens()
         DO FORM modalfrm
         RETURN
   
         PROCEDURE endjob
         =closescreens()
         CLEAR EVENTS
         RETURN
   							

5. Run Norelease.prg.
6. Click the Modal Form menu item.