要求对某个Cell中符合条件的数据显示不同的颜色
解决方案 »
- 大家好,求助一个关于长时间鼠标键盘没有动作,再动作的时候弹出一个登录窗口的如何实现的问题啊
- 关于托盘图标显示的问题
- 求线程之间数据传递的解决方案,进者有分,在线等待!
- 高分求一段代码,十万火急,在线等.....
- 在线等!急!急! 谁有RS-232串号通信的Delphi源程序,分不够再加
- 关于自动注册mscomm.ocx?
- 如何在Delphi6中引用Word2000的文档资源?
- 关于Rxlib 2.75:我从csdn上下载的,在安装时遇到了问题,compling时有错.请问怎么回事?
- 怎样将幾個控件做成一個控件,就像PB中的類一樣,請高手解答??
- 怎么使用第三方控件,有高分
- 2000分分发:midas应用服务器设计<8>
- 急!关于treeview的问题?
if (ARow<>0) and (ACol=10) then
begin
if StgJG.Cells[10,ARow]='' then
exit;
case StgJG.Cells[10,ARow] of
条件1: StgJG.Canvas.Font.Color :=RGB(0,200,0);
条件2:StgJG.Canvas.Font.Color :=clRed;
条件3:StgJG.Canvas.Font.Color :=RGB(0,0,250);
条件3:StgJG.Canvas.Font.Color :=clBlack;
end;
StgJG.Canvas.FillRect(Rect);
DrawText(StgJG.Canvas.Handle,pChar(StgJG.Cells[ACol,ARow]),
Length(StgJG.Cells[ACol,ARow]),Rect,DT_Left);
因为我是用在关键词搜索中,从每个记录的每个字段中搜索出关键词,然后以突出的显示这个字段的值。