易语言GDI创建字体源码

系统结构:绘制文本,CreateMyFont,释放设备场景_,取设备场景_,文本绘图_,设置背景模式_,用指定属性创建逻辑字体_,选入设备场景_,取设备场景信息_,乘除计算_,设置前景色_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 绘制文本
           |  |
           |  |------ CreateMyFont
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   设置背景模式_
           |  |
           |  |---[dll]------   用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   取设备场景信息_
           |  |
           |  |---[dll]------   乘除计算_
           |  |
           |  |---[dll]------   设置前景色_

调用的DLL命令:

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

.DLL命令 取设备场景_, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 文本绘图_, 整数型, "gdi32.dll", "TextOutA", , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
    .参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
    .参数 内容, 文本型, , lpstring，欲描绘的字串
    .参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量

.DLL命令 设置背景模式_, 整数型, "gdi32", "SetBkMode", , SetBkMode，Long，前一个背景模式的值
    .参数 设备场景句柄, 整数型, , hdc，设备场景的句柄
    .参数 方式, 整数型, , nBkMode，下述常数之一：OPAQUE用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙TRANSPARENT透明处理，即不作上述填充

.DLL命令 用指定属性创建逻辑字体_, 整数型, "gdi32.dll", "CreateFontA", , 执行成功则返回逻辑字体的句柄，零表示失败
    .参数 字体高度, 整数型, , Height，字体高度
    .参数 字体宽度, 整数型, , Width，字体宽度
    .参数 旋转, 整数型, , Escapement，旋转
    .参数 Orientation, 整数型, , Orientation
    .参数 加粗, 整数型, , Weight，加粗
    .参数 倾斜, 整数型, , Italic，倾斜
    .参数 下划线, 整数型, , Underline，下划线
    .参数 删除线, 整数型, , StrikeOut，删除线
    .参数 内码, 整数型, , CharSet，内码
    .参数 OutputPrecision, 整数型, , OutputPrecision
    .参数 CP, 整数型, , ClipPrecision
    .参数 输出质量, 整数型, , Quality，输出质量
    .参数 PAF, 整数型, , PitchAndFamily
    .参数 新字体名, 文本型, , FaceName，新字体名

.DLL命令 选入设备场景_, 整数型, "gdi32.dll", "SelectObject", , SelectObject
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

.DLL命令 取设备场景信息_, 整数型, "gdi32", "GetDeviceCaps"
    .参数 设备场景, 整数型
    .参数 值, 整数型

.DLL命令 乘除计算_, 整数型, "kernel32.dll", "MulDiv"
    .参数 乘数1, 整数型, , nNumber
    .参数 乘数2, 整数型, , nNumerator
    .参数 除数, 整数型, , nDenominator

.DLL命令 设置前景色_, 整数型, "gdi32", "SetTextColor"
    .参数 设备场景, 整数型
    .参数 颜色, 整数型