Delphi 如何实现在DbgridEh中不同的行显示不同的颜色

 
日期：2005年12月4日 作者：archonwang 人气：1580 查看:[大字体 中字体 小字体] 
【实现 DBGridEh 隔行分色显示】
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
　 if DBGridEh1.SumList.RecNo mod 2 = 1 then
　　 Background := $00FFC4C4
　 else
　　 Background := $00FFDDDD;
end;

【DBGridEh 在某些条件下某行显示特定颜色】
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin

　//在 name 字段值为 aaa 的行设置行背景色（ado 设置情况下）
　if ADOQuery1.FieldByName('name').AsString = 'aaa' then
　　　Background := $00FFC4C4

　//在 xm 字段值为 Li ming 的行设置行背景色（bde 设置情况下）
　else if DBGridEh1.DataSource.DataSet.FieldByName('xm').AsString = 'Li ming'　then
　　 Background := $00FFC4C4
　else
　　 Background := $00FFDDDD;

end;