1:
2:
3:
4:
5:

procedure TJP_Main.RxDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

 if  dm.table1.FieldByName('MARKER').AsString='X'
  then  rxdbgrid1.Canvas.Brush.Color :=clRed;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  if Sender is TMyDBGrid then
   if not (gdSelected in State) then
    with (Sender as TMyDBGrid), Canvas do
     if not SelectedRows.CurrentRowSelected then
     begin
      if (FWirklist.FieldByName('ERRECHNET').AsFloat > max) and
         (FWirklist.FieldByName('MAXIMAL').AsFloat > 0)     then
       Brush.Color := clAqua
      else
       Brush.Color := clWhite;
      FillRect(Rect);
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if Sender is rxdbgrid1 then
   if not (gdSelected in State) then
    with (Sender as rxdbgrid1), Canvas do
     if not SelectedRows.CurrentRowSelected then
     begin
      if dm.table1.FieldByName('MARKER').Asstring = 'X'
      then
       Brush.Color := clAqua
      else
      Brush.Color := clred;
      FillRect(Rect);
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;