DBGrideh 行变色

原创 于 2021-07-11 17:08:37 发布 · 595 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

这篇博客介绍了如何在10.0版本的数据库组件中实现奇偶行变色功能，通过设置EvenRowColor和OddRowColor属性，可以轻松改变DBGridEh1的偶数行和奇数行的颜色，例如将偶数行设置为黄色。同时，展示了自定义GetCellParams方法来根据数据条件改变单元格背景色的示例。

在事件中判断去变色，10.0版本的偶数行变色，只需设置DBGridEh1.EvenRowColor :=clCream 这个是变黄色

  •  隔行变色
EvenRowColor 偶数行颜色
OddRowColor  奇数行颜色

procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
//  if MemTableEh1.FieldByName('Population').AsFloat > 21600000 then
//    Background := $00E6F0E6;
end;

Delphi 改变DBgrid控件选中时的单元格颜色.rar
07-10
Delphi 改变DBgrid控件选中时的单元格颜色，一般在默认状态下，DBgrid在行被选中时是深蓝色的，本程序将改变这个深蓝色为用户自定义颜色。操作方法很简单：当选中DBgrid任意行时，点击上部的任意颜色值，此时就已经将DBGrid控件的选中行颜色改变为用户选中的颜色。
DBGridEh(导出 排序 变色 复选)
02-23
这个压缩包文件"DBGridEh1(导出 排序 变色 复选)"包含了一系列示例程序，旨在演示如何利用DBGridEh实现数据导出、排序、颜色变化以及复选功能。 1. 数据导出：DBGridEh支持多种格式的数据导出，如CSV、Excel、PDF等...
DBGridEh 隔行变色
ksrsoft的专栏
09-29 2570
DBGridEh1.OddRowColor:=clSkyBlue; //奇数行颜色 DBGridEh1.EvenRowColor:=clMoneyGreen; //偶数行颜色 DBGridEh1.SumList.Active:=True; DBGridEh1.SumList.VirtualRecords:=True; //显示行号和允许调整列宽 DBGridEh1.OptionsEh
DbGridEh中改变行的颜色
weixin_30740295的博客
01-04 397
DbGridEh中改变行的颜色 代码也挺简单的，只是当时没有想到： if ds2.FieldByName('AutoRead').AsInteger=0 thenbegin DBGridEh1.Canvas.Brush.Color:=clGrayText; DBGridEh1.Canvas.Font.Color:=clWhite; DBGridEh1.DefaultDrawCol...
DBGridEh改变选中行颜色
weixin_30737433的博客
03-25 1008
运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedureTForm1.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;Stat...
DBGridEh设置选中的行的颜色
leavesguth的博客
09-07 5845
DBGridEh设置选中行的颜色，查了3天，一脸懵逼，我能找到网上的全是错误的，或许是我的版本太高了，不支持。尤其是参数State总是提示错误，类型不符。点击单元格，或者单元格获得焦点后，整行被指定的颜色覆盖（如果是设置内容颜色，你自己选择font），正确的也是简单的写法（我最烦动不动就一大篇实现一个简单的功能）。一、设置光标所在行的颜色在getcellparams事件中if DBgrideh1....
dbgrideh 整行变色
05-26
您可以使用`OnDrawColumnCell`事件来实现`DBGrid`整行变色。以下是一个示例代码： ```delphi procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; ...
DELPHI 表格控件DBGridEh属性设置说明
05-05
### DELPHI 表格控件 DBGridEh 属性设置详解 #### 一、概述 DBGridEh 是一个增强版本的 Delphi 表格控件，它提供了丰富的功能来帮助开发者创建更加灵活和强大的数据展示界面。本文将详细介绍 DBGridEh 控件的各种...
DBGridEh实战技巧：导出、排序、变色及复选功能示例
最后，“复选”功能指的是在DBGridEh网格中，为某些行添加复选框，允许用户选择或取消选择一行或多行数据。在实际应用中，复选框可以和数据库的某些操作相结合，比如批量删除、批量修改等。开发者可以通过设置...
DBGRIDEH 根据条件设置行的颜色
最新发布
09-19
我们参考了多个引用中的方法，这些方法都使用了DBGridEh的OnDrawColumnCell事件来根据条件改变行颜色。主要步骤包括： 1. 在DBGridEh的OnDrawColumnCell事件中编写代码。 2. 判断条件（例如字段值、记录号等）。 3. ...
DBGridEh奇偶行不同颜色及选中行或单元格特殊颜色显示
展翅欲飞
03-05 4492
原代码因为TGridDrawState名字空间冲突问题使用了TGridDrawState名字空间，在SQLSERVER2000中测试通过。TGridDrawState名字空间冲突问题及解决方法 http://blog.youkuaiyun.com/gxsky/archive/2009/03/05/3958173.aspx  DBGridEh奇偶行不同颜色及选中单元格特殊显示，代码如下：void
让DBGrid控件能够隔行上色
lizpen的专栏
02-28 1363
让Delphi的DBGrid控件能够在显示的时候可以用不同的颜色区分相邻的记录行，实现办法： (1)把DBGrid的DefaultDriawing属性设为False; (2)把DBGrid的Option—>dgRowSelect属性设为True，可以实现选中行行变色;设为False选中单元格变色; (3)使用如下代码实现：procedure TExample.DBGrid1DrawColumnCe
DBGridEh里行变颜色
weixin_34062329的博客
01-22 416
Delphi 7里DBGridEh里行变颜色的代码 例如在DBGridEh的OnDrawColumnCell事件里输入如下代码： if ADOQuery1.FieldByName('status').AsString='True' then //如果条件成立 begin DBGridEh1.Canvas.Brush.Color:=c...
设置DBGrid当前行的颜色
weixin_33749242的博客
08-21 248
定义个子类MyDBGrid继承TDBGrid，以提供访问父类保护成员的接口。 type MyDBGrid=class(TDBGrid) private public function GetRow:integer; function IsCurrent:boolean; end; function MyDBGrid.GetRow...
隔行改变DBGrid网格颜色
xiaomaoxia的专栏
04-06 1120
Delphi5 - 隔行改变DBGrid网格颜色   在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: T
DbGridEh中处理行的颜色
diligentcat的专栏
03-29 1040
<br />procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;<br />  DataCol: Integer; Column: TColumn; State: TGridDrawState);<br />begin<br />  if dbgrid1.DataSource.DataSet.RecNo mod 2=0 then<br />  dbgrid1.canvas.Brush.color:=$00BFE4
Dbgrid 当前行颜色
玄鐵劍 的專欄
03-18 1414
type  TMyDBGrid = class(TDBGrid);procedure DemoDrawColumnCell(  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);begin  with TMyDBGrid(Sender) do  begin  
TDBGrid 隔行颜色
weixin_30466039的博客
11-12 108
with(Sender as TDBGrid) do begin if ((State=[gdSelected])or (State= [gdSelected, gdFocused])) then begin Canvas.Font.Color:=clHighlightText; Canvas.Bru...
DBGridEh实现特定颜色
java开发指南博客 【转载】
07-23 137
unit U_color; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGridEh, ExtCtrls; type TForm1 = class(TForm) ...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值