请问有办法获得页眉的高度吗?
嘻嘻,我又来了,请问有办法获得页眉的高度吗?如果有的,应该怎么获得呢? 目前我正在用试用版的TX ,请问当我们买了正版的tx,正版的兼容试用版的嘛?因为11的控件用18后,必须重新注册控件,然后在开发工具里还得全部重新编码。 试用了一下又发现一个问题,我用18版本的tx做了一个文件,然后通过代码导入到我的程序,就报这个错误:cannot read from or write to a file ( 1 - 415),我编写的代码如下:
string ls_path,ls_file
if GetFileOpenName ("Open", ls_path, ls_file, "Txw","Txw Files (*.txw),*.txw,Text Files (*.TXT),*.TXT,All Files (*.*), *.*") = 1 then
ole_text.object.headerfooterselect(0)
//打开文件
ole_text.object.text= ''
ole_text.object.LoadSaveAttribute(37,true)
ole_text.object.Load( ls_path, 0 ,3)---执行到这就报错了,报错提示如上
If ole_text.object.LoadSaveAttribute(0) > 0 Then ole_text.object.PageWidth = ole_text.object.LoadSaveAttribute(0)
If ole_text.object.LoadSaveAttribute(1) > 0 Then ole_text.object.PageHeight = ole_text.object.LoadSaveAttribute(1)
if ole_text.object.LoadSaveAttribute(2) > 0 Then ole_text.object.PageMarginL = ole_text.object.LoadSaveAttribute(2)
If ole_text.object.LoadSaveAttribute(3) > 0 Then ole_text.object.PageMarginT = ole_text.object.LoadSaveAttribute(3)
If ole_text.object.LoadSaveAttribute(4) > 0 Then ole_text.object.PageMarginR = ole_text.object.LoadSaveAttribute(4)
If ole_text.object.LoadSaveAttribute(5) > 0 Then ole_text.object.PageMarginB = ole_text.object.LoadSaveAttribute(5)
ole_text.object.ScrollPosY=0
changedirectory(gs_app_path)
else
changedirectory(gs_app_path)
end if
麻烦看一下是什么原因啊? 回复 2楼好难注册的帖子
好难注册 你好,
试用版具备并且兼容正式版的所有功能。需要重新编译、引用 DLL、生成 license 文件。
其他问题,明天我搭建环境后回复。 以上两个问题我都已经解决了。得到页面的高度我用了点小聪明,不是很准确,勉强能凑和。导出与导入是18版本编码有问题,需要另外处理文件内容,就没问题了。你环境搭好没?PB里是怎么调用打印预览的呢?我看了帮助里只有VB的使用方法。我模拟了一下,代码如下://打印预览
ole_text.object.PrintDevice= Handle(ole_text)
ole_text.object.PrintZoom = 25
ole_text.object.PrintPage(1)-----执行到这就报错了。 回复 5楼好难注册的帖子
好难注册 你好,
不好意思,让你久等了。
这个问题我已经反馈给厂商,有结果会及时更新帖子状态。 回复 5楼好难注册的帖子
Winform 版本中,打印预览通过调用 PrintPreview(string docName) 实现的,请问是否尝试? 我们是买的activex, 回复 8楼好难注册的帖子
好难注册 你好,
厂商的回复为:因为 TX TextControl 没有在 PB 环境下进行测试,所以无法保证 TX 的所有功能在 PB 环境下可以正常使用。
我查看了你的代码,属于帮助文档中给出的 VB 环境下的标准预览方式,如果正常预览,那应该就是不支持。 delphi,VB,pb这三者都类似,我看了一下delphi的例子的代码,它所谓的预览就是再另外画个窗口,然后一行行写代码的,我一直以为是这个控件有个封装好的函数,只要调用一下就可以实现了。就像调用字体的函数TXTextControl.FontDialog,这个调用就会弹出一个窗体,应该让你们厂商写个printpreview的封装函数可以直接调用。还有一个小小的建议,在设置控件字体的时候,TXTextControl.FontSize = value ,这个value的值应该支持小数位,现在只能是整型。
页:
[1]
2