在SQL 2000 数据库中有一个字段(审核状态)。在stringgrid显示时,当审核状态为‘未审核’是为红色,当审核状态为‘已审核’是为绿色
如果有代码请贴出代码。。谢谢!
在线求高手急。急 急 急
如果有代码请贴出代码。。谢谢!
在线求高手急。急 急 急
解决方案 »
- 新手上路,遇到两个串口通信的问题,请大家指点,谢谢!
- 有没有 RemObjects Pascal Script 或者 Innerfuse Pascal Script 的中文使用说明?
- 项目文件问题?
- 求一查询语句,急,高手来救命啊!!!
- 帮忙修改一下此函数中的错误,不甚感激
- 简单问题有高分,怎样实现自定义记录从文件写入/读取
- 那里有跟操作“DateTimePicker“一样的能操作“时间的“ 控件
- 为什么在SQL Explorer中的中文显示是正常的,而在BDE Administrator中是乱码?在线!
- delphi中的字体问题
- 关于try…except的问题!
- delphi adoquery update无法更新定位行,一些值可能已在最后一次读取后被更改
- 内存流读写字符问题
if StringGrid1.Cells[ACol,ARow]='未审核' then
StringGrid1.Canvas.Brush.Color :=clRed
else if StringGrid1.Cells[ACol,ARow]='已审核' then
StringGrid1.Canvas.Brush.Color :=clGreen;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do
begin
if ACol=5 then {5表示"审核"这一列;如果要整行变色,就去掉这一句}
begin
if Cells[ARow,ACol]='未审核' then {ACol->5}
Canvas.Brush.Color:=clRed
else
Canvas.Brush.Color:=clGreen; Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
end;
end;
end;