紧急求救！！如何给DBGrid的行画不同的颜色（根据某一个字段的值）

[558047]

根据某一个字段的值，如何给DBGrid的行画上不同的颜色？

[xuby5228]

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if (((TDBGrid*)Sender)->DataSource->DataSet->Fields->Fields[0]->AsString.SubString(1, 1) == "A")
{
((TDBGrid*)Sender)->Canvas->Brush->Color=clRed;
}
else
{
((TDBGrid*)Sender)->Canvas->Brush->Color=clBlue;
}
((TDBGrid*)Sender)->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}

不就是行的背景变色吗？

[Santos]

来晚了，同意楼上

[yeking]

调用
DBGrid1DrawColumnCell事件

[558047]

但是具体怎么写语句？

[lvjack]

请教dbgrid的行颜色控制的问题
主要解答者: Libran 提交人: seehere
感谢: wx_zfjacky、Libran、szbug
审核者: xpyilin 论坛对应贴子: 查看
A :

我的dbgrid是这样的

施工号 工序1 工序2 …… 工序20 完成的工序数目
4-56 车30 钻5 …… 2

对每一行记录进行颜色控制，假如该行完成的工序数目是1，则该行
只有工序1的字体变为红色；假如该行完成的工序数目是2，则该行
工序1和工序2的字体变为红色；依次类推。

请问怎么用程序实现阿（DrawCollumCell函数中写）
---------------------------------------------------------------

void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,
const TRect &Rect, TField *Field, TGridDrawState State)
{
int Count;
Count=Table1->FieldByName("完成的工序数目")->AsData;
if (int i=0;i<Count;i++)
{
DBGrid1->Fields->FieldNo=i;
DBGrid1->Canvas->Font->Color = clRed;
}
DBGrid1->DefaultDrawDataCell(Rect, Field, State);

}
---------------------------------------------------------------

假设字段"工序1"在DataSet的Fields中的Index值为fIndex：
void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,
const TRect &Rect, TField *Field, TGridDrawState State)
{
TDBGrid *dbgrid = ((TDBGrid *)Sender);
TDataSet *dataset = dbgrid->DataSource->DataSet;
static int count = 0;
if (Column->Index == 0)
count = dataset->FieldByName("完成的工序数目")->AsInteger;
if (Column->Field->Index >= fIndex &&
Column->Field->Index < fIndex + count)
dbgrid->Canvas->Font->Color = clRed;
else dbgrid->Canvas->Font->Color = clBlack;
dbgrid->DefaultDrawDataCell(Rect, Field, State);
}

---------------------------------------------------------------

试试这个。。。
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if (((TDBGrid*)Sender)->DataSource->DataSet->Fields->Fields[0]->AsString.SubString(1, 1) == "A")
{
((TDBGrid*)Sender)->Canvas->Brush->Color=clRed;
}
else
{
((TDBGrid*)Sender)->Canvas->Brush->Color=clBlue;
}
((TDBGrid*)Sender)->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}

[558047]

不是要字体变颜色，而是要行的背景变色