FWD » Core Development » User Interface

This issue started from searching for a testcase for #8015.

Found that the issue from #8015 is a particular one and there can be more cases.

• static widgets: ShowHide

  DEF VAR fill1 AS CHARACTER NO-UNDO.
  DEF BUTTON hidden_btn SIZE 4 BY .81.
  DEF BUTTON btn_disp SIZE 20 BY 1.
  DEFINE FRAME fmain
      fill1 AT ROW 2.71 COL 11.8 COLON-ALIGNED HELP
            "Cost centre" 
            LABEL "Cost centre" 
            VIEW-AS FILL-IN
            SIZE 13.2 BY 1 TOOLTIP "Cost centre" 
  
      hidden_btn AT ROW 2.86 COL 22.6  NO-TAB-STOP
      btn_disp AT ROW 6 COL 3 LABEL "display" 
      WITH 1 DOWN KEEP-TAB-ORDER SIDE-LABELS THREE-D NO-AUTO-VALIDATE
           AT COL 1 ROW 1 SCROLLABLE SIZE 50 BY 10.
  
  DEF VAR visible_fill_in AS LOGICAL NO-UNDO.
  fill1:HIDDEN                = TRUE.
  visible_fill_in = fill1:VISIBLE.
  fill1:VISIBLE               = TRUE.
  visible_fill_in = fill1:VISIBLE.
  
  FRAME fmain:HIDDEN          = TRUE.
  hidden_btn:HIDDEN           = TRUE.
  
  FRAME fmain:HIDDEN          = FALSE.
  ENABLE btn_disp WITH FRAME fmain.
  
  ON CHOOSE OF btn_disp DO:
      ENABLE fill1 WITH FRAME fmain.
      ENABLE hidden_btn WITH FRAME fmain.
  END.
  
  WAIT-FOR CLOSE OF CURRENT-WINDOW.
  

• dynamic widgets: ShowHide

  DEFINE VARIABLE hFrame AS HANDLE NO-UNDO.
  DEFINE VARIABLE hFill1 AS HANDLE NO-UNDO.
  DEFINE VARIABLE hHiddenBtn AS HANDLE NO-UNDO.
  DEFINE VARIABLE hBtnDisp AS HANDLE NO-UNDO.
  
  CREATE FRAME hFrame
      ASSIGN
          ROW = 1
          COL = 1
          WIDTH = 50
          HEIGHT = 10
          SIDE-LABELS = TRUE
          THREE-D = TRUE
          SCROLLABLE = TRUE
          HIDDEN = TRUE.
  
  CREATE FILL-IN hFill1
      ASSIGN
          FRAME = hFrame
          DATA-TYPE = "CHARACTER" 
          ROW = 2.71
          COL = 11.8
          WIDTH = 13.2
          HEIGHT = 1
          HIDDEN = TRUE.
  
  CREATE BUTTON hBtnDisp
      ASSIGN
          FRAME = hFrame
          ROW = 6
          COL = 3
          WIDTH = 20
          HEIGHT = 1
          LABEL = "display" 
          SENSITIVE = TRUE.
  
  CREATE BUTTON hHiddenBtn
      ASSIGN
          FRAME = hFrame
          ROW = 2.86
          COL = 20
          WIDTH = 4
          HEIGHT = 0.81
          HIDDEN = FALSE.
  
  hFill1:HIDDEN       = TRUE.
  hFill1:VISIBLE      = TRUE.
  hFrame:HIDDEN       = TRUE.
  hFrame:HIDDEN       = FALSE.
  hbtndisp:HIDDEN     = FALSE.
  
  ON CHOOSE OF hBtnDisp DO:
      hFill1:SENSITIVE = TRUE.
      hHiddenBtn:SENSITIVE = TRUE.
  END.
  
  WAIT-FOR CLOSE OF CURRENT-WINDOW.