if (Field.AsString ='p') then
begin
DBGrid1.Canvas.Font.Color:=clblack;
DBGrid1.Canvas.Brush.Color:=clred;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
mam tak w DrawDataCell
defaultdrawing:=false
mimo to nie dziala
w dbgrid nic sie zupelnie nie pokazuje .