Проблемы с рисованием на TStringGrid

[Sibedir]

Чёт не придумал ни чего более простого как создать собственный класс StringGrid и перерисовывать все его содержимое при скроллинге.

type
  TScrollingStringGrid = class (TStringGrid)
  private
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
...
procedure TScrollingStringGrid.WMHScroll(var Message: TWMHScroll);
begin
  Repaint;
end;

procedure TScrollingStringGrid.WMVScroll(var Message: TWMVScroll);
begin
  Repaint;
end;

Теперь осталось дописать перерисовку при переходе по ячейкам мышкой или клавой. Там этот эффект не устранен. Но думаю смысл ясен. Разобраться можно. Даю на водку: надо переопределить соответствующие виртуальные методы предков (типа KeyUp). Может и какие другие методы. Точно не знаю. С набега не получилось, а дальше вкупаться уже времени нет (да и желания особого).

Вообще, как мне кажется, данный эффект - это результат нюансов работы канвы и заливки. Перерисовывается только та часть канвы, которая была до этого не видима (Даже если rect = всей области ячейки). Это уже на уровне системы, наверное. А заливка всегда начинается от верхнего левого угла отрисовываемого региона, а он смещен из-за нюансов перерисовки канвы. Как-то так.