DBGrid间隔行颜色

最新推荐文章于 2020-09-12 09:44:30 发布

easyboot

最新推荐文章于 2020-09-12 09:44:30 发布

阅读量1.2k

点赞数

分类专栏： Delphi 文章标签： integer

本文链接：https://blog.csdn.net/easyboot/article/details/7634662

版权

Delphi 专栏收录该内容

54 篇文章 2 订阅

订阅专栏

procedure TFrmQueryData.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  FindFieldCol: integer;
begin
  if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then
  begin
    DBGrid1.Canvas.Font.Color := clBlue;
    DBGrid1.Canvas.Brush.Color :=RGB(181, 230, 255);// clyellow;
  end
  else
  begin
    DBGrid1.Canvas.Font.Color := clGreen;//clred;
    DBGrid1.Canvas.Brush.Color := RGB(251, 255, 170) ;//clGradientActiveCaption;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

  if datacol = 0 then //定义行号列
    (Sender as TDBGrid).Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(DBGrid1.DataSource.DataSet.RecNo));
end;