Encontrado en la sección "Trucos" de
www.clubdelphi.com
*************************************************
procedure TForm.DBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
try
with TCrakerDB(sender) do begin
if DataLink.Fields[0].Value then
if DataLink.ActiveRecord = row - 1 then
Canvas.Brush.Color := clBlack
else
Canvas.Brush.Color := $00FFFFC4;
end;
DBParrilla.DefaultDrawColumnCell(Rect, DataCol, Column, State);
except
end;
end;
*************************************************