Как убрать темно-синюю линию в DBGridEh?

[artemavd]

Добрый день! Как убрать синюю линию (обведена скобкой, чтоб понятнее), а оставить только голубоватые линии? Жутко не нравится эта синета. Не могу найти в свойствах.

[Прик]

В свойствах нет. Можно рисовать:

procedure TfrmMain.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
  with TDBGridEh(Sender) do begin
    if (gdSelected in State) and (SelectedField = Column.Field) then
      Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

[ych_del]

OptionsEh -> dghHightlightFocus = false

Но тогда будет не синева, а белизна (:

[Аватар]

Еще вариант

procedure TFMDIChild.DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if gdSelected in State then begin
    if TDBGridEh(Sender).Focused then Background:=clRed else Background:=clBtnFace;
    //или
    if TDBGridEh(Sender).Focused then Background:=clRed;
  end;
end;