DefaultDrawing zmień na false
A W onDrawColumnCell wpisz:
with dbgrid1.Canvas do
begin
FillRect(Rect);
dbgrid1.DefaultDrawColumnCell(Rect, DataCol,Column, State);
IF Datacol = tu numer kolumny w której masz Logical Then
Begin
Brush.Color:= ClGreen ;
// TextOut(Rect.Left+1, Rect.Top+1, 'negatywny');
IF Tablejakastam.FieldByName('Wynik').AsBoolean = True then
Begin
Brush.Color:= ClRed;
// TextOut(Rect.Left+1, Rect.Top+1, 'pozytywny');
End;
FillRect(Rect);
End;
End;
czy jakoś tak, chwilowo nie mam możliwości sprawdzić.