delphi中dbgrid行列颜色设置

delphi中dbgrid行列颜色设置

ID:14268152

大小:200.50 KB

页数:14页

时间:2018-07-27

delphi中dbgrid行列颜色设置_第1页
delphi中dbgrid行列颜色设置_第2页
delphi中dbgrid行列颜色设置_第3页
delphi中dbgrid行列颜色设置_第4页
delphi中dbgrid行列颜色设置_第5页
资源描述:

《delphi中dbgrid行列颜色设置》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、Delphi中DBGrid行列颜色设置1. 纵向斑马线效果:实现网格的奇数列和偶数列分别以不同的颜色显示,以区别相邻的数据列。   file://在DbGrid的DrawColumnCell事件中编写如下代码:   Case DataCol Mod 2 = 0 of   True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色   False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅

2、绿色   End;   DbGrid1.Canvas.Pen.Mode:=pmMask;   DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);     2. 纵向斑马线,同时以红色突出显示当前单元格效果:以突出显示当前选中的字段。     file://将上述代码修改为:    Case DataCol Mod 2 = 0 of    True: DbGrid1.Canvas.Brush.Color:= clBlue; fi

3、le://偶数列用蓝色    False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色   End;   If ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then      If Not DbGrid1.SelectedRows.CurrentRowSelected then   DbGrid1.Canvas.Brush.Color:=clRed; file://

4、当前选中单元格显示红色       DbGrid1.Canvas.Pen.Mode:=pmMask;    DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);    上述两种方法突出了列的显示效果。      3.在数据网格中以红色突出显示当前选中的行。    设置DbGrid控件的Options属性中的dgRowSelect属性为真,Color属性为clAqua(背景色), 在DbGrid的DrawColumnCell事件中

5、编写如下代码:   if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then   DbGrid1.Canvas.Brush.color:=clRed; file://当前行以红色显示,其它行使用背景的浅绿色   DbGrid1.Canvas.pen.mode:=pmmask;   DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);   4.行突显的斑马

6、线效果:既突出当前行,又区分不同的列(字段)。   file://其它属性设置同3,将上述代码修改为:   if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then   begin   Case DataCol Mod 2 = 0 of   True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列显示红色   False: DbGrid1.Canvas.Brush

7、.color:=clblue; file://当前选中行的奇数列显示蓝色   end;   DbGrid1.Canvas.pen.mode:=pmmask;   DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);   end;      5.横向斑马线, 同时以红色突显当前行效果。    file://其它属性设置同3,将上述代码修改为:   Case Table1.RecNo mod 2 = 0 of file://根据数据

8、集的记录号进行判断   True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示   False: DbGrid1.Canvas.Brush.color:=clblue; file://奇数行用蓝色表示   end;   if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then file://选中行用红色显示   DbGrid1.Canvas.B

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。