DBGridEH 如何设置某一行的颜色

iefus 2011-06-03 03:50:23

DBGridEH的某一列的值有Y和N，
现在要把值为Y的那一行设置颜色，怎样实现

...全文

816 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

luquansen 2011-06-04

打赏
举报

回复

总共20分你也蹭啊呵呵

[Quote=引用 5 楼 dropme 的回复:]
帮顶，蹭分~
[/Quote]

dropme 2011-06-03

打赏
举报

回复

帮顶，蹭分~

iefus 2011-06-03

打赏
举报

回复



procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumnEh;

  State: TGridDrawState);

begin

  if (column.FieldName = 'DEL') and (column.Field.Value = 'Y') then

  begin

    DBGridEh1.Canvas.Brush.Color := clYellow;

  end;

  DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

我写了这行代码，但是DEL列中值为Y的一行，颜色没有变化

kye_jufei 2011-06-03

打赏
举报

回复

DBGridEh1.Canvas.Brush.Color:=clSilver;        

DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

abcdwell 2011-06-03

打赏
举报

回复

Delphi 7里DBGridEh里行变颜色的代码

例如在DBGridEh的OnDrawColumnCell事件里输入如下代码：

if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立

     begin

       DBGridEh1.Canvas.Brush.Color:=clSilver;         //行底色变色

       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

     end;

 

另一种：

 

if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立

     begin

       DBGridEh1.Canvas.Font.Color:=clMaroon;     //行字体变颜色

       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

     end;

abcdwell 2011-06-03

打赏
举报

回复

根据字段值内容的不同在dbgridEH中来分颜色显示



procedure   TfrmBdDetail.DBGridEh1DrawColumnCell(Sender:   TObject;   

      const   Rect:   TRect;   DataCol:   Integer;   Column:   TColumnEh;   

      State:   TGridDrawState);   

  begin   

      if   adoquery1.fieldbyname('合计数量').AsInteger>   adoquery1.fieldbyname('KC').AsInteger   then   

      begin   

                    (Sender   as   TDBGridEH).Canvas.Brush.Color   :=   $008080FF;   

      end;   

      DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);   

  end;

