开发学院软件开发 Delphi 在DElphi中的DataGrid怎样使它显示的行间隔改变颜... 阅读

在DElphi中的DataGrid怎样使它显示的行间隔改变颜色

　2006-02-04 14:00:05　来源：WEB开发网　闁靛棴鎷�

濠⒀呭仜閵囧洨鈧稒銇炵紞锟�闁靛棴鎷�　　闁稿繗娅曢弫鐐哄级閵婏缚鑸瀣仧濞堟垵顕ラ鐓庤Е

核心提示：在DElphi中的DataGrid怎样使它显示的行间隔改变颜色？就向.NET中同名控件一样， --- 好像是在 OnDrawDataCell 事件中写代码，在DElphi中的DataGrid怎样使它显示的行间隔改变颜色， --- PRocedure TForm1.dbgridDrawColumnCel

在DElphi中的DataGrid怎样使它显示的行间隔改变颜色？就向.NET中同名控件一样。
---------------------------------------------------------------

好像是在 OnDrawDataCell 事件中写代码。
---------------------------------------------------------------

PRocedure TForm1.dbgridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DBGrid2.DataSource.DataSet.RecNo mod 2=1 then
begin
DBGrid2.Canvas.Font.Color := clBlue;
DBGrid2.Canvas.Brush.Color:=clyellow;
end
else begin
DBGrid2.Canvas.Font.Color := clred;
DBGrid2.Canvas.Brush.Color:= clGradientActiveCaption;
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;