Progress - Cambiar color de la fila seleccionada en un browse

Hola, puedo cambiar fácilmente el color de una fila, según cierta condición, en ROW-DISPLAY.

Hasta ahí todo bien pero necesito además cambiar los colores de la fila actualmente seleccionada, ¿es eso posible?

Tenemos Progress 9.1C sobre Windows XP.

Hola.

Pon este código en el main-block. Supone que tu browse se llama browse-1, sino, cambia donde diga browse-1 por el nombre que corresponda.
Puedes cambiar el valor de los colores y si lo usas como incluido, entonces te puede servir para n programas.

DEF VAR t_col_br AS INT NO-UNDO INITIAL 11.
DEF VAR t_col_eti AS INT NO-UNDO INITIAL 10.

DEF VAR t_celda_br AS WIDGET-HANDLE EXTENT 15 NO-UNDO.
DEF VAR t_cual_celda AS WIDGET-HANDLE NO-UNDO.
DEF VAR t_n_cols_browse AS INT NO-UNDO.
DEF VAR t_col_act AS INT NO-UNDO.

ON ROW-DISPLAY OF browse-1
DO:
IF CURRENT-RESULT-ROW("browse-1") / 2 <> INT (CURRENT-RESULT-ROW("browse-1") / 2) THEN RETURN.
DO t_col_act = 1 TO t_n_cols_browse.
t_cual_celda = t_celda_br[t_col_act].
t_cual_celda:BGCOLOR = t_col_br.
END.
END.
DO t_n_cols_browse = 1 TO browse-1:NUM-COLUMNS.
t_celda_br[t_n_cols_browse] = browse-1:GET-BROWSE-COLUMN(t_n_cols_browse).
t_cual_celda = t_celda_br[t_n_cols_browse].
t_cual_celda:LABEL-BGCOLOR = t_col_eti.
IF t_n_cols_browse = 15 THEN LEAVE.
END.
t_n_cols_browse = browse-1:NUM-COLUMNS.
IF t_n_cols_browse > 15 THEN t_n_cols_browse = 15.

¡Muchas gracias!

Probaré el código hoy mismo.

Excelente aporte, probado y funcional el codigo como incluido