重置delphi Printer对象
http://www.efg2.com/Lab/Library/UseNet/1999/0714b.txt
From: "Nick Ryan" <nick@avatardesign.co.uk>
Subject: Re: D1 printing problem: incorrect font sizes
Date: 14 Jul 1999 00:00:00 GMT
Message-ID: <7mi4cp$2ot9@forums.borland.com>
References: <378C94B3.DFDF6FEB@bergsoft.de>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
Organization: Another Netscape Collabra Server User
X-MSMail-Priority: Normal
Newsgroups: borland.public.delphi.winapi,borland.public.delphi.objectpascal Daniel Berg (Berg Soft) <berg@bergsoft.de> wrote in message
news:378C94B3.DFDF6FEB@bergsoft.de...
> Hi there,
>
> I've got the following the following problem using D1 (on D2 and later
> the problem does not occur)
>
>
> I can select different printers with different resolutions from the
> printdialog.我可以从打印机对话框里 选相应不同分辨率的不同打印机。
> Printing to any printer works fine when the prog just started (i.e:
> Printing to Printer1, then shutdown prog, run again, then print to
> Printer 2 works perfect). 当程序刚启动时,打印到任何一个打印机都是正常的。比如打印到 打印机1,然后关闭程序。 再次运行,然后打印 到 打印机2,一起正常。
>
> Printing to a second printer AFTER printing to a first printer scales
> all fonts by
>
> Resolution(Printer1)/resolution(Printer2);
打印到第一个打印机后,(不关闭程序)直接再打印到第二个打印机时,缩放了所有的字体 以
第一个打印机 分辨率 / 第二个打印机分辨率 的比例。
>
> I have already tried the following without success:
>
> - Creation of the form that uses the printers unit at runtime AFTER
> printdialog.execute to create a new printer instance everytime
>
> - I have checked printers resolution with GetDeviceCaps: printer
> change is recognized correctly.
>
> Does anyone has an idea of whats wrong? It's some weird bug in Delphi's TPrinter that causes information to be
retained from a previous print session. (It affects the line thickness of
printing using D3). 这是打印机对象中的一些奇怪BUG。导致信息 从前一次打印会话中 保留。 The following code forces a complete refresh of the Printer object in D3 -
it *should* work in D1 as well... procedure ResetTPrinter;
var
APrinter:TPrinter;
begin
if (not Printer.Printing) then begin
APrinter := SetPrinter(NIL);
if (APrinter <> NIL) then APrinter.Free;
end; {if}
end;
//我看新版的VCL源代码里直接 一行代码 就行了 SetPrinter(nil).Free; Nick
重置delphi Printer对象的更多相关文章
- 多线程的基本概念和Delphi线程对象Tthread介绍
多线程的基本概念和Delphi线程对象Tthread介绍 作者:xiaoru WIN 98/NT/2000/XP是个多任务操作系统,也就是:一个进程可以划分为多个线程,每个线程轮流占用CPU运行 ...
- delphi:临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体,在windows单元中定义: 是I ...
- Delphi 绘图对象
来自:http://blog.csdn.net/lailai186/article/details/8755430 ========================================== ...
- Delphi栈对象
来自:http://blog.csdn.net/iseekcode/article/details/5158985 ------------------------------------------ ...
- Delphi GDI对象之绘制位图
http://www.cnblogs.com/pchmonster/archive/2012/07/06/2579334.html 绘制位图(Drawing Bitmaps) 绘制位图听起来似乎很难, ...
- Delphi中流对象的应用
Delphi的流对象(TStream的派生对象)有如下读写函数: function Read(var Buffer; Count: Longint): Longint;function Write(c ...
- Delphi的对象注销方法Destroy和free
当您使用完对象后,您应该及时撤销它,以便把这个对象占用的内存释放出来.您可以通过调用一个注销方法来撤销您的对象,它会释放分配给这个对象的内存. Delphi的注销方法有两个:Destroy和Free. ...
- Delphi - 互斥对象下实现系统的单例模式
使用CreateMutex函数创建互斥对象 利用Windows系统函数CreateMutex(),找出当前系统是否已经存在指定进程的实例,如果没有则创建一个互斥体. CreateMutex函数原型如下 ...
- Delphi COM对象
作者:巴哈姆特 http://www.cnpack.org(转载请注明出处并保持完整) 如果没有接触过COM对象的话,你会觉得接口真的很麻烦,也许会有:“还不如直接定义一个类更方便”的想法. 的确, ...
随机推荐
- C简介与环境配置
C 语言是一种通用的高级语言,最初是由丹尼斯·里奇在贝尔实验室为开发 UNIX 操作系统而设计的.C 语言最开始是于 1972 年在 DEC PDP-11 计算机上被首次实现. 在 1978 年,布莱 ...
- ubuntu16.04下编译ceres-solver
一.编译环境 ubuntu16.04 二.准备工作之安装必要的库 2.1安装cmake sudo apt-get install cmake 2.2 安装google-glog + gflags su ...
- 九数组分数|2015年蓝桥杯B组题解析第五题-fishers
九数组分数 1,2,3...9 这九个数字组成一个分数,其值恰好为1/3,如何组法? 下面的程序实现了该功能,请填写划线部分缺失的代码. #include <stdio.h> void t ...
- 【第二十五章】 springboot + hystrixdashboard
注意: hystrix基本使用:第十九章 springboot + hystrix(1) hystrix计数原理:附6 hystrix metrics and monitor 一.hystrixdas ...
- [Redis] - redis实战
Microsoft Windows [版本 10.0.17134.472] (c) Microsoft Corporation.保留所有权利. C:\Users\SeeClanUkyo>f: F ...
- .Net Core EF Core之Sqlite使用及部署
1.添加引用Nuget包 Microsoft.EntityFrameworkCore.Sqlite Microsoft.EntityFrameworkCore.Design Microsoft.Ent ...
- 如何给域名配置https证书
http和https的区别就是,后者在网络传输过程中会很安全,原因就是给http安装了SSL证书. SSL证书有免费的和收费的,收费的顾名思义就是保护的方面更多,更安全.收费的像单域名的一年有几百.几 ...
- MVC ---- T4模板的小练习
1.先建立两个模板文件 :Manger.ttinclude.DBHelper.ttinclude Manger.ttinclude <#@ assembly name="System. ...
- 推荐一个SAM文件中flag含义解释工具--转载
SAM是Sequence Alignment/Map 的缩写.像bwa等软件序列比对结果都会输出这样的文件.samtools网站上有专门的文档介绍SAM文件.具体地址:http://samtools. ...
- spoj TBATTLE 质因数分解+二分
题目链接:点击传送 TBATTLE - Thor vs Frost Giants #number-theory #sliding-window-1 Thor is caught up in a fie ...