procedure Tfm1.DBGridEh2DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin with TDBGridEh(Sender).Canvas do begin Pen.Color:=clRed; Brush.Style:=bsClear; Rectangle(Rect); end; end;
with TDBGridEh(Sender).Canvas do begin Pen.Color:=clRed; Brush.Style:=bsClear; Rectangle(Rect); end; 画出的表格有些粗
Field: TField; State: TGridDrawState);
begin
with TDBGridEh(Sender).Canvas do
begin
Pen.Color:=clRed;
Brush.Style:=bsClear;
Rectangle(Rect);
end;
end;
begin
Pen.Color:=clRed;
Brush.Style:=bsClear;
Rectangle(Rect);
end; 画出的表格有些粗
没有修改到格线
如果需要修改格线,就需要修改控件了~~
给你一个可以修改格线的扩展stringgrid控件~~~thunder://QUFodHRwOi8vY29kZS5uYjUuY24vY29kZS9VcGxvYWRGaWxlL3NvZnQvMjU5LzIwMDcwNC9jbjcwMF9kZWw3MTk1MzQ1NjYyLnJhclpa