ondrawcolumncell(...)//在此事件中加入
begin
if 条件 then
dbgrid.canvas.font.color:=clred;
dbgrid.defaultdrawcolumncell(rect,datacol,column,state);
end;
begin
if 条件 then
dbgrid.canvas.font.color:=clred;
dbgrid.defaultdrawcolumncell(rect,datacol,column,state);
end;
解决方案 »
- 哪个哥哥能帮我把这段delphi代码转换成c++builder的代码?谢谢啦
- 看到好些管理员还是那些人,有点欢喜
- 入门问题:请问DELPHI7程序的运行过程是怎样的?(即程序开始到结束的流程是怎样的呢?)谢谢!
- 使用bsBusinessSkinForm碰到的问题?请大家帮忙?
- 我想监控我的网卡出入互联网的页面,记录下浏览的网页地址和时间,能说说原理吗
- realone player怎么切换左右声道?
- 问问这一个vb语句要怎么翻译成delphi的?
- 应该怎么做?怎样把一个全是数字组成的字符串中的数字提取到一个数组中?
- 请问如何在StringGrid中实现转行?急!急!急!
- 请教各大侠!我想把DBGrid的不能新增(插入)记录,例如按键盘上的上下键不能增加记录,但能修改(编辑)记录,
- 如何在TIMAGE控件中实现文字竖行输出?
- 关于TQuery 的问题
DBGrid1DrawDataCell 中添加:
procedure TF_xz_ffgz.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Tem_text:STring;
TEm_rect:Trect;
tem_str:string;
begin
Tem_str:=column.field.displaytext;
if Tem_str=条件 then begin
dbgrid1.canvas.brush.color:=clred;
end;
Tem_rect.Left:=Rect.Left-1;
Tem_Rect.Top:=Rect.Top-1;
Tem_Rect.bottom:=rect.Bottom+1;
Tem_Rect.Right:=rect.Right+1;
if Gdselected in state then begin
Dbgrid1.Canvas.Brush.Color:=clhighlight;
Dbgrid1.Canvas.Font.Color:=Clhighlighttext;
end;
Dbgrid1.Canvas.Textrect(rect,rect.left,rect.top,Tem_text);
dbgrid1.canvas.drawfocusrect(Tem_rect);
end;
其中的所有颜色仅做参考,可以实际添加,若不行,请直接和我联系,保证你可以得到所有的想要的类型的表格
if (TDBGrid(Sender).DataSource.DataSet.FieldByName('商品单价').AsFloat < 0 { 行的条件 })
and (DataCol = 1 { 列的条件 }) then TDBGrid(Sender).Canvas.Brush.Color := clRed { 想要的颜色 }
else TDBGrid(Sender).Canvas.Brush.Color := TDBGrid(Sender).Color; { 原来的颜色 }
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//我已经调试成功了!
if (TDBGrid(Sender).DataSource.DataSet.FieldByName('商品单价').AsFloat < 0 { 行的条件 })
and (DataCol = 1 { 列的条件 }) then TDBGrid(Sender).Canvas.Brush.Color := clRed { 想要的颜色 }
else TDBGrid(Sender).Canvas.Brush.Color := TDBGrid(Sender).Color; { 原来的颜色 }
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;