DBGrid行不同颜色显示的问题，在线等

Question

procedure TfrmCK_rkd.DBGrid_rkdDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  inherited;
    DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
    DBGrid_rkd.Font.Color:=clFuchsia;
 if DBGrid_rkd.DataSource.DataSet.FieldByName('state').AsBoolean then
    begin
    //已经确认入库的记录
    DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
    DBGrid_rkd.Font.Color:=clTeal;
    end;
    DBGrid_rkd.DefaultDrawColumnCell(Rect,datacol,column,State);
end;以上代码在运行时，DBGrid会不停的跳动，光标处于SQL查询忙状态,怎么解决啊

Answer 1

procedure TForm.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if query.FieldByName('序号').AsInteger = 0 then
  begin
    DBGrid.Canvas.Font.Color := clred;
    DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end
  else
  begin
    DBGrid.Canvas.Font.Color := clblue;
    DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;