点击或拖拽改变大小

Font 构造函数

X#
构造一个字体。

命名空间:  VO
程序集:  VOGUIClasses (在 VOGUIClasses.dll 中) 版本:2.22 GA
语法
 CONSTRUCTOR(
	kFont,
	oDimension,
	sTypeFace
) CLIPPER
查看代码

参数

kFont (Optional)
类型:__Usual
要创建的标准字体,指定为备注部分中的表格中的常量之一或指示字体系列的常量。指定以下常量之一:
oDimension (Optional)
类型:__Usual
字体的尺寸,以画布坐标或字体的窗口点大小指定。
sTypeFace (Optional)
类型:__Usual
特定的字体名称。
备注
kStandardFont点大小/字体
FONTMODERN88点Courier
FONTMODERN1010点Courier
FONTMODERN1212点Courier
FONTROMAN88点Times Roman
FONTROMAN1010点Times Roman
FONTROMAN1212点Times Roman
FONTROMAN1414点Times Roman
FONTROMAN1818点Times Roman
FONTROMAN2424点Times Roman
FONTSWISS88点Helvetica
FONTSWISS1010点Helvetica
FONTSWISS1212点Helvetica
FONTSWISS1414点Helvetica
FONTSWISS1818点Helvetica
FONTSWISS2424点Helvetica
FONTSYSTEM88点默认系统字体
kFamiliy字体系列
FONTANY任何可显示的字体。这是默认值。
FONTDECORATIVE系统相关的装饰字体,例如FormalScrp421 BT。
FONTMODERN类似于Courier。
FONTROMAN类似于Times Roman
FONTSCRIPT类似于手写脚本,例如BrushScript
FONTSWISS类似于Helvetica。
定义所需的字体可能是复杂的,有两个原因:不同的计算机可能安装了不同的字体集,同一个字体在不同的计算机上可能有不同的名称。
例如,Helvetica 字体系列在不同的系统上可能被称为 Helvetica,Helv,Helvetica,Arial,Swiss 或 MS Sans Serif,取决于您使用的系统。 这里的标准名称是 FontSwiss。
为了确保程序在每台计算机上都能工作,无论每台计算机上都有哪些字体可用,Font类提供了自动方法,用于找到与您指定的字体最合理的匹配。 实际上,只要使用最常见的名称,您就不会遇到问题,因为所有版本的Windows都包含标准字体。
例如,要创建一个10点Times New Roman 的字体和一个8点 Helvetica 的字体:
X#
1oFontRoman := Font{FONTROMAN10} // 
2oFontSwiss := Font{FONTSWISS8} 
系统允许您引用安装在机器上的任何字体。例如,要创建一个12点 Palatino 的字体,
X#
1oMyFont := Font{,Dimension{12,12},"Palatino"} 
或一个16点Arial的字体:
X#
1oMyFont := Font{, 16, "Arial"} 
当然,这种方法容易受到字体不可用的影响。如果 Palatino 不可用,系统会选择一个合理的类似字体,如果从未听说过 Palatino,这可能不是一个好的匹配。 为了帮助系统找到一个合理的匹配,您可以指定 Palatino 属于哪个字体系列:
X#
1oMyFont := Font{FONTROMAN, Dimension{12,12},"Palatino"}
在这种情况下,如果 Palatino 不可用,我们会得到 Times Roman。 您只能指定系列。例如,要创建一个10点字体,无论在脚本系列中可用的是什么:
X#
1oMyFont := Font{FONTSCRIPT,Dimension{10,10}}
参见