公布一款精品grid的源码(vcl),具体功能在www.yfsoft.cn上,顶部YFGRID链接,感兴趣的请留下email地址,国庆前给大家发出源代码。
注:本源码仅供研究、学习使用,未经本人同意切勿用于商业开发。本人另一款软件扬帆票据打印专家也在www.yfsoft.cn上有介绍,属于精确定位打印类型的软件,可以自定义票据模板,核心也是一个vcl控件。有兴趣的朋友请下载给我评估一下。本人正在推广扬帆票据打印专家这款软件,愿意与各界有推广能力的朋友合作。需要联系请加入下面的qq群,注明yfgrid或扬帆票据打印专家。qq群:35917440
注:本源码仅供研究、学习使用,未经本人同意切勿用于商业开发。本人另一款软件扬帆票据打印专家也在www.yfsoft.cn上有介绍,属于精确定位打印类型的软件,可以自定义票据模板,核心也是一个vcl控件。有兴趣的朋友请下载给我评估一下。本人正在推广扬帆票据打印专家这款软件,愿意与各界有推广能力的朋友合作。需要联系请加入下面的qq群,注明yfgrid或扬帆票据打印专家。qq群:35917440
procedure TYFGridSheet.SetCellsBorderNone;
var
i, j: integer;
ACell: TYFGridCell;
begin
for i := 0 to SelectRange.W - 1 do
for j := 0 to SelectRange.H - 1 do
begin
ACell := GetACellFromRange(SelectRange, i, j);
SetCellBorder(ACell, 0, 0, 0, 0);
end;
end;
[email protected]
[email protected]
謝謝
请给我发一份,
谢谢![email protected]
万分感谢!!
[email protected]
[email protected]
ruihuo<a>qq.com奇怪,你们留邮件地址都没收到过垃圾邮件?我都不敢再网上留带@的东西了。以上<a>表@
Email: [email protected]
非常感谢.
[email protected]
[email protected]
var
i, j: integer;
ACell: TYFGridCell;
begin
for i := 0 to SelectRange.W - 1 do
for j := 0 to SelectRange.H - 1 do
begin
ACell := GetACellFromRange(SelectRange, i, j);
SetCellBorder(ACell, 0, 0, 0, 0);
end;
end;
[email protected]