我在ONDrawColumnCell事件中使用以下语句修改了dbgrideh1背景色,效果正常。
但dgRowSelect=true 后,选中记录时却没有的选择色,只出现一个虚框。要加句怎样的语句才可以在行选记录时得到指定的背景色?我的语句为:
dbgrideh1.canvas.Font.Color:=clBlack;
if dbgrideh1.DataSource.DataSet.RecNo mod 2=0 then
dbgrideh1.canvas.Brush.color:=$00EEFFFF else
dbgrideh1.canvas.brush.color:=$00E8FFE8;
dbgrideh1.DefaultDrawColumnCell(rect,datacol,column,state);求教各位大虾!!!
但dgRowSelect=true 后,选中记录时却没有的选择色,只出现一个虚框。要加句怎样的语句才可以在行选记录时得到指定的背景色?我的语句为:
dbgrideh1.canvas.Font.Color:=clBlack;
if dbgrideh1.DataSource.DataSet.RecNo mod 2=0 then
dbgrideh1.canvas.Brush.color:=$00EEFFFF else
dbgrideh1.canvas.brush.color:=$00E8FFE8;
dbgrideh1.DefaultDrawColumnCell(rect,datacol,column,state);求教各位大虾!!!
解决方案 »
- 求读取当前IE游览器的网页内容并进行修改的思路(非本程序的Webrosew控制)
- 如何实现子窗体之间的切换?求教高手。
- delphi设置excel某个单元格的属性
- edit中不能让前4位修改的问题?
- 在delphi程序中打开资源管理器,能否控制资源管理器的显示位置和大小
- 在线等待:sql语句中的where子句中日期如何写??
- 我想知道在DELPHI中能不能用query控件来select into newtable from table呢?
- 为什么出错,数据如何更新
- 请问如何将Memo的内容复制到报表中
- 为什么TQUERY并不一定将MS SQL7的错误返回给系统?
- 关于读取文件的问题
- 求教各位大虾,如何使query控件不分大小写查询MEMO字段,在下查遍各大论坛,未果,100分奉上!
if dbgrideh1.DataSource.DataSet.RecNo mod 2=0 then
dbgrideh1.canvas.Brush.color:=$00EEFFFF else
dbgrideh1.canvas.brush.color:=$00E8FFE8;
if (gdSelected in State) then
dbGrideh1.Canvas.Brush.Color := clRed;
dbgrideh1.DefaultDrawColumnCell(rect,datacol,column,state);