OnScroll в DBGrid

[Зойберг]

Здравствуйте.

Не подскажете, как в компоненте DBGrid перехватить событие OnScroll и получить абсолютное значение скролла? Я что-то не нашёл там такого события и свойства. Вообще говоря, это нужно для того, чтобы сделать такую штуку:


В качестве редактора цвета использую обычный TColorBox, положение которого подгоняю, чтобы он "вошёл" в поле ввода. OnScroll надо, чтобы положение не нарушалось, когда строк много, и возникает ScrollBar.

Но это кривой метод. Может быть есть компонент, который делает этот цветовой редактор автоматически? А лучше вообще, есть компонент вроде ObjectInspector в дельфи?

[mihali4]

А зачем что-то перехватывать ?
В событии

procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect;
datacol: integer; column: tcolumn; state: tgriddrawstate);

есть то, что вам нужно - заданный прямоугольник (rect) нужного столбца (column), внутри которого вам и нужно располагать ваш TColorBox...
Естественно, при условии, что первый столбец содержит слово COLOR.