Kbase P106169: How to add a top and a bottom blank stack levels to a browse column label?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
7/7/2005 |
|
Status: Unverified
GOAL:
How to add a top and a bottom blank stack levels to a browse column label?
FIX:
The following code adds a top and a bottom stack levels to all column labels of a given browse:
DO:
DEFINE VARIABLE cLabel AS CHARACTER NO-UNDO.
DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.
DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.
ASSIGN
hBrowse = BROWSE-1:HANDLE IN FRAME {&FRAME-NAME}
hColumn = hBrowse:FIRST-COLUMN.
DO WHILE VALID-HANDLE(hColumn):
cLabel = hColumn:LABEL.
hColumn:LABEL = CHR(32) + "!" + cLabel + "!" .
hColumn = hColumn:NEXT-COLUMN.
END.
END.