Особенности отображения таблицы данных TDBGrid от разных провайдеров

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect2: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var style,rl,rr,rt,rb:integer; rect1:TRect;
begin
if odd(TDBGrid(sender).DataSource.DataSet.RecNo) then
  TDBGrid(Sender).Canvas.Brush.Color:=clGreen
else
  TDBGrid(Sender).Canvas.Brush.Color:=clRed;

if (not (gdSelected in State) and (not (gdFocused in State))) then
  if dbgMain.DataSource.DataSet.RecNo mod 2 = 1 then 
    dbgMain.Canvas.Brush.Color:=RGB(250,250,200);
dbgMain.Canvas.FillRect(Rect);
dbgMain.DefaultDrawColumnCell(Rect,DataCol,Column,State);

procedure TForm1.dbg1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if odd( q1.RecNo) then
  begin
    dbg1.Canvas.Brush.Color := clRed;
    dbg1.DefaultDrawDataCell(rect, Column.Field, state);
  end;
end;

procedure TForm1.dbg1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if odd( q1.FieldByName('ROW_NUM').asinteger) then
  begin
    dbg1.Canvas.Brush.Color := clRed;
    dbg1.DefaultDrawDataCell(rect, Column.Field, state);
  end;
end;

 Это позволяет заменить фразы True и False на что-то другое, не меняя содержание

procedure TDM.QHistИзменениеGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
Text:=ABS(QHistИзменение.Value).ToString;
end;