Fórum Problema com o Focus no DBGrid, não aparece o Focus! #288545

procedure TCadUser.DBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
 if (DSCadUser.FieldByName(´Privilegiado´).AsInteger = 1) or (DSCadUser.FieldByName(´Privilegiado´).AsInteger = -1) then
 begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := $00FFECC6;
  DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, Column.Field.AsString);
 end;
end;