Colors in tDbStringGrid

VCL TMS VCL UI Pack
1

Hi


in a TDbStringGrid I want to set the color of a cell even if the cell is selected. How can I do this? In the event "GetCellColor" I have the following code:

  if ACol = 2 then
  begin
    try
      ABrush.Color := StrToInt(tFoDbGrid(Sender).Cells[ACol, ARow]);
      AFont.Color := ABrush.Color;
    except
    end;
  end;

It works but if I select the cell I don't have the desired color. How can I do this?
2

Set 

grid.SelectionColorMixer := true;
grid.SelectionColorMixerFactor := 0;
3

works as expected! Thanks!