BUG: HalfHeightCaption Form Causes Small Empty Control Menu

RESOLUTION

Here are the two workarounds for this problem:

Method 1

Create the form using the following code example:

   PUBLIC oform  && If run from a program file.
   oform = CREATEOBJECT('form1')
   oform.Show()
 
   DEFINE CLASS form1 AS form
      ShowWindow = 2
      AutoCenter = .T.
      HalfHeightCaption = .T.
      Name = "Form1"
      Caption = "Form1"
   ENDDEFINE
				

Method 2

If the form is created with the Form Designer, place the following code in the Deactivate and Paint events of the form.

In the Deactivate event:

   DoDefault()
   IF Thisform.WindowState = 1
      Thisform.HalfHeightCaption = .F.
      Thisform.Icon = Thisform.Icon
   ENDIF
				

In the Paint event:

   IF Thisform.WindowState = 1
      Thisform.HalfHeightCaption = .F.
   ELSE
      Thisform.HalfHeightCaption = .T.
   ENDIF