[Lenny]

Estimados, acudo nuevamente a ustedes buscando ayuda... Necesito pintar las filas de un grid, lo hago con este codigo:

Pinta Filas de un Grid:

Código Delphi [-]
if (Sender as TDBGrid).Datasource.DataSet.RecNo mod 2 = 0 then
        (Sender as TDBGrid).Canvas.Brush.Color := $00FBEFEF
      else
        (Sender as TDBGrid).Canvas.Brush.Color := $00F4DEE4;
(Sender as TDBGrid).Canvas.Font.Color := clBlack;
(Sender as TDBGrid).DefaultDrawColumnCell(rect,DataCol,Column,State);

Tambien necesito pintar ciertos cuadros del grid que cumplan con X condicion, en este caso utilizo est codigo:

Pintar cuadros de un Grid:

Código Delphi [-]
begin
  if (Column.Field.AsString > '') and
     (Column.Field is TStringField) and
     (Column.Field.Value = 'Control') then
  begin
     JvDBUltimGrid1.Canvas.Brush.Color:= $F581DA;
     JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
     JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     JvDBUltimGrid1.WordWrap:= True;
end;
  if (Column.Field.AsString > '') and
     (Column.Field is TStringField) and
     (Column.Field.Value = 'OK') then
  begin
     JvDBUltimGrid1.Canvas.Brush.Color:= $F5A9A9;
     JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
     JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     JvDBUltimGrid1.WordWrap:= True;
  end;
end;

Ambos funcionan perfectos por su cuenta, la pregunta del millon ya que he provado muchas formas de "fucionar" ambos codigos pero siempre uno manda sobre el otro... ¿¿¿Se pueden mesclar para obtener ambos resultados sobre un mismo grid??? obviamente si existe otro codigo que haga lo mismo estaria eternamente agradecido, agradesco de antemano cualquier ayuda, gracias!!