title: FillRect doesn't paint the complete TStringGrid cell in Delphi XE2
body: <p><code>FillRect</code> doesn't paint the complete <code>TStringGrid</code> cell in Delphi XE2. There is a gap of 3 pixels on the left side in the default color (with <code>BiDiMode</code> set to <code>bdLeftToRight</code>). This problem doesn't exist in Delphi 6 which I used before. </p>
  
  <pre><code>procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  begin
    Stringgrid1.Canvas.Brush.Color:=$00FF80FF;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  </code></pre>
  
  <p>I tried to change all properties (including the <code>DrawingStyle</code>) and different brush styles, the painted rectangle doesn't fill the complete cell.</p>