假如DBGridEH裡邦定的數據如下:
客戶編號 貨單編號 01 02 03 04 05
AT001 TMS1056AD A-a C-d D-a F-b D-d
AT002 FEO1138DD B-c R-c NULL NULL NULL
AT005 TTD1247FF D-c E-a E-d E-p NULL
AT180 PEA1048 F-a F-b F-t NULL NULL
AT192 MNW1289DD E-b NULL NULL NULL NULL
用DBGridEh顯示出來,如何讓AT001第一行記錄裡的C-d顯示為紅色,F-b顯示為綠色
AT002第二行記錄裡的R-c顯示為藍色
.......等等
意思就是如何讓每一格顯示各種顏色?
客戶編號 貨單編號 01 02 03 04 05
AT001 TMS1056AD A-a C-d D-a F-b D-d
AT002 FEO1138DD B-c R-c NULL NULL NULL
AT005 TTD1247FF D-c E-a E-d E-p NULL
AT180 PEA1048 F-a F-b F-t NULL NULL
AT192 MNW1289DD E-b NULL NULL NULL NULL
用DBGridEh顯示出來,如何讓AT001第一行記錄裡的C-d顯示為紅色,F-b顯示為綠色
AT002第二行記錄裡的R-c顯示為藍色
.......等等
意思就是如何讓每一格顯示各種顏色?
解决方案 »
- 推荐个程序打包工具
- ListView背景图片,Item的ICON不透明?----------------------------急急急
- 关于实现“模糊查询”中数据类型转换的问题
- ? 呜~~~大哭,谁能给我一份摄像头源码,呜~~~~~~~~~~~救命呀!
- 各位请近来看一下,简单问题!
- Listview控件 列显示不全
- Pchar Lpctstr Pansichar 内存分配
- 在DELPHI7的CORBA中调用COM对象为什么会失败?
- 程序代码解释!!!
- delphi中怎样使用gif图形,用image组件好像不行?
- 关于treeview在多表中动态生成树的问题大家帮帮我分不够可以加在线等待。
- yinger是什么意思?是英文名还是什么东西?如果是英文名那叫什么?
没有用过DBGridEh,所以不知道具体的事件名称。
DBGridEH没有使用过!
void __fastcall TForm1::DBGridEHDrawDataCell(TObject *Sender,
const TRect &Rect, TField *Field, TGridDrawState State)
{
AnsiString theState = DBGridEH->DataSource->DataSet->FieldByName("STATE")->AsString
if (theState == "0")
for (int i = 0 ; i < DBGridEH->Columns->Count ; i++ )
DBGridEH->Columns->Items[i]->Color = clBlue;
else if (theState == "1")
for (int i = 0 ; i < DBGridEH->Columns->Count ; i++ )
DBGridEH->Columns->Items[i]->Font->Color = clPurple;
else if (theState == "2")
for (int i = 0 ; i < DBGridEH->Columns->Count ; i++ )
DBGridEH->Columns->Items[i]->Font->Color = clRed;
else if (theState == "9")
for (int i = 0 ; i < DBGridEH->Columns->Count ; i++ )
DBGridEH->Columns->Items[i]->Font->Color = clOlive;
DBGridEH->Canvas->Brush->Color = clLime;
DBGridEH->DefaultDrawDataCell(Rect, Field, State);
}你自己修改一下吧,我没有很多时间