Colour selected row

[KaysarSoze]

Hello everyone

Is there a way to change the colour of the highlight bar and highlighted
text in a browser.

According to the Progress knowledgebase these aren't settable, as it is a
Windows setting (I
assume Selected Items on the Appearance tab in Display properties). But
isn't there a way to
change it just for the Progress session?

Any help would be greatly appreciated.

 

[BWelzen]

You can get the widget handle of the currently browsed column with:

h = <browse-handle>:GET-BROWSE-COLUMN(i)
where i is the number of the column.
By setting
h:FGCOLOR and h:BGCOLOR you can alter the color of this column

By using a small loop like
DO i = 1 to <browse-handle>:NUM-VISIBLE-COLUMNS:
H = <BROWSE-HANDLE>:GET-BROWSE-COLUMN(I).
H:FGCOLOR = <some color>.
H:BGCOLOR = <some color>.
END.
you alter the complete row.

Place this code in the VALUE-CHANGED trigger of the browse and use the SELF handle as <browse-handle> to change the color of each focused row.

Remember:
These settings will stay when you focus another row, so you have to remember the previous row and put the old colors back if you only want the focused row to change color.

 

[BWelzen]

And now readable

You can get the widget handle of the currently browsed column with:

h = browse-handle:GET-BROWSE-COLUMN(i)
where i is the number of the column.
By setting
h:FGCOLOR and h:BGCOLOR you can alter the color of this column

By using a small loop like
DO i = 1 to browse-handle:NUM-VISIBLE-COLUMNS:
H = BROWSE-HANDLE:GET-BROWSE-COLUMN(I).
H:FGCOLOR = some color.
H:BGCOLOR = some color.
END.
you alter the complete row.

Place this code in the VALUE-CHANGED trigger of the browse and use the SELF handle as browse-handle to change the color of each focused row.

Remember:
These settings will stay when you focus another row, so you have to remember the previous row and put the old colors back if you only want the focused row to change color.

 

[Jenie888]

Field Color

Or you could try doing a row-display trigger:

ASSIGN TableName.FieldName:FGCOLOR IN BROWSE myBrowser = 12.
ASSIGN TableName.Fieldname2:FGCOLOR IN BROWSE boptions = 12.