Como cambiar el color de una fila del Grid de ibobjects

[kovaski]

Hola.


Llevo dandole vueltas a este tema y no hay manera .

en grid normales tengo el siguiente codigo en OnDrawColumCell para cambiar el color de una fila entera:

Código Delphi [-]
       if Column.Field.Dataset.FieldbyName('ESTADO').AsString = 'Seguimiento' then
       if (gdFocused in State)
        then jvdbultimGrid1.canvas.brush.color := clBlack
        else jvdbultimGrid1.canvas.brush.color := $00D5FFFF;

y este para una sola celda en el mismo evento:

Código Delphi [-]
      if State=[] then
    with jvDBUltimGrid1 do 
     begin
      if Column.index=0 then
       begin
        if Column.Field.AsString= 'Activo' then
          Canvas.Brush.Color := $0084FF84;
        end;
   End;

En el ib_Grid del ibobjects tengo estos dos eventos OnDrawCell:

Código Delphi [-]
procedure IB_Grid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

y OnDrawFocusedCell:

Código Delphi [-]
procedure TFichaOfertas.IB_Grid1DrawFocusedCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

Estos eventos no tienen la propiedad colums de los demas grid y sé que la clave tiene que estar en "acol" y "aRow" pero por más que le doy vueltas no encuentro el codigo correcto que me pìnte la fila selecciona.

Os agradezco vuestra ayuda. Un saludo...