对SringGrid的两个过分要求，不知能否实现？很急！

[spiral]

1.需要对其中的两条网格线（列方向）着色
2.可否将一行中的很多cell之间的分隔线去掉，变成一行空白栏

stringgrid 能实现吗？还是需用其他控件？

[jinjazz]

怎么让StringGrind画单元格子的那个灰色线条变成黑色?
主要解答者: zswangII 提交人: yinzhiw
感谢:
审核者: hkbarton 社区对应贴子: 查看
A :

我怎么让StringGrind画单元格子的那个灰色线条变成黑色呢?
---------------------------------------------------------------

function ZoomRect(mRect: TRect; mZoom: Integer): TRect;
begin
Result.Left := mRect.Left - mZoom;
Result.Right := mRect.Right + mZoom;
Result.Top := mRect.Top - mZoom;
Result.Bottom := mRect.Bottom + mZoom;
end; { ZoomRect }

type
TStringGridEx = class(TStringGrid);

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
TStringGridEx(Sender).OnDrawCell := nil;
try
TStringGridEx(Sender).Canvas.Pen.Color := clBlack;
TStringGridEx(Sender).DrawCell(ACol, ARow, Rect, State);
TStringGridEx(Sender).Canvas.Rectangle(ZoomRect(Rect, 1));
finally
TStringGridEx(Sender).OnDrawCell := StringGrid1DrawCell;
end;
end;