delphi xe7 StringGrid填充颜色问题?

[CB1013]

------
StringGrid1.Canvas.Font.Color := clred;
StringGrid1.Canvas.Brush.color:=clMoneyGreen;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[Acol,ARow]);

为什么列会这么宽，颜色没填满。GridLineWidth:=1;

[BlueStorm]

不知道具体原因，但你自己可以调整一下： with Rect do begin Dec(Left, 4); Dec(Right, 0); Dec(Top, 1); Dec(Bottom, 1); end;