Consultor Eletrônico



Kbase P63366: How to populate a combo-box widget with the current 4GL session's printer names?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   4/10/2010
Status: Verified

GOAL:

How to populate a combo-box widget with the current 4GL session's printer names?

GOAL:

How to clear a combo box and populate it with new values.

GOAL:

How to blank a combo box.

FACT(s) (Environment):

Windows
Progress 9.x
OpenEdge 10.x

FIX:

The following code demonstrates how to populate a combo box with the current Progress 4GL session's printer names:


DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE c AS CHARACTER NO-UNDO.

ASSIGN
i = NUM-ENTRIES(SESSION:GET-PRINTERS())
SessionPrinterNames:LIST-ITEMS = "". /* clear the combo */

DO i = 1 TO NUM-ENTRIES(SESSION:GET-PRINTERS()):
c = ENTRY(i, SESSION:GET-PRINTERS()).
SessionPrinterNames:ADD-LAST(c).
END.