¿Y si haces un TypeCast? (no se como se dice en cistiano
) ; "engañas" al compilador para que crea que la tabla es de una DBGrid y así usas sus propiedades, claro está que sólo funcionará si son compatibles.
Sería algo así:
Código Delphi
[-]procedure IB_Grid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if TDBGrid(Sender).DataSource.Dataset.FieldbyName('ESTADO').AsString = 'Seguimiento' then
if (gdFocused in State)
then TDBGrid(Sender).canvas.brush.color := clBlack
else TDBGrid(Sender).canvas.brush.color := $00D5FFFF;
end;
yo lo uso para obtener el valor ROW de un DBGrid :
Código Delphi
[-]indice_grid:=TStringGrid(DBGrid1).Row;
No he podido probar el ejemplo que te pongo porque no tengo ibobjects ya me contaras si es lo que buscas.
Saludos y suerte.