DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: melqui
今日帖子: 21
在线用户: 12
导航: 论坛 -> 报表专区 斑竹:sunyesy,iamdream  
作者:
男 aknightchen (.) ★☆☆☆☆ -
盒子活跃会员
2023/1/9 14:12:36
标题:
TO flying wang: 和您讨论一个frxExportPDF.pas中的修改问题, 关于Scale := Max(Scale, Scale * Sqrt(PictureSquare / Tem 浏览:775
加入我的收藏
楼主: 我要报表中, 会抓到图片也打印出来,

同时, 我设置了frxPDFExport1.SaveOriginalImages:=True;
.
这样, 导出的pdf, 就会打印出图片的全部像素( 我可以在pdf中放大,放大, 看到真实的图像)

但我发现: 您在frxExportPDF.pas中,有修改代码:

        //fix by flying wang.
        if PictureSquare > TempSquare then
          Scale := Max(Scale, Scale * Sqrt(TempSquare / PictureSquare));
        if PictureSquare < TempSquare then
          Scale := Min(Scale, Scale * Sqrt(PictureSquare / TempSquare));

经我测试: 如果使用你这个代码, 打印出的图像像素很低.
还是使用原先它的代码(如下):

      if PictureSquare > TempSquare then
        Scale := Max(Scale, Scale * Sqrt(PictureSquare / TempSquare));

才能出原始像素图片(可无限放大)


---->无限放大到原始像素的好处: 比如: 我给别人pdf档, 上面有打印照片, 别人可以自已放大pdf,就看到原始照片.
----------------------------------------------
...
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS