StringGrid farblich in XE7 anders als in Delphi 2006

[HolgerCW]

Hallo zusammen,

in Delphi XE7 werden jetzt meine StringGrind-Zellen nicht mehr komplett mit der Farbe gefüllt.

Delphi-Quellcode:

With STG_1 do
 begin

  If (ACol = 5) AND (ARow > 0) then
  begin

   Canvas.Brush.Color := clGradientInactiveCaption;
   Canvas.FillRect(Rect);

   Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

  end;

 end;

Es bleibt links ein kleiner Rand. Warum ? Siehe hier:

Kleinbestellungen-2015-02-06 12_03_50.jpg

Gruss

Holger