FillRect不会在Delphi XE2中绘制完整的TStringGrid单元格

FillRect不会在Delphi XE2中绘制完整的TStringGrid单元格.默认颜色左侧有3个像素间距(BiDiMode设置为bdLeftToRight).这个问题在我以前使用的Delphi 6中不存在.

procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  Stringgrid1.Canvas.Brush.Color:=$00FF80FF;
  StringGrid1.Canvas.FillRect(Rect);
end;

我尝试更改所有属性(包括DrawingStyle)和不同的画笔样式,绘制的矩形不会填满完整的单元格.

解决方法

这是XE2中的预期行为,当DefaultDrawing = true并且主题被启用时(我不会在这里讨论好或坏 – 正如你可能已经注意到,RigthToLeft模式的行为是不同的).

解决方法是在调用FillRect之前检查此条件并将Rect.Left递减4像素.