在DElphi中的DataGrid怎样使它显示的行间隔改变颜色?
2005-05-27 14:23
459 查看
在DElphi中的DataGrid怎样使它显示的行间隔改变颜色?就向.NET中同名控件一样。
---------------------------------------------------------------
好像是在 OnDrawDataCell 事件中写代码。
---------------------------------------------------------------
procedure TForm1.dbgridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DBGrid2.DataSource.DataSet.RecNo mod 2=1 then
begin
DBGrid2.Canvas.Font.Color := clBlue;
DBGrid2.Canvas.Brush.Color:=clyellow;
end
else begin
DBGrid2.Canvas.Font.Color := clred;
DBGrid2.Canvas.Brush.Color:= clGradientActiveCaption;
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
---------------------------------------------------------------
好像是在 OnDrawDataCell 事件中写代码。
---------------------------------------------------------------
procedure TForm1.dbgridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DBGrid2.DataSource.DataSet.RecNo mod 2=1 then
begin
DBGrid2.Canvas.Font.Color := clBlue;
DBGrid2.Canvas.Brush.Color:=clyellow;
end
else begin
DBGrid2.Canvas.Font.Color := clred;
DBGrid2.Canvas.Brush.Color:= clGradientActiveCaption;
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
相关文章推荐
- 在DElphi中的DataGrid怎样使它显示的行间隔改变颜色?就向.NET中同名控件一样。
- datagrid 间隔行显示不同的颜色.
- DataGrid基础,添加DropDownList,改变单击行的颜色,隐藏显示列
- wpf datagrid 单元格颜色 根据条件改变颜色 根据表datatable动态显示datagrid内容
- DataGrid基础,添加DropDownList,改变单击行的颜色,隐藏显示列
- datagrid加载数据,列内容显示,改变字体颜色
- 改变linux终端显示颜色
- 改变Mac终端(Terminal)背景及命令的显示颜色
- 怎样改变myeclipse 6.5的注释的颜色
- EasyUI DataGrid 改变背景颜色
- 汇编题目:在屏幕中间显示a-z的所有字母,按ESC键改变字符颜色
- DataGridView 实现记录颜色间隔交替显示
- 一行代码设置TForm颜色的前世今生(属性赋值引起函数调用,然后发消息实现改变显示效果),TForm的初始颜色在dfm中设置了clBtnFace色
- Delphi实现Listbox中的item根据内容显示不同颜色的方法
- 在屏幕中间显示,按ESC键后改变字符的颜色
- 鼠标移动,改变datagrid颜色 (转载)
- Xilinx SDK文本编辑器行号显示和背景颜色改变
- datagrid每一行都会随着鼠标的动作改变颜色
- devexpress表格控件gridcontrol设置隔行变色、焦点行颜色、设置(改变)显示值、固定列不移动(附源码)
- 在Web DataGrid中当鼠标移到某行与离开时行的颜色发生改变(结合javascript)