如题:
最近客户提出要求,要求将检索结果中所有记录内容中的关键字都高亮显示或不同颜色区分。
小弟在这里感谢各位的帮忙!!分不多,望谅解!
最近客户提出要求,要求将检索结果中所有记录内容中的关键字都高亮显示或不同颜色区分。
小弟在这里感谢各位的帮忙!!分不多,望谅解!
解决方案 »
- 第一次发帖,网络通讯稳定性,你们现在都用啥控件,如果有满意的Demo将再加100分
- 自定义图形控件开发的问题
- 重新开贴,关于C++代码转化为Delphi代码!
- 如何释放scrollbox上动态创建的一组按钮?
- 连接字符串属性无效 是什么意思?请指点!谢了.
- MIDAS三层结构中,在客户端新增记录没有显示在DBGrid,SQL2000数据库却有更新的记录.
- 为什么老是报stack overflow错误呀?真搞不懂!
- 基于广域网的连接远程数据库问题....(详看帖子内容)
- treeview,dbgrid的问题。
- 我在表中用APPEND增加记录~~但新增的记录会有几条不在最后~~为什么???
- 小明和小新各做了多少风筝
- 请教一个开发c/s程序的思路的问题,请指教
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var nCount, nUp, nDown:double;
function gcv(sField:String; ADefault:double=0):double; //取列的值
var col:TCxGridDBColumn;
begin
col:=vMain.GetColumnByFieldName(sField);
if not assigned(col) then result:=ADefault else result:=ARecord.Values[col.Index];
end;
begin
inherited;
if cbx_showStore.editValue='1' then exit; //如果显示仓库,则忽略此处理
//查找各数字
nCount:=gcv('nCount');
nUp:=gcv('nUpAlarm', 0); nDown:=gcv('nDownAlarm', 0);
if (nUp=0) and (nDown=0) then exit; //不需要
//颜色Spring Summer Autumn Winter
if (nUp<>0) and (nCount>nUp) then //超出上限
AStyle:=hot
else if (nDown<>0) and (nCount<nDown) then //低于下限
AStyle:=Cold;
end;
这样的话 如果输入汉字,那么获取的长度会超出一 半长度!!1