一、 DBGridEh（增强型表格组件）功能详解.....................................................................4 二、应用实例..........................................................................................................................5 1. 定制标题行......................................................................................................................5 1) 制作复杂标题行.......................................................................................................5 2) 按钮式标题..............................................................................................................5 3) 标题行显示图片.......................................................................................................5 4) 如根据不同状态在数据单元格中显示相应图片...................................................5 5) 自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序...............6 6) 点dbgrideh 标题排序..............................................................................................7 7) 在DBGridEH 中怎样实现多重排序(标题出现0123等排列序号)? ................ 11 8) 让dbgrid显示序号................................................................................................ 11 2. 外观布局........................................................................................................................12 1) 根据不同字段值显示相应的小图片.....................................................................12 2) 显示检查框（checkbox）外观.............................................................................12 3) 显示单、多列下拉列表.........................................................................................12 4) 显示日历下拉列表.................................................................................................13 5) 3D或平面外观效果...............................................................................................13 6) 行头和列头的启用关闭.........................................................................................13 7) DBGrid如何实现透明效果?.................................................................................13 8) 滚动条的各种应用.................................................................................................16 9) 数据行高................................................................................................................19 10) DBGrid设置Rowheight后如何将单元格内容纵向和垂直都居中?..............19 11) 设置DBGridEH 自适应列宽的最好方法.........................................................20 12) Ehlib 的DBGridEh首列加序号........................................................................21 13) 分行分列、单元格的颜色设置.........................................................................23 14) 点击不同单元格列，执行不同的动作.............................................................27 15) 下拉式计算器.....................................................................................................28 16) 鼠标移到某个单元格，指针形状改变.............................................................28 17) 自动填充网格列宽到网格客户区.....................................................................29 18) 从注册表或ini文件中保存或恢复网格和列的层次。...................................29 3. 编辑功能........................................................................................................................29 1) 多选........................................................................................................................29 2) 文本多行显示.........................................................................................................30 3) 显示备注字段.........................................................................................................30 4) 如何让dbgrideh1 显示数据时只显示两位小数...................................................30 5) 获得当前DBGridEh表中单元格的序号.............................................................30 6) 怎样在dbgridEh和Edit中显示金额的千分号...................................................30 7) end;请问怎么才能使DBGridEh不滚动就能提交数据？...................................32 8) 我怎么把dbgrid 里的数据一次插入到数据库呢................................................32 9) 在DBGrid中可选中行而又可进入编辑状态......................................................32 10) 修正DBGrideh 丢失焦点时自动关闭输入法的问题......................................35 11) DBGRIDEH选定多行删除怎么实现...............................................................36 12) DBGrid 滚动表格的代码...................................................................................37 4. 统计功能........................................................................................................................37 白波九道整理自用版第 3 页 1) 页脚合计................................................................................................................37 2) 定制表格底部（footer）区域的汇总统计行.......................................................38 3) TDBSumList说明..................................................................................................38 4) 如何工作以及为什么有时SumList的集合值计算不正确？.............................39 5) dbgrideh列求和.....................................................................................................39 5. 数据功能........................................................................................................................40 1) 查找字段点击某列值的下拉按纽弹出一个从数据库取值下拉列表...............40 2) 使用DBGridEh自动过滤实现方法.....................................................................40 3) 使用DBGridEh自动过滤实现方法2 ..................................................................41 4) DBGridEh 控件中使用过滤功能 (适用ehlib 5.2 ehlib 5.3)................................42 5) 支持模糊查询.........................................................................................................43 6) ehlib4.4.50中支持模糊匹配的修改方法..............................................................44 7) EhLib 5.0 Build 5.0.13的过滤字串都是模糊过滤修改.......................................45 8) 滚动条滚动时选择不变，还有自动过滤功能的实现.........................................45 9) 增量搜索................................................................................................................46 10) ehlib总是按两次ctrl+f才出来查找框，怎么办？.........................................46 11) 如何改良dbgrideh的文字过滤........................................................................46 12) 改进DBGrideh 表头点击自动排序,实现双击状态轮流.................................47 13) 改良Ehlib 的排序功能,加快排序速度.............................................................49 14) 在DbGridEh中显示TreeView效果................................................................50 15) DBGridEh-KeyList、PickList............................................................................51 16) 主从表设置........................................................................................................53 17) 在DbGridEh中显示表中表..............................................................................55 6. 输入/输出.......................................................................................................................56 1) 导入导出数据.........................................................................................................56 2) 从多种格式导入/导出数据到TDBGridEh...........................................................57 3) DBGRID 生成EXCEL报表.................................................................................57 4) 使用TPrintDBGridEh 组件.................................................................................61 5) 打印时确定Ehlib定义的报表表头颜色? ............................................................61 6) Ehlib 中的PrintDBGridEh如何印页码,即第几页共几页...................................62 7) 怎么让PrintDBGridEh只打印DbGridEh 中指定的列.......................................62 8) 怎样进行横向打印/ 打印预览？........................................................................62 7. 将存在的DBGrid组件转换为DBGridEh组件...........................................................62 三、EhLib安装问题.............................................................................................................64 1. EhLib 安装步骤.............................................................................................................64 2. EhLib 安装问题（dbsumlst.dcu出错) ..........................................................................64 3. 安装提示找不到.BPL文件...........................................................................................65 四、Delphi 下的优秀表格(Grid)显示控件........................................................................65 1. NextGrid .........................................................................................................................65 2. TopGrid 3.01...................................................................................................................65 3. XLGrid............................................................................................................................66 4. DevExpress ExpressQuantumGrid .................................................................................66 5. TMS Grid Pack...............................................................................................................68 6. EhLib ..............................................................................................................................71 白波九道整理自用版第 4 页 7. ProfGrid..........................................................................................................................71 8. EasyGrid .........................................................................................................................71 五、delphi 中配置文件的使用（*.ini）.........................................................................71 六、窗口动画效果Animatewindow应用...........................................................................72 七、Delphi Excel to Sql Server..............................................................................................73 八、Delphi控制Excel的经验如下：..................................................................................76

DBGridEh设置选中行的颜色，查了3天，一脸懵逼，我能找到网上的全是错误的，或许是我的版本太高了，不支持。尤其是参数State总是提示错误，类型不符。点击单元格，或者单元格获得焦点后，整行被指定的颜色覆盖（如果是设置内容颜色，你自己选择font），正确的也是简单的写法（我最烦动不动就一大篇实现一个简单的功能）。一、设置光标所在行的颜色在getcellparams事件中if DBgrideh1....

Delphi 7里DBGridEh里行变颜色的代码例如在DBGridEh的OnDrawColumnCell事件里输入如下代码： if ADOQuery1.FieldByName('status').AsString='True' then //如果条件成立 begin DBGridEh1.Canvas.Brush.Color:=c...

写在 GetCellParams 事件中 begin if adoQuery.FieldByName('column').AsString<>'' then Background:=clMoneyGreen; end;

运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true. 步骤2:在dbgrid的ondrawcolumncell事件里面写上: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColu

5,402

社区成员

262,733

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章