Dbgrid С Цветной Строкой

[novachok]

Подскажите как можно закрасить всю строку одним цветом а ячейку другим?
У меня закрашивается или вся строка или только ячейка. А нужно так: пользователь клацнул по ячейке, она выделяется одним цветом, и эта-же строка сначала и до конца светлосерым цветом. У меня только ячейка закрашивается! как закрасить светлосерым цветом???

 

[sinkopa]

Подскажите как можно закрасить всю строку одним цветом а ячейку другим?
У меня закрашивается или вся строка или только ячейка. А нужно так: пользователь клацнул по ячейке, она выделяется одним цветом, и эта-же строка сначала и до конца светлосерым цветом. У меня только ячейка закрашивается! как закрасить светлосерым цветом???

type
THDBGrid = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
RowIsActive: Boolean;
CellIsSelected : Boolean;
begin
CellIsSelected := (gdSelected in State);
with THDBGrid(Sender) do
begin
RowIsActive := (DataLink.ActiveRecord = Row-1);
end;

with TDBGrid(Sender) do
begin
if CellIsSelected then
Canvas.Brush.Color := $00FFDA8C // голубой
else if RowIsActive then
Canvas.Brush.Color := $00EFEFEF // светло-серый
else
Canvas.Brush.Color := clWindow;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

end;

 

[-master-]

Ссылка скрыта от гостей

 

[MisterSpock]

В принципе, стандартно перехватывается событие OnDrawColumnCell, и вперёд. Это вообще универсально, перехватывать обраьотчик рисования конкретного объекта, не только DBGrid касается.