[delphi]
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断  
True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示  
False: DbGrid1.Canvas.Brush.color:= clblue; file://奇数行用蓝色表示  
end; 
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then 
Case DataCol mod 2 = 0 of 
True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列用红色  
False: DbGrid1.Canvas.Brush.color:= clGreen; file://当前选中行的奇数列用绿色表示  
end; 
DbGrid1.Canvas.pen.mode:=pmMask; 
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); 

Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= clblue; file://奇数行用蓝色表示
end;
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列用红色
False: DbGrid1.Canvas.Brush.color:= clGreen; file://当前选中行的奇数列用绿色表示
end;
DbGrid1.Canvas.pen.mode:=pmMask;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

 

点击复制链接 与好友分享!回本站首页 上一篇：delphi7中类的定义和使用 下一篇：delphi 让程序在状态栏运行 相关文章

在Delphi中随意控制DBGrid每一行的颜色

Delphi中如何取得系统支持的颜色数

在Dephi中使用TStream读写数据的技巧

触发器设计技巧与实例

Delphi的8个技巧

Delphi的两个实用技巧

Delphi中树型控件的使用技巧

DELPHI图形编辑技巧二则

WINDOWS编程技巧之DELPHI篇

Delphi中对象解除技巧

图文推荐