Coloured Rows on Dynamic Browse

[Norman Biggar]

IT'S OK. I'VE SOLVED IT - KB21024

I have a dynamic temp table populating a dynamic browse. I want to colour the rows depending on a field on the temp table.

For static, I can use, in the ROW-DISPLAY trigger

IF tt-Tab.Deleted THEN
ASSIGN tt-Tab.Description:FGCOLOR IN BROWSE {&BROWSE-NAME} = 8.


So far, for the dynamic, I have

CREATE BROWSE hBrowse
ASSIGN hParent = FRAME {&FRAME-NAME}:FIRST-CHILD
..........
TRIGGERS:
ON ROW-DISPLAY PERSISTENT RUN p-Row_Display IN THIS-PROCEDURE.
END TRIGGERS.

PROCEDURE p-Row_Display:
DEF VAR hField AS HANDLE NO-UNDO.
ASSIGN hField = hDefBuffer:BUFFER-FIELD("Deleted").
IF hField:BUFFER-VALUE EQ TRUE THEN
???????????????????????
END PROCEDURE.

What do I need?

 

[cybvek]

The anwser is that KB.

When you create the column you save the return handle:

bchandle =
Browse-Hndl:ADD-LIKE-COLUMN(bh:BUFFER-FIELD("state")).

in the display proc:

DEFINE VARIABLE hField AS HANDLE NO-UNDO.
ASSIGN hField = bh:BUFFER-FIELD("State").
IF hField:BUFFER-VALUE EQ "MA" THEN
DO:
bchandle:FGCOLOR = 2.
bchandle:BGCOLOR = 15.
END.
ELSE DO:
bchandle:FGCOLOR = 3.
bchandle:BGCOLOR = 13.
END.

Regards,

Viktor

Originally posted by Norman Biggar
IT'S OK. I'VE SOLVED IT - KB21024

I have a dynamic temp table populating a dynamic browse. I want to colour the rows depending on a field on the temp table.

For static, I can use, in the ROW-DISPLAY trigger

IF tt-Tab.Deleted THEN
ASSIGN tt-Tab.Description:FGCOLOR IN BROWSE {&BROWSE-NAME} = 8.


So far, for the dynamic, I have

CREATE BROWSE hBrowse
ASSIGN hParent = FRAME {&FRAME-NAME}:FIRST-CHILD
..........
TRIGGERS:
ON ROW-DISPLAY PERSISTENT RUN p-Row_Display IN THIS-PROCEDURE.
END TRIGGERS.

PROCEDURE p-Row_Display:
DEF VAR hField AS HANDLE NO-UNDO.
ASSIGN hField = hDefBuffer:BUFFER-FIELD("Deleted").
IF hField:BUFFER-VALUE EQ TRUE THEN
???????????????????????
END PROCEDURE.

What do I need?