平台里如何调出字体修改对话框？**

rzport_lq0 · 发表于 2009-5-11 10:33:19

那如何修改表格中某个字段的属性？

lixy · 发表于 2009-5-11 10:36:20

1、画线请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=7451 22楼的代码
2、给单元格赋值，请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=1861
3、获取字段的值，例如 dsData.DataSet.FieldByName('LR').AsString
4、获取数据集的字段名，http://bbs.justep.com/forum.php?mod=viewthread&tid=4312

rzport_lq0 · 发表于 2009-5-11 12:22:11

这个新闻发布.内容单元格的坐标是多少？？

单元格合并是怎么算坐标的？

lixy · 发表于 2009-5-11 12:56:00

按左上角的算

rzport_lq0 · 发表于 2009-5-11 13:29:20

cells[2,8]?cells[3,8]?还是cells[4,8]？这些都不对。

lixy · 发表于 2009-5-11 13:36:05

你把格子尝试赋值一下，然后推断坐标。

lixy · 发表于 2009-5-11 13:40:06

更改单元格的值后，需要刷新文档，文档的刷新需要关闭再打开，不支持使用Refresh，代码参考如下：
DocViewSL.Doc.Close;
更改单元格内容
DocViewSL.OpenView(TDocMode.dmEdit, DocViewSL);

rzport_lq0 · 发表于 2009-5-11 14:38:50

我实在是改变不了这个字段的属性
，按照以上做法都没有效果，你们能不能给我个例子，用来改变某一个字段的字体。

lixy · 发表于 2009-5-11 15:08:38

procedure TMainForm.Button1Click(Sender: TObject);
begin
//2,4
DocViewYWXX11_SJWG1.Doc.Close;
Business.Model.TSheetDoc(DocViewYWXX11_SJWG1.Doc).Cells[2,4].Font.Name :='华文彩云';
Business.Model.TSheetDoc(DocViewYWXX11_SJWG1.Doc).Cells[2,4].Font.Color:=$8388863;
DocViewYWXX11_SJWG1.OpenView(TDocMode.dmEdit);
end;

lixy · 发表于 2009-5-11 15:27:46

gif

		自动登录	找回密码
密码			立即注册