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

发布时间：2020-12-15 10:05:09 所属栏目：大数据来源：网络整理

导读：FillRect不会在Delphi XE2中绘制完整的TStringGrid单元格.默认颜色左侧有3个像素间距(BiDiMode设置为bdLeftToRight).这个问题在我以前使用的Delphi 6中不存在. procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect;

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像素.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!