Consultor Eletrônico



Kbase P118204: How to change the columns labels of a browse widget at run time?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   8/23/2006
Status: Unverified

GOAL:

How to change the columns labels of a browse widget at run time?

FIX:

Use code along the following lines:
DO:
DEFINE VARIABLE cLabelList AS CHARACTER NO-UNDO.
DEFINE VARIABLE iColumnIndex AS INTEGER NO-UNDO.
DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.
DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.

ASSIGN
cLabelList = "First,Second,Third"
hBrowse = BROWSE-1:HANDLE IN FRAME {&FRAME-NAME}.
DO iColumnIndex = 1 TO hBrowse:NUM-COLUMNS:
ASSIGN
hColumn = hBrowse:GET-BROWSE-COLUMN(iColumnIndex)
hColumn:LABEL = ENTRY(iColumnIndex, cLabelList).
END.
END.