Delphi10.3的DBGrid美化(03)

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: Integer;
begin
  if gdSelected in State then
    Exit;
  // 定義表頭的字體和背景顏色：
  for i := 0 to (Sender as TDBGrid).Columns.Count - 1 do
  begin
    (Sender as TDBGrid).Columns[i].Title.Font.Name := '宋體 '; // 字體
    (Sender as TDBGrid).Columns[i].Title.Font.Size := 9; // 字體大小
    (Sender as TDBGrid).Columns[i].Title.Font.Color := $000000FF; // 字體顏色 ( 紅色 )
    (Sender as TDBGrid).Columns[i].Title.Color := $0000FF00; // 背景色 (綠色 )
  end;
  // 隔行改變網格背景色：
  if (Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0 then
    (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk // 定義背景顏色
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); // 定義背景顏色
  // 定義網格線的顏色：
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  with (Sender as TDBGrid).Canvas do // 畫 cell 的邊框
  begin
    Pen.Color := $00FF0000; // 定義畫筆顏色 (藍色 )
    MoveTo(Rect.Left, Rect.Bottom); // 畫筆定位
    LineTo(Rect.Right, Rect.Bottom); // 畫藍色的橫線
    Pen.Color := $0000FF00; // 定義畫筆顏色 (綠色 )
    MoveTo(Rect.Right, Rect.Top); // 畫筆定位
    LineTo(Rect.Right, Rect.Bottom); // 畫綠色的豎線
  end;
end;