在dbgrid中选中某一网格后，如何使网格所在行的全部网格中的字体改变？

Question

请教大虾，在dbgrid中选中某一网格后，如何使网格所在行的全部网格中的字体改变？

Answer 1

你可以看下面这段改变颜色的代码, 改变字体方法差不多在OnDrawColumnCell事件中:procedure TConMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if gdselected in State then
    TDBGrid(Sender).Canvas.Brush.Color := $00949200 //$00A5C4D8
  else
  begin
    if (TDBGrid(Sender).DataSource.DataSet.RecNo mod 2) <> 0 then
      TDBGrid(Sender).Canvas.Brush.Color := $00FDF2DF
    else
      TDBGrid(Sender).Canvas.Brush.Color := clInfoBk;
  end;
  TDBGrid(Sender).DefaultDrawColumnCell(rect, DataCol, Column, State);
end;

Answer 2

Grid1.Canvas.Font.Style:=[fsBold,fsItalic];