按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
lst。SetFont（&font）；
// 设置列表框的制表符位置为 200 个对话框单位
lst。SetTabStops（200）；
// 枚举当前系统的所有可用字体，将指向列表框的 CListBox 对象的指针作为应用程序提供
的
// 参数传递给枚举字体回调函数 EnumFontFamProc
EnumFontFamilies（：：GetDC（GetSafeHwnd（））； NULL； EnumFontFamProc； （LPARAM）（&lst））；
return iResult；
｝
// 枚举字体时的回调函数，该函数将系统的所有可用字体及其字符集添加到列表框中，
// 由应用程序提供的参数 lParam 提供了指向该列表框的 CListBox 对象的指针
int WINAPI EnumFontFamProc（const LOGFONTA * lplf；
const TEXTMETRICA *lptm； unsigned long FontType； LPARAM lParam）
｛
CListBox *pList=（CListBox*）lParam；
CString str；
// 将当前字体的字体名 （FaceName） 和字符集 （CharSet） 添加到列表框中
…………………………………………………………Page 560……………………………………………………………
str。Format（〃FACENAME： ％s tCHARSET： ％d〃； lplf…》lfFaceName； lplf…》lfCharSet）；
pList…》AddString（str）；
return TRUE； // 返回 TRUE 以继续字体枚举的过程，返回 FALSE 将终止字体枚举的过程
｝
我们先来看重绘消息处理函数OnPaint，一开始时，我们调用了CDC类
的成员函数GetCurrentFont，该成员函数返回当前设备上下文所使用
的字体，其返回值是一个指向CFont对象的指针，然后，我们通过该
指针调用CFont类的成员函数GetLogFont，该成员函数将字体的信息
填入到一个LOGFONT结构中。在下面的步骤中，我们通过修改该结构
的成员来创建新的字体对象。首先，我们创建一个CFont对象font1，
font1使用了12个象素大小的宋体字，在程序中它主要用来输出一些
标识文本。这里，我们先在LOGFONT结构对象lf在相关成员中填入新
的值，再以该结构对象为参数来调用CFont类的成员函数
CreateFontIndirect创建相应的GDI字体对象。这里我们将lfCharSet
成员修改为134 ，这个值可以通过本程序的运行结果得出，lfWidth
成员修改为0，这样将使用默认的字符纵横比得到字符的宽度。
在下面过程中，我们按照类似的方法创建一大小为20个象素的Times
New Roman字体，与刚才不同的是，我们将结构对象lf的
lfEscapement成员的值设置为400，这样，文本将以向上倾斜40度
（lfEscapement的值的单位为1/10度）的角度进行输出。接着，我们将
该字体对象通过CDC的成员函数SelectObject选入设备上下文中作为
设备上下文的当前字体。CDC类的成员函数GetTextExtent可以在输出
一个字符串之前得到该输出字符串的大小，以便于我们可以恰当的安
排字符串的输出位置。需要注意的是，通过该成员函数得到的度量值
不会受到我们在lfEscapement中设置的值的影响。在程序示例中，我
们通过成员函数GetTextExtent得到字符串〃lfEscapement= 400〃在输
出时的长度和宽度，然后根据所得的结果计算得出以40度角输出文本
串的合适的起始位置，最后调用CDC类的成员函数TextOut以当前字体
输出字符串〃lfEscapement= 400〃。
l 注意：
l 不管当前的lfEscapement值如何，函数TextOut总是以输出字符串
的第一个字符的起始位置的坐标作为其前两个参数。
l 在Windows 95中，lfEscapement和lfOrientation总是具有相同的
值，而在Windows NT中，两者在某些情况下可以不相同。
…………………………………………………………Page 561……………………………………………………………
l 设置lfFaceName时应该使用库函数strcpy，不要犯这样的错误：
l lfFaceName=〃宋体〃；
此外，如果为lfFaceName设置了新值，同时也应该将
lfCharSet的值设置为相匹配的字符集。如果字符集与字体名
不相匹配，将会导致设置不起作用。
要使文本向下倾斜输出，我们只需简单的将lfEscapement设置为负
值。如下面的代码所示：
// 将字体输出方向更改为向下倾斜 40 度
lf。lfEscapement=…400；
dc。SelectObject（pOldFont）；
font2。DeleteObject（）；
font2。CreateFontIndirect（&lf）；
dc。SelectObject（&font2）；
// 计算字符串合适的输出位置
dc。TextOut（290…int（sz。cx*cos（DegToRnd（40）））； 10； 〃lfEscapement=…400〃）；
上面的代码摘自应用程序FontDemo 。
l 注意：
l 在调用font2的CreateFontIndirect成员函数创建新的字体对象之
前，应该先调用其成员函数DeleteObject删除该字体对象，而当
一个GDI图形对象正为设备上下文所使用时，我们不能删除该图形
对象，因此在前面的代码 中，我们在删除在font2原有的字体对象
之前先将设备上下文的字体对象进行复原。
接着在消息处理函数CMyWnd：：OnPaint中，我们又将lfEscapement成
员的值设置为0，输出字符串〃lfEscapement=0〃以示对比。
在随后的代码中，我们演示了lfWeight成员的不同值对字体的笔划粗
细的影响。我们先将lfWeight值设置为0，以50象素的宋体字绘制了
一个 “细”字，然后再将lfWeight值设置为1000，以同样大小和同种
字体绘制了一个 “粗”字。通过如图9。7的输出结果，我们看到字体
笔划的粗细发生的明显的变化。
…………………………………………………………Page 562……………………………………………………………
在OnPaint函数返回之前，不要忘记恢复设备上下文的原有字体对
象，指向该对象的CFont指针在前面被保存到了名为pOldFont的指针
变量中。我们仍然使用SelectObject将其选入当前设备上下文。
上面我们来看示例程序FontDemo的另一个主要的功能板块，即枚举当
前系统中所安装的所有字符并将它添加到一个列表框中。
首先我们在窗口CMyWnd的WM_CREATE消息的处理函数OnCreate中调用
CListBox对象lst （该对象被定义为类CMyWnd的成员变量）的Create成
员函数。在Create成员函数中，我们指定了列表框的样式包括了
LBS_USETABSTOPS，该样式允许在列表项中使用制表符，这些制表符
在显示时会被扩展到指定的位置。
接着，我们将列表框所使用的字体设置为9磅大小的宋体字。这里我
们调用的是CFont对象的CreatePointFont成员函数来创建字体。当需
要创建的指定磅值大小的某种字体时，使用CreatePointFont成员函
数要方便得多，因此该函数仅需要三个参数，并且，第三个参数在很
多情况下可以省略。这样，我们就可以避开填写复杂的LOGFONT结
构。
在改变列表框字体的同时，我们将列表框中的当前制表位设置为200
个对话框单位，对话框单位是一种在控件和对话框使用的度量单位。
每4个水平对话框单位等于以系统字体显示的字符的平均宽度，我们
还将这个宽度称作对话框基本单位。对话框基本单位的具体量值可以
通过API函数GetDialogBaseUnits得到，该函数返回值的低位字代表
对话框水平基本单位，高位字代表对话框垂直基本单位。
紧接着我们调用了API函数EnumFontFamilies来枚举系统中的所有可
用字体，该函数使用4个参数，第一个参数为枚举所使用设备上下文
句柄，我们使用API函数GetDC来得到代表当前窗口的客户区；为了枚
举系统中的所有字体，我们将第二个参数设置为NULL；第三个参数为
枚举字体回调函数，这里为EnumFontFamProc，我们将在下面定义该