200分========求dbGridEh显示的问题

qizhanfeng 2006-03-14 05:36:50

dbGridEh关联的数据库字段类型是bit类型，那么对应显示在dbGridEh中的checkBox 选中时对钩的颜色怎么变成红色？

...全文

249 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

qizhanfeng 2006-03-25

打赏
举报

感谢各位的回复

nt3547830 2006-03-21

打赏
举报

学习中

zhangl_cn 2006-03-21

打赏
举报

楼主呢

leihentulong 2006-03-15

打赏
举报

dbGridEh关联的数据库字段类型是bit类型，那么对应显示在dbGridEh中的checkBox 选中时对钩的颜色怎么变成红色？
-------------------------------------------------
注意:显示的是红钩而不是true.
楼上显示的是红色的true呀

hxshaou 2006-03-15

打赏
举报

if (adoquery1.FieldValues['字段名'].asboolean=true) then
begin
dbgridEh1.Columns[2].font.color:=clred;
dbgridEh1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end

leihentulong 2006-03-15

打赏
举报

to：ourlin(游荡于代码间的孤魂) ( ) 信誉：100
显示的结果不是选中和不选中，而是变了颜色的ture，不太正确吧；

Comer 2006-03-15

打赏
举报

楼上的强

不若人生一场醉 2006-03-15

打赏
举报

具体的属性忘了，grideh的column中有picklist和keylist2个属性，好象是picklist（是个tstrings）属性，设置为true和false，在关联一个timagelist，有2个16x16的图象，一个是方快里面有个红色的勾(0)，一个是方快(1)，这样当是true时（假设true的index是0)那么对应的用imagelist的0号图象，false就是1号图象，就是这样，如果没效果那可能就是keylist属性

Tensionli 2006-03-15

打赏
举报

关注
解决了没有呀

ourlin 2006-03-14

打赏
举报

procedure TshApfrm.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if ((State = [gdSelected]) or (State = [gdSelected, gdFocused])) and (DBGridEh1.DataSource.DataSet.FieldByName('fieldok').AsBoolean=true) then
DBGridEh1.FieldColumns['fieldok'].Font.Color:=clRed;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;