ActiveRowShow priority over OnGetCellColor event

Hi,

When ActiveRowShow is true, my active row doesn't show the custom colors rules I have set in the OnGetCellColor event. 

Is this intended?
Is it possible for the OnGetCellColor event to have priority on the ActiveRowShow event?
It works fine for the font color but not for the background color.

Thanks

Small example to show what i mean:

procedure TForm2.FormCreate(Sender: TObject);
begin
   AdvStringGrid1.RandomFill;
   AdvStringGrid1.ActiveRowShow := True;
end;

procedure TForm2.AdvStringGrid1GetCellColor(Sender: TObject; ARow,ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
   if Odd(ARow) then
   begin
      ABrush.Color := clRed;
   end;
   if Odd(ACol) then
   begin
      AFont.Color := clGreen;
   end;
end;

The active row color has priority over the cell background color to ensure the active row is always visible in this case.