Как убрать синюю полосу в ValueListEditor?

[dolphin705]

Здравствуйте, возможно ли где то внастройках убрать вот эту синюю полосу в ValueListEditor? Она появляется только при наличии двух компонентов на форме.

[SNUPY]

procedure TForm1.ValueListEditor2DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if gdSelected in State then
  with TValueListEditor(sender).Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(Rect);
    Font.Color := clBlack;
    TextOut(Rect.Left, Rect.Top, TValueListEditor(sender).Cells[ACol, ARow]);
  end;
end;

ЗЫ не забудьте нажать на весы
ЗЗЫ это решение на коленке сделано ^__^

[dolphin705]

Огромное спасибо!

А так вмешательство в компонент стало совсем незаметным при отображении уже вписанного в него текста и перемещении курсора

TextOut(Rect.Left+2, Rect.Top+2, TValueListEditor(sender).Cells[ACol, ARow]);

[ReportCube]

Проблемы начнутся у пользователя, когда он перестанет видеть своё местонахождение: "А где это я сейчас редактирую? Слева или справа?"