COLUMN-BGCOLOR IN BROWSE

/******************** STATEMENTS**************************************
**
** coluna-1-do-browse:COLUMN-BGCOLOR IN BROWSE browse-1 = n
** Define a cor da letra em uma determi-
** nada coluna do BROWSE.
**
** LABEL "label-1":C (DEFINE BROWSE...)
** Centraliza um label em uma coluna
** do browse.
**
**********************************************************************/

Código:

DEFINE QUERY q-cust FOR customer SCROLLING.
DEFINE BROWSE b-cust QUERY q-cust 
       DISPLAY customer.cust-num LABEL "Codigo":C
               customer.name     LABEL "Nome":C
               customer.city     LABEL "Cidade":C
       WITH 10 DOWN WIDTH 42 SEPARATORS 
       TITLE "Clientes".
       
DEFINE FRAME f-cust
       b-cust   
       WITH SIDE-LABELS AT ROW 2 COLUMN 10 NO-BOX.
       
ASSIGN 
   customer.cust-num:COLUMN-BGCOLOR IN BROWSE b-cust = 15 
   customer.cust-num:COLUMN-FGCOLOR IN BROWSE b-cust = 4.

       
OPEN QUERY q-cust FOR EACH customer NO-LOCK.

ENABLE ALL WITH FRAME f-cust.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.