procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
clPaleGreen = Tcolor($CCFFCC);
clPaleRed = TColor($CCCCFF);
clPaleYellow= TColor($FFFF00);
begin
if column.Field.DataSet.FieldByName('HECHO').AsString='NO'
then
if (gdFocused in State)
then dbgrid1.Canvas.brush.Color:=clblack
else
dbgrid1.Canvas.brush.Color:=clPalered;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
if column.Field.DataSet.FieldByName('HECHO').AsString='SI'
then
if (gdFocused in State)
then dbgrid1.Canvas.brush.Color:=clblack
else
dbgrid1.Canvas.brush.Color:=clPaleGreen;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
if column.Field.DataSet.FieldByName('PRIORIDAD').AsString='URGENTE'
then
if (gdFocused in State)
then dbgrid1.Canvas.brush.Color:=clblack
else
dbgrid1.Canvas.brush.Color:=clPaleYellow;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;