请问有办法获得页眉的高度吗？

嘻嘻，我又来了，请问有办法获得页眉的高度吗？如果有的，应该怎么获得呢?

目前我正在用试用版的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的值应该支持小数位，现在只能是整型。