FWD » Core Development » User Interface

/*------------------------------------------------------------------------------

  height-chars-4070.p     FRAME HEIGHT-CHARS below the height its widgets need

  A frame with three fields on three rows is shown, then its HEIGHT-CHARS is set

  to 1.  OpenEdge raises warning 4070 ("Unable to set the HEIGHT of the FRAME

  fInfo too small to contain all visible widgets.") in an alert box.

  The heights before and after are written to height-chars-4070.log and shown

  at the end.

------------------------------------------------------------------------------*/

DEFINE VARIABLE cA      AS CHARACTER NO-UNDO LABEL "A" FORMAT "x(8)" INITIAL "first".

DEFINE VARIABLE cB      AS CHARACTER NO-UNDO LABEL "B" FORMAT "x(8)" INITIAL "second".

DEFINE VARIABLE cC      AS CHARACTER NO-UNDO LABEL "C" FORMAT "x(8)" INITIAL "third".

DEFINE VARIABLE dBefore AS DECIMAL   NO-UNDO.

DEFINE VARIABLE dAfter  AS DECIMAL   NO-UNDO.

DEFINE FRAME fInfo

   cA SKIP

   cB SKIP

   cC

   WITH SIDE-LABELS THREE-D.

/* warnings and errors go to an alert box, independent of the message area */

SESSION:SYSTEM-ALERT-BOXES = yes.

DISPLAY cA cB cC WITH FRAME fInfo.

dBefore = FRAME fInfo:HEIGHT-CHARS.

FRAME fInfo:HEIGHT-CHARS = 1.

dAfter = FRAME fInfo:HEIGHT-CHARS.

OUTPUT TO "height-chars-4070.log".

PUT UNFORMATTED "HEIGHT-CHARS before: " STRING(dBefore) " after: " STRING(dAfter) SKIP.

OUTPUT CLOSE.

MESSAGE "HEIGHT-CHARS before:" dBefore "after:" dAfter VIEW-AS ALERT-BOX.