字体对话框——选择字体
字体对话框允许用户选择逻辑字体的属性
例如字体系列和关联的字体样式、点大小、效果 (下划线、删除线和文本颜色) ，以及脚本 (或字符集)
首先初始化 字体框类 结构，然后调用 字体选框 函数以显示对话框。
字体框类 字框(长度=60,标志=0x101);//结构数据的长度=60,标志=1系统字体+0x100允许选颜色
逻辑字体类 字号;;//申请一个逻辑字体类,用来获取字体名称和字号大小等信息
程序段 窗体启动;//以上代码为全局变量,在窗体启动程序段进行赋值
字框.窗口=窗体;//指定字体对话框的窗口为程序主窗体
字框.字体=字号;//指定字体对话框的字体为字号变量
结束//换到其它地方书写代码
程序段 按钮2_点击;//在按钮2的点击事件里弹出字体对话框
如果(字体选框(字框))//如果函数返回真，表示用户选择了一种字体或颜色
{写设置("字体",字号.名称);//把字体名称保存到配置文件
写数值("字号",字号.高度);//把字体大小保存到配置文件
写数值("颜色",字框.颜色);//把字体颜色保存到配置文件
发送消息(文档,$443,0,字框.颜色);//修改编辑框的背景颜色
字体=新建字体(字号);//从选择的逻辑字体新建一个字体
发送消息(文档,指定字体,字体,0)};//指定编辑框的字体为新建的字体
结束//本例演示修改编辑框的字体和背景色
字体框类
| 中文名字 | 英文名称 | 长度 | 作用解释 |
| 字体框类 | CHOOSEFONT | 60 | 弹出一个选取颜色的对话框，并得到颜色相关信息。函数：ChooseFont |
| 字体框类——成员表 | |||
|---|---|---|---|
| 中文 | 英文 | 类型 | 作用解释 |
| 长度 | lStructSize | 整数 | 指定这个结构的大小，以字节为单位。 |
| 窗口 | hwndOwner | 整数 | 拥有对话框的窗口的句柄。可不指定 |
| 设备 | hDC | 整数 | 显示的设备环境句柄，不指定 |
| 字体 | lpLogFont | 整数 | 选中的字体返回值，字体是逻辑字体 |
| 大小 | iPointSize | 整数 | 字体的大小 |
| 标志 | Flags | 整数 | 用来初始化对话框。1仅列出系统字体;2仅打印字体;4显示帮助;8启用回调函数;$10启用模板;$20启用模板数据;$40启用逻辑字体;$80自定义字体风格;$100允许选颜色;$200显示应用按钮; $400仅英文和定制字体;$800不许矢量字体;$1000不允许模拟字体;$2000限指定范围字号;$4000限固定字体;$8000仅可显字体;$10000检查错误字体;$20000仅可缩放字体;$40000仅真实字体; $80000阻止选择指定字体;$100000阻止默选字体样式;$200000阻止默选字体大小;$400000只显示字体结构中的字符集;$800000禁止脚本组合框;$1000000仅横向字体;$2000000显示隐藏字体; |
| 颜色 | rgbColors | 整数 | 返回字体的颜色 |
| 数据 | lCustData | 整数 | 自定义数据，传到的钩子程序 |
| 回调 | lpfnHook | 整数 | 指向钩子程序的指针，该钩子可以处理回调消息。 |
| 模板 | lpTemplateName | 整数 | 指向对话框模板资源名称的字符串 |
| 实例 | hInstance | 整数 | 实例句柄 |
| 风格 | lpszStyle | 整数 | 字体风格 |
| 分类 | nFontType | 整数 | 字体的类型 |
| 最小 | nSizeMin | 整数 | 字体允许的最小尺寸 |
| 最大 | nSizeMax | 整数 | 字体允许的最大尺寸 |