怎么样让DBGrid变颜色,比如我设置一个字段是为假与真,如果输入的数据是真,那整条数据都是红色,反之蓝色
解决方案 »
- 关于DELPHI5多线程同步的问题
- 菜鸟要学DELPHI
- 新建 程序员QQ群 ( 48203007 ) ,男女不限话题无限,欢迎大家加入!
- DELPHI +SQL SERVER2000 数据库备恢复的问题
- 大家来帮我看看这个程序错再哪了(简单程序)?
- 简单问题:怎么把access数据库某个字段的内容无重复的显示出来?
- delphi如何封装WinHttp.WinHttpRequest的事件
- 请问CORBA对象能在广域网中用吗?
- 怎样在文本框里显示小数,类型怎么转换?
- 简单会议通知系统,cs架构的,用什么语言比较方便,java?delphi?
- 调查:你们都是怎么样将树形结构存储在数据表中的?
- 请教一个问题
PB的DW真是他妈的B强!!!
如果谁有9版的下载..我给.....10分..呵呵..全部的了啦..没办法..
MSN:[email protected]
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
with DBGrid1 do
begin
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
Canvas.Font.Color :=ClYellow;
Canvas.Brush.Color :=ClNavy;
end
else
begin
if dmmain.ADOQKhsf.FieldByName('khdm').AsString ='合计' then
begin
canvas.font.color:=clblue;
Canvas.Brush.Color :=ClYellow;//你自己定
end;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);// 这行很关键的,一定不要遗漏了
end;end;