Kbase 19778: How to Dynamically Create a Combo-Box with List-Item-Pairs
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
7/8/2008 |
|
Status: Verified
GOAL:
How to create a dynamic combo-box with list-item-pairs attribute in Progress
GOAL:
How to dynamic create a combo-box to use list-item-pairs
FACT(s) (Environment):
All Supported Operating Systems
Progress 9.x
OpenEdge 10.x
FIX:
DEFINE VARIABLE cmb1 AS HANDLE NO-UNDO.
DEFINE VARIABLE btnDsp AS HANDLE NO-UNDO.
DEFINE VARIABLE btnBld AS HANDLE NO-UNDO.
DEFINE VARIABLE intvar AS INTEGER NO-UNDO.
DISPLAY "Dynamic Combo-box Example" WITH FRAME X WITH WIDTH 120 DOWN.
CREATE COMBO-BOX cmb1
ASSIGN ROW = 3
COLUMN = 5
INNER-LINES = 5
FRAME = FRAME X:HANDLE
SENSITIVE = TRUE
VISIBLE = TRUE.
ASSIGN cmb1:LIST-ITEM-PAIRS = "" NO-ERROR.
CREATE BUTTON btnDsp
ASSIGN ROW = 7
COLUMN = 10
LABEL = "Display Value"
FRAME = FRAME X:HANDLE
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON CHOOSE
DO:
MESSAGE cmb1:screen-value VIEW-AS ALERT-BOX.
END.
END TRIGGERS.
CREATE BUTTON btnBld
ASSIGN ROW = 3
COLUMN = 20
LABEL = "Build List"
FRAME = FRAME X:HANDLE
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON CHOOSE
DO:
DO intVar = 1 TO 3:
cmb1:ADD-LAST("val " + STRING( intVar),string(intVar)).
END.
END.
END TRIGGERS.
WAIT-FOR window-close OF CURRENT-WINDOW.