说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何在WINDOWS中控制打印字体的长宽,而不受限于SIZE 的限制-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
如何在WINDOWS中控制打印字体的长宽,而不受限于SIZE 的限制-Delphi资料

首先为了达到这个功能,可以采用Windows的逻辑字体(LogFont)

可以使用 CreateFont 或 CreateFontIndirect 这两个Windows API

函数来定义任何想要的字体,由于 CreateFont 所需的参数甚多通常

我们使用 CreateFontIndirect 来建立所需的逻辑字体,这个API函数

在Delphi中的声明为

function CreateFontIndirect(const p1: TLogFont): HFONT; stdcall;

其中只有一个参数 p1: TLogfont

所有有关字体的参数完全通过这个

TLogfont结构来传送,Windows将根据结构中的内容创建出相应的逻辑

字体,在Delphi的Windows.pas中TLogFont是这样定义的

TLogFontA = packed record

lfHeight: Longint;

lfWidth: Longint;

lfEscapement: Longint;

lfOrientation: Longint;

lfWeight: Longint;

lfItalic: Byte;

lfUnderline: Byte;

lfStrikeOut: Byte;

lfCharSet: Byte;

lfOutPrecision: Byte;

lfClipPrecision: Byte;

lfQuality: Byte;

lfPitchAndFamily: Byte;

lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;

end;

TLogFontW = packed record

lfHeight: Longint;

lfWidth: Longint;

lfEscapement: Longint;

lfOrientation: Longint;

lfWeight: Longint;

lfItalic: Byte;

lfUnderline: Byte;

lfStrikeOut: Byte;

lfCharSet: Byte;

lfOutPrecision: Byte;

lfClipPrecision: Byte;

lfQuality: Byte;

lfPitchAndFamily: Byte;

lfFaceName: array[0..LF_FACESIZE - 1] of WideChar;

end;

TLogFont = TLogFontA;

其中涉及到很多参数,其中

lfHeight: Longint;

指定以逻辑单位标定的字体高度,取值可为正负或零,对于需要随意

定义字体高度的情况下通常取负值,以保证获得实际尺寸的字体。

lfWidth: Longint;

用于指定字体的平均宽度,由于Windows系统下的大多数字体都是比例

字体因而采用平均宽度这个表示方法。若指定为0,则系统会自动根据

适当的比例自动处理宽度。

lfEscapement: Longint;

指定输出方向与当前坐标系X轴之间的以十分之一度为单位的角度。

lfOrientation: Longint;

指定每个字符与当前坐标系X轴之间的以十分之一度为单位的角度。在

Windows95中这个值等同于lfEscpement。

lfWeight: Longint;

指定范围为从0至1000的字体加重程度,400是标准字体700为加重字体,

0表示采用默认值。

lfItalic: Byte;

不为0表示采用斜体字。

lfUnderline: Byte;

不为0表示带下划线。

lfStrikeOut: Byte;

不为0表示带穿透线。

lfCharSet: Byte;

指定字体集。

lfOutPrecision: Byte;

指定输出精度。用于确定对前面一些设定值的精确程度。

lfClipPrecision: Byte;

指定裁剪精度。裁剪是Windows图形环境下的一种特殊处理,简单说就是

去掉图形中落在视图以外的部分,有助于提高图形的处理速度。

lfQuality: Byte;

指定输出质量。

lfPitchAndFamily: Byte;

指定字体的Pitch和Family。

lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;

指定采用的字体名称。

在建立逻辑字体时,我们通常使用

lfHeight和lfWidth来确定字体的尺寸,使用lfEscapement和lfOrientation

来确定字体的输出方向,使用lfWeight

lfItalic

lfUnderline

lfStrikeOut

来确定字体的加重,斜体,下划线和穿透线,使用lfCharSet

来确定字体的字符集,通常采用系统默认的字符集。

对于lfOutPrecision

lfClipPrecision

lfQuality一般应用于对屏幕之外

的输出设备,通常采用默认值。采用lfPitchAndFamily来确定采用定宽或可

变字体和字体的家族。以lfFaceName来通过名称选择采用的字体。

另外应当注意在Windows环境下,每种字体具体输出为何种形式取决于很多

因素,需要对以上这些参数进行有效的组合才能达到所要的效果。

iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 论OpenAPI的起源与历史 LinkedIn开源低延时变化数据捕获系统Databus 微软发布全新WP应用 随时查看App崩溃信息 做iOS开发,我为什么弃用Objective-C而选择RubyMotion? Stinger Initiative:让Hive提速100倍 2013年云计算的九大威胁 W3C小组发起新“汽车与Web平台业务组”项目 苹果CEO:请忘掉股价 未来依然有伟大产品 两周营收100万,GO桌面在Google Play做对了什么 “吸金王”Puzzle & Dragons是如何炼成的 初创公司Kickboard:让父母了解孩子的在校表现 Rackspace收购开源数据库公司ObjectRocket 投资人表示微软应推出iPad版Office 三星:谷歌养大的一匹狼 UC九游年度战略:2013计划分成超3亿元 X-Canvas:UC将发布高性能HTML5游戏引擎 淘宝:OceanBase分布式系统负载均衡案例分享 Cloud Foundry面临代码分支 关于ADO驱动MDAC版本的疑问 兄弟要工作了,是不是只要见到领导都要打次招呼? 我的问题!! 最近在用MFC写GDI程序,请前辈们给点建议 老兄给一些建议啊!用VB做什么毕业设计比较合适啊? 急,获取主板信息的问题! 请教finder的排序问题 mysql对一个数据库中表的数量有没有限制? 100分,急求控件的编写方法~!!!!我在做的项目想用到类似于vc编译器左边的class,resource,file view的窗口控件,谁有? 为什么我收到的邮件列表每次都是乱码?怎样打开? 大家帮看看这段代码哪出问题了,在线给分 求高效统计算法(在线等待,采纳着需要分来信200) 怎样将bcb中vcl 及其他组件改为activex??? 微软的面试题 treeview 控件在客户端的操作? 怎样在程序里找无标题的DLG! j2me中请问如果将textField中的内容写入到moto388手机的记事本中? 谁可以和我说一下LINUX是如配置的! 请问:如何在java通过xml文件和他的schema,既得到标签里的内容,有能够知道内容的类型 已修改的列 C++Test讨论区 菜鸟提问,大家不要笑我啊! 这里还有人在用Java IDE工具JawaBeginer的吗? 有谁知道aspopup控件的功能和作用--在线等待 100分,急求控件的编写方法~!!!!我在做的项目想用到类似于vc编译器左边的class,resource,file view的窗口控件,谁有? 简单的菜鸟问题!! 如何写WPE这种类型的软件? 向DX请教两个开发上的问题,请不吝赐教! java中字符串数组,转化为javascript数组,jsp页面显示为乱码,代码如下: 小问题一个 有关QuickStart中示例 求SQL语句,一表值通过另一表更新 关于activebar 2。0 请问哪个中译英的免费软件好一点啊? 大虾救命:TCP编程的客户端端口占用问题 关于记录集的关闭! 本人现在做一个例程时遇到问题,编译后什么反应都没有,请教~~~~ 参数传递问题 刷新 LPCSTR在哪个文件里定义的? 如何判断一个存储过程已经存在??(在线) 关于TOMCAT的配置问题? datawindow的checkbox里可以放图片吗? 关于COMS的问题 interbase 数据库损坏???? 在线等待(100) 怎样使得打印预览文档位于数据窗口的正中间.在线等待...谢谢 在VB中,用ADO怎么才能用oracle的DBLink传输数据 在VC中如何遍历注册表 我好着急,好难过为什么没有人回答 Google是不是又被封了?!这几天怎么都上不去... 如何自启动程序?? 请在这里概述您的问题 我懂得了.看见了大海,我懂得了浩瀚; 看见蓝天,我懂得了辽阔; 看见小朋我懂得了.看见了大海,我懂得了浩瀚; 看见蓝天,我懂得了辽阔; 看见小朋友,我懂得了友爱 函数我总是学不会.求教导. 关于摩擦力的产生条件之一相对运动趋势这个相对运动趋势我不明白! 0.9695保留整数是(),保留一位小数是(),精确到百分位是 我初中数学本来挺好的,就学函数那里的时候因为一些事一次函数就没有学到,后来做一次函数就不会,学二次函数时也就没信心就没听了,所以函数学的不好,也影响了我整体,后来数学就一直都 英语翻译 英语翻译 关于炒菜时的形声词 请问一下褐色的英文怎么说. 电能的公式有W=I方Rt=U方比Rt吗电能不等于电热的时候这个式子成立吗 若x-B(100,0.5)由中心极限定理可知p(40 她的是褐色的怎么用英语说 求苏轼《有美堂暴雨》的理解、赏析. 余弦 正弦 的弦字怎么读 已知圆C:x^2+y^2-2*x+4*y-4=o,是否存在斜率为1的直线m,使以m被圆c截得的弦AB为直径的圆过原点?若存在,求出直线m的方程;若不存在,说明理由. 物理动能定理那块的题~质量为1000kg汽车,沿倾角37的斜面匀速向上行驶,速度大小为10m/s 求汽车重力势能增加多少?g=10好像是动能和机械能守恒 火葬 实行还是施行?为什么国家的丧葬管理办法写的是实行,而根据字典解释,施行的是具体内容 已知圆C(x-1)方+(y-2)方=25及直线L:(2m+1)X+(m+1)y=7m+4(m∈R)由原点O到直线L距离算出::(5d2-9)m2+(6d2-12)m+2d2-4=0这里的d是什么我也知道是距离、这d怎么带进去的啊。 什么是电能,他有什么计算公式,单位是什么,简写是什么 弦 的拼音是什么啊 new ipad是配smart cover还是配smart case好一点如果是smart cover有无必要选配真皮的,淘宝商城的店铺可信赖吗,有无必要再贴膜(会不会影响使用多点触控) 拣菜 配菜 买菜 烧菜 洗菜给这些词语排序 “弦” 念什么?拼音怎么写? 小力、小军和小斌各有若干元,小力先拿出自己钱数的一部分给小军和小斌,使小军、小斌每人的钱数增加一倍;然后小军也拿出一部分给小力、小斌,使现在小力、小斌每人的钱数增加一倍; 高中函数学不会,怎么办啊? 弦的拼音? the new ipad搭配一个iPad Smart Case还是iPad Smart Cover?听说iPad Smart Case套在new ipad上尺寸会小一圈,而且没有Cover的质感好是么?都说iPad Smart Cover不错,如果买Cover还需要搭配什么保护ipad?两者到底哪个 我为什么函数老学不会如题 听的时候还差不多,做题的时候就不知道该怎么弄了,有时候题都看不懂 “滑动摩擦力不一定阻碍物体的运动,它总是阻碍物体的相对运动”这句话不明白..可以举些例子吗? smart cover和smart case区别在哪里 数学的函数为什么学不会啊. 一全正,二正弦,三正切,四余弦.怎么理解这句口诀? 高手专家看过来:Ipad4是用smart cover 还是用smart case?smart cover的便捷轻薄,smart case的全方位保护,真是纠结,各位大侠给个建议:Ipad4是用smart cover 还是用smart case亦或是smart cover+伴侣?说一说原因, 都学第2遍了,尤其是正比例函数和一次函数,只明白一点点.怎么能学会函数 口诀:(各象限符号为正的) 一全二正弦.三切四余弦是怎么得来的 已知椭圆x^2/a^2+y^2/b^2=1(a>b>0)的离心率=√6/3若原点到直线x+y-b=0的距离为√2, 谁能给几张玻璃之唇的壁纸啊 苏轼的创作风格结合其生平经历 一全二正弦, 两个一元二次方程应用题!如图 ,要设计一副宽20CM,长30CM 的图案,其中有两条横着的彩条,和两条竖着的彩条,横竖彩条的比为3:2,如果要使彩条所占面积是图案面积的四分之一,应如何设计彩条 超声波捕鱼器30000w实际是多大功率 一个角的正弦余余弦的和为-1/5,求正切 点p(-2,6)关于y轴的对称点到原点的距离为 用超声波得到DNA的频率是多大,超声多久 打篮球时投球入篮筐与惯性有关吗 一个凸多边形共有20条对角线,它是几边形? 在平面内点M(-3,5)关于原点O对称的点N的坐标为 为什么抛出去的篮球继续向上运动进入篮筐? (急)数学难题:一个凸多边形共有20条对角线,它是几边形?是否存在有18条对角线的多边形?如果存在它是几边形?如果不存在请说明得出结论的道理. 若函数f(x)=ax^2+2x+5在(2,正无穷)上为减函数,求a的范围! 为什么我不拿篮球能碰到篮筐,可拿篮球后就碰不到了 浦东新区2012学年度第二学期5月教学质量监测九年级数学(月考答案,2013年5月的)答案最后三道需要解题过程 一全正,二正弦;三正切, X1=1 Xn+1=1+Xn/(1+Xn)求极限Xn 简单的一元二次方程应用题一桌面长6米、宽3米,铺在桌上的台布的面积是桌面面积的三倍,并且各边垂下的长度相同,求这块台布的长和宽 正弦和反正弦图像相交吗 麻烦谁帮我提供点关于殡葬执法实施办法的文章那位大哥帮帮忙,给我提供点关于殡葬执法实施办法的文章.谢谢拉 蓝天如同浩瀚的海洋;白云________入团那天,春光融融,蓝蓝的天上飘着白云,校园里绽放着鲜花,团旗映着我们的面颊.那一刻,我的心里,蓝天如同浩瀚的海洋;白云___________________;鲜花犹如我们灿 二维随机变量X,N(1,2,3,4,0),则D(2x-5y)=?rt 关于西周时期的殡葬制度的疑问以周礼,天子7天而殡,7月而葬,尸体要在棺材里停7个月才能下葬,简直难以想象啊!那时候中国又没有木乃伊的技术,棺椁再厚也不是真空,7个月下来肯定臭不可闻 叫停网友为重病患者募捐? 宁国民政局温家宝写亲笔信鼓励汶川地震受灾羌族女美主持人面对华文媒体就\"杀光中国人萨米人的收鹿季:驯鹿背上用刀做记号后美华裔灭门案震惊社区 凶犯偷渡来美疑中国·新加坡小城镇发展论坛在杭州举行澳使馆被指替美监听亚洲 北京河内均遭中国学者回击菲提“九段线”符海洋法不北京中高考英语改革或推动学生提前留学收鹿小能手:5岁起开始协助养鹿【组图空气中飘辣味 美华人辣酱厂呛到居民惹土耳其已否决“采购中国红旗导弹”的早卢浮宫馆长再谈“假门票”:中国游客首日本将向新加坡提供PM2.5对策华人要求ABC就歧视言论道歉国际新闻早报:多名俄罗斯高官因瞒报收国外网友贴图揭秘“土豪”子弟的一天【新加坡:日与夜的魅惑中国人流行取“洋名” 老外却热衷取中港媒:日本领导人不要遮住中日关系最后潘基文发言人:美已保证今后不对联合国省政协十一届十一次常委会议闭幕长假高速车流冲新高三大国家级艺术节 10月登陆苏城张家港国税推出“实名制”办税新模式捕鱼捉虾,江苏渔民走天涯声誉是智库 生存的根本扬泰机场首次起降外航客机2018年正式实行“负面清单”外企员工弃20万年薪回学校卖凉皮南瑞集团:为品牌赋予创新“基因”苏州乐园 “三园联动”过双节全省高校新生开展“消防进军训”第三届世界大型基金会高峰论坛在宁举行医疗器械产业孵化联盟在苏州成立站在一片沃土上想起的几组词光伏产业“两头在外”窘境不再四比四查动真格 慵懒散拖难藏身“紫罗兰”家纺:与众不同的“睡眠文化国企发展混合所有制经济意见出炉国际动漫巨头进驻苏州科技城常熟旅游业转型瞄准“休闲名城”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