Delphi10.3的DBGrid美化(03)

SQLite3框架

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;

 

SQLite3框架

 

 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少