Kbase P18651: How to dynamically add a field into a Frame?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
9/5/2008 |
|
Status: Unverified
GOAL:
How to dynamically add a field into a Frame?
FACT(s) (Environment):
Products / Versions
All Supported Operating Systems
OpenEdge Category: Language (4GL/ABL)
FIX:
DO:
DEFINE VARIABLE hFillIn AS HANDLE NO-UNDO.
DEFINE VARIABLE hLabel AS HANDLE NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE FRAME fr WITH 5 DOWN WIDTH 25.
REPEAT i = 1 TO 5:
CREATE TEXT hLabel
ASSIGN ROW = i
WIDTH = 8
VISIBLE = TRUE
FRAME = FRAME fr:HANDLE.
CREATE FILL-IN hFillIn
ASSIGN ROW = i
COL = hLabel:WIDTH + hLabel:COL + 1
NAME = "fillin " + STRING(i)
FRAME = FRAME fr:HANDLE
SENSITIVE = TRUE
VISIBLE = TRUE
SIDE-LABEL-HANDLE = hLabel:HANDLE
LABEL = "Label " + STRING(i).
END.
ENABLE ALL WITH FRAME fr.
END.