实战Delphi数据网格色彩特效

5．横向斑马线， 同时以红色突显当前行效果。

　　file://其它属性设置同3，将上述代码修改为：

　　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=[gdSelected,gdFocused])) then file://选中行用红色显示

　　　DbGrid1.Canvas.Brush.color:=clRed;

　　　DbGrid1.Canvas.pen.mode:=pmMask;

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

　　6．双向斑马线效果：即行间用不同色区分，同时，选中行以纵向斑马线效果区分不同的列。

　　file://其它属性设置同3，将上述代码修改为：

　　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=[gdSelected,gdFocused])) 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);

上述6种方法分别就数据网格控件的列和行的色彩进行了设置，读者可以根据自己的需要设置特效。该程序在Delphi5中测试通过。

查看本文来源