| hunterfall
34995
|
2008/7/19 13:36:33 |
| 如何修改A\B\C(title行)的内容啊？ |
| llw1
23721
|
2006/5/19 15:30:28 |
| 不错的东东，找了几天发现这个表格控件最好用，本来想用用友ＣＥＬＬ组件，但安装太烦人． |
| conch
18676
|
2005/10/26 12:03:01 |
0值显示上有点问题，在function StrToMoney里修改：
if (S = ') or (S = '-') or (S = '0.') or (S = '0') or ((StrToFloat(S) = 0) and IsZeroNull) then Exit;
为：
if (S = ') or (S = '-') or (((S = '0.') or (S = '0') or (StrToFloat(S) = 0)) and IsZeroNull) then Exit; |
| towintu
13239
|
2005/3/15 16:52:29 |
| 能否加入个ComboBox效果？ |
| hintland
8808
|
2004/10/19 11:37:16 |
| 那位大哥加上自定义函数功能就好了，朝电子报表方向发展呀 |
| hyb518
4438
|
2004/4/29 9:41:15 |
| 第0行的A、B、C、...和第0列的1、2、3、...标题信息如果可以自定义就好了！ |
| wxj6688
3880
|
2004/4/12 12:14:26 |
EasyGrid1.FixedRows:=2;
EasyGrid1.EasyGridPageInfo.DetailPageInfo.PrintFixedRows:=true;
就可以实现固定行打印，很好
感谢作者，还希望EasyGrid如果能够根据纸张宽度实现自动缩放表格宽度以及内部字体大小就美妙拉。。。期待，这个demo就算我帮作者给大家的吧
|
| wxj6688
3878
|
2004/4/12 11:59:55 |
| 希望EasyGrid 能够在每页都能够打印出固定的列，比如列标头、字段名 |
| wxj6688
3877
|
2004/4/12 11:56:47 |
给各位一个demo
procedure TForm1.Button1Click(Sender: TObject);
var
x:TRect;
y:PCellInfo;
pp:TEasyGridPageInfo;
begin
EasyGrid1.RowCount:=50;EasyGrid1.ColCount:=10;
EasyGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRowSizing,goColSizing,goEditing,goTabs];
x.Top:=1;//上坐标1 行号1
x.Bottom:=1;//下坐标1 行号2
x.Left:=1; //左坐标1 列号1
x.Right:=5; //右坐标5 列号2
EasyGrid1.SetMerges(x); //合并单元格 Cells[1,1] 到 Cells[5,1],单元格 A1就是Cells[1,1]
y:=EasyGrid1.Cells[1,1];//第1列第1行
y.ReadOnly:=false;
y.DrawTop:=true; y.DrawBottom:=true; y.DrawLeft:=true; y.DrawRight:=true;
y.FontName:='宋体';y.FontStyle:=[fsBold];y.FontSize:=11; y.AlignMode:=taCenter;
y.ShowForeText:=true;y.ForeText:='11111111';
y:=EasyGrid1.Cells[1,3];//第1列第3行
y.ReadOnly:=false;
y.DrawTop:=true; y.DrawBottom:=true; y.DrawLeft:=true; y.DrawRight:=true;
y.FontName:='宋体';y.FontStyle:=[fsBold];y.FontSize:=11; y.AlignMode:=taCenter;
y.ShowForeText:=true;y.ForeText:='1234';
pp:=EasyGrid1.EasyGridPageInfo;
pp.DetailPageInfo.HorzCenter:=true;
pp.DetailPageInfo.PrintGridLine:=false;
pp.DetailPageInfo.PrintColTitle:=false;
pp.DetailPageInfo.PrintRowTitle:=false;
pp.DetailPageInfo.PrintFixedRows:=true;
pp.DetailPageInfo.PrintFixedCols:=false;
pp.AfterConstruction;//使设置立刻生效
pp.CommonPageInfo.HeaderExtent:=30;
pp.CommonPageInfo.HeaderDoubleLine:=true;
pp.CommonPageInfo.HeaderLineWidth:=1;
pp.CommonPageInfo.Header2.FontName:='宋体';
pp.CommonPageInfo.Header2.FontSize:=20;
pp.CommonPageInfo.Header2.FontStyle:=[fsBold];
pp.CommonPageInfo.Header2.Content:='大页眉';
pp.CommonPageInfo.Header3.FontName:='宋体';
pp.CommonPageInfo.Header3.FontSize:=10;
pp.CommonPageInfo.Header3.FontStyle:=[fsBold];
pp.CommonPageInfo.Header3.Content:='小页眉';
pp.CommonPageInfo.TailExtent:=30;
pp.CommonPageInfo.Tail2.FontName:='宋体';
pp.CommonPageInfo.Footer2.FontSize:=20;
pp.CommonPageInfo.Footer2.FontStyle:=[fsBold];
pp.CommonPageInfo.Tail2.Content:='结尾';
pp.CommonPageInfo.FooterExtent:=30;
pp.CommonPageInfo.FooterDoubleLine:=true;
pp.CommonPageInfo.FooterLineWidth:=1;
pp.CommonPageInfo.Footer2.FontName:='宋体';
pp.CommonPageInfo.Footer2.FontSize:=10;
pp.CommonPageInfo.Footer2.FontStyle:=[fsBold];
pp.CommonPageInfo.Footer2.Content:='页脚： 第 &P/&C 页 打印日期 &D'; //Footer2代表居中页脚
EasyGrid1.Refresh;
EasyGrid1.Preview;
end;
|
| wxj6688
3866
|
2004/4/12 9:25:37 |
希望能够完善以下：
EasyGrid1.EasyGridPageInfo.CommonPageInfo.MainTitle.Content:='大标题';
能够允许多行显示，等待。。。 |
| wxj6688
3865
|
2004/4/12 9:22:38 |
| 过几天，我给各位一个Demo，目前正在研究 |
| wxj6688
3864
|
2004/4/12 9:21:46 |
| EasyGrid1.EasyGridPageInfo.AfterConstruction;就会使刚才的设置立刻生效 |
| wxj6688
3859
|
2004/4/12 8:23:44 |
为什么
EasyGrid1.EasyGridPageInfo.DetailPageInfo.PrintGridLine:=false;
还是在打印预览时还是有网格线
|
| flyzerg
3681
|
2004/3/30 23:21:26 |
| 能给个：Demo吗？？？ |
| wykm
3668
|
2004/3/30 19:33:51 |
| 能修改一下用于商业开发吗？ |
| wu1234
3622
|
2004/3/30 8:53:02 |
| 最好给个演示 |
