社区
Delphi
帖子详情
怎样让Printer.Canvas.Pixels[9,9] := clBlack打印出来的象素点更清楚啊?
ecgnis
2002-11-15 03:07:00
怎样让Printer.Canvas.Pixels[9,9] := clBlack打印出来的象素点更清楚啊?打印出来一点儿也看不清,有什么函数可以让这个象素点更大一些吗?我的打印机是1200 每英寸1200点
...全文
83
14
打赏
收藏
怎样让Printer.Canvas.Pixels[9,9] := clBlack打印出来的象素点更清楚啊?
怎样让Printer.Canvas.Pixels[9,9] := clBlack打印出来的象素点更清楚啊?打印出来一点儿也看不清,有什么函数可以让这个象素点更大一些吗?我的打印机是1200 每英寸1200点
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
14 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zwhhoo
2002-11-27
打赏
举报
回复
你不如textout一个中文字符的小点代替你图的点,这样肯定很快的。
ecgnis
2002-11-27
打赏
举报
回复
to zwhhoo(我爱真理) :好象行,我试试:)
ecgnis
2002-11-21
打赏
举报
回复
谢谢版主,我的程序只能硬改打印机的分辨率啊,不允许等比例缩放。因为我的要求是将打印机的分辨率降下来,让一个象素点打印出来能看清楚。有谁会使printers.getprinter,printers.setprinter. 千万不要乱贴一段代码,我也有但不会用啊。
daniel007
2002-11-20
打赏
举报
回复
好像TDeviceMode不能设置分辨率的(至少我不知道,呵呵),分辨率你只能考虑逻辑坐标向物理坐标靠拢,参考一下有关坐标映射的资料 SetMapMode等等(好像D5开发人员指南商就有)
ecgnis
2002-11-18
打赏
举报
回复
to feibob(灵猫) :那用什么函数可在程序中将打印机的分辨率设成300dpi呢?
ecgnis
2002-11-16
打赏
举报
回复
to feibob(灵猫):不行啊,我不是要PEN的宽度,是printers.canvas的象素大小,只有在300 dpi 下,一个象素才能看到,我是想问问怎样将打印机的分辨率设成300 dpi 下,谁能告诉我这样的函数。别的方法都没有用啊。
cgh1970
2002-11-16
打赏
举报
回复
up
feibob
2002-11-16
打赏
举报
回复
TPrinter.GetPrinter();调用TDeviceMode结构吧,它有个dmPrintQuality字段来指定打印质量...
自己看看帮助,代码太长,我就不写了...:)
duanhai
2002-11-16
打赏
举报
回复
那你在打印機設置裡面試試。
feibob
2002-11-15
打赏
举报
回复
先要加上这一句才行,不然它把你当作一个象素的线宽来考虑.当然细得看不清了....:)
feibob
2002-11-15
打赏
举报
回复
设定你的线宽!!!
Printer.Canvas.Pen.Width:= 你所要的象素宽度......
wisenowa
2002-11-15
打赏
举报
回复
用API函数Arc画圆式一下,第一个参数为Printer.Canvas.Handle
看看速度如何?
ecgnis
2002-11-15
打赏
举报
回复
您好,实心圆更慢。我是往HP 1200 打印机上画心电图网格啊,不知为什么特别慢,
Printer.Canvas.Pixels[X, Y] := clBlack快了不少,但必须300*300下才能看清象素点,但HP 1200 打印机
的最小设置为:600 dpi 啊,我是想问如何用程序设置打印机的打印分分辨率为300 dpi,
wisenowa
2002-11-15
打赏
举报
回复
画一个实心的圆
用Delphi编写
打印
程序的窍门
如果想让
打印
程序在任何
打印
机上都能正常地
打印
你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的
打印
效果是不同的 举例来讲
pr
inte
r.
Canvas
.rectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的...
Delphi中票据条码的
打印
中(像素)和厘米的换算关系
Result := GetDeviceCaps(
Pr
inte
r.Handle, LOG
PIXELS
X) end; function Get
Pixels
PerInchY:
Inte
ger; begin Result := GetDeviceCaps(
Pr
inte
r.Handle, LOG
PIXELS
Y) end; 1厘米=100*Get
Pixels
PerInchY/25.4 像素 ...
Pr
inte
rs(二) 画布
Canvas
定制
影响
打印
机实际
打印
位置的因素:
打印
机画布分辨率、
打印
机画布字体指定。若想同样的
打印
信息,对任何
打印
机都适用布局不会发生变化,设置
打印
机位置时需要考虑。// lpx,lpy,lxin,lyin :
inte
ger ; // ll ,lt : ...
Delphi
打印
,设置在
打印
机画布的位置和大小,设置
打印
预览的大小
[code="c++"]
Pr
inte
r.BeginDoc; ...
Pr
inte
r.
Canvas
.StretchDraw(MyRect1,Image1.Picture.Bitmap); // 设置 MyRect2 在
打印
机画布的位置和大小
Pr
inte
r.
Canvas
.StretchDraw(M...
AS编译异常Suggestion: use tools:overrideLibrary="" to force usage
错误信息: Error:Execution failed for task ‘:app:
pr
ocessDebugManifest’. Manifest merger failed : uses-sdk:minSdkVersion 14 cannot be smaller than version 16 declared in library [xxx.xxx:1.0.0] ...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章