|
|
在用Delphi开发数据库管理系统时，因为DBGrid控件使用起来非常方便和简单，因此大多数时候我们会用它来进行大批量数据的显示。但美中不足的是DBGrid只能以同一种颜色显示所有的数据行。为了让程序界面更加友好，用户在进行数据浏览时能一目了然，我们能不能让DBGrid中的数据行以不同的颜色交错显示，以产生斑马线般的效果呢？答案是肯定的。
要想达到不同颜色交错显示的效果，我们只需要在DBGrid控件的OnDrawColumnCell事件中添加适当代码即可。具体代码如下：
...
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
with DBGrid1 do
begin
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
Canvas.Font.Color :=ClYellow;
Canvas.Brush.Color :=ClNavy;
end
else
begin
if DataSource1.DataSet.RecNo mod 2< >0 then {判断当前数据是奇数还是偶数行}
Canvas.brush.Color :=ClWhite {如果是奇数行，DBGrid背景以白色显示}
else
Canvas.brush.Color :=$00EAEAEA; {如果是偶数行，DBGrid背景以浅灰色显示}
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State); {这行很关键的，一定不要遗漏了}
end;
end;
...
注意：为了节约篇幅，在本文中，笔者没有指定TDBGrid的数据源控件和数据访问控件，请大家自行加上。
好了，存盘后运行一下，看看是不是舒服多了。
程序在Windows 98SE中文版、Delphi 5.0 (Build6.18) Update Pack1下调试通过。
|
|
