关于DBGRID的颜色(25分)

  • 主题发起人 主题发起人 sung_001
  • 开始时间 开始时间
S

sung_001

Unregistered / Unconfirmed
GUEST, unregistred user!
如何能让DBGRID像一些网页中的表格一样用深浅两种颜色交替做每一行的底色?
 
OnDrawColumnCell
 
能具体一点吗?
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Table1.RecNo mod 2 = 0 then
DBGrid1.Canvas.Brush.Color :=clInfoBk //单数行显示颜色
else
DBGrid1.Canvas.Brush.Color :=clGreen ; //单数行显示颜色

DBGrid1.DefaultDrawColumnCell(Rect,DataCol, Column,State);
end;
 
多人接受答案了。
 
后退
顶部