Colors 如何在自由形式查询中更改/为字段/单元格/行/列分配BGCOLOR
我正在使用一个自由形式的查询来填充临时表字段。我可以微调宽度,但无法为字段/单元格/行/列指定颜色。如何分配颜色?您需要一个“行显示触发器”来配合您的浏览小部件。比如:Colors 如何在自由形式查询中更改/为字段/单元格/行/列分配BGCOLOR,colors,progress-4gl,openedge,Colors,Progress 4gl,Openedge,我正在使用一个自由形式的查询来填充临时表字段。我可以微调宽度,但无法为字段/单元格/行/列指定颜色。如何分配颜色?您需要一个“行显示触发器”来配合您的浏览小部件。比如: on row-display of f anywhere do: if "{&window-system}" = "tty" then columnHandle:dcolor = getColorNum( "red" ). else columnHandle:fgcolor = getCol
on row-display of f anywhere do:
if "{&window-system}" = "tty" then
columnHandle:dcolor = getColorNum( "red" ).
else
columnHandle:fgcolor = getColorNum( "red" ).
return.
end.
类似这样的内容对于获取columnHandle可能很方便:
function getBrowseColumnByName returns handle ( z as handle, n as character ):
define variable c as handle no-undo.
c = z:first-column.
do while valid-handle( c ):
if c:name = n then
leave.
else
c = c:next-column.
end.
return c.
end.
谢谢你的回答。我还做了一个变通办法,问了一位同事,找到了一个不同的答案 在“自由形式查询的显示触发器”下
tt-table COLUMN-FGCOLOR 15 COLUMN-BGCOLOR 3.