易语言字形窗口源码

系统结构:输出字形窗口,启动路径分支_,设置背景模式_,文本绘图_,结束路径分支_,PathToRegion,设置窗口区域_,选入设备场景_,用指定属性创建逻辑字体_,删除对象_,取设备场景_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 输出字形窗口
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   启动路径分支_
           |  |
           |  |---[dll]------   设置背景模式_
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   结束路径分支_
           |  |
           |  |---[dll]------   PathToRegion
           |  |
           |  |---[dll]------   设置窗口区域_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   取设备场景_

调用的DLL命令:

.DLL命令 启动路径分支_, 整数型, "gdi32.dll", "BeginPath", , , BeginPath,启动一个路径分支
    .参数 设备场景句柄, 整数型, , hdc,欲在其中记录的设备场景

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

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

.DLL命令 结束路径分支_, 整数型, "gdi32.dll", "EndPath", , , 停止定义一个路径
    .参数 设备场景句柄, 整数型, , hdc,设备场景句柄

.DLL命令 PathToRegion, 整数型, "gdi32", "PathToRegion", , 将当前选定的路径转换到一个区域里。返回值Long，新区域的句柄。零表示错误。会将GetLastError设为下述值之一：ERROR_CAN_NOT_COMPLETE，ERROR_INVALID_PARAMETER，ERROR_NOT_ENOUGH_MEMORY。
    .参数 hdc, 整数型, , Long，包含了欲转换的路径的设备场景

.DLL命令 设置窗口区域_, 整数型, "user32.dll", "SetWindowRgn", , ,
    .参数 窗口句柄, 整数型
    .参数 区域, 整数型
    .参数 自动刷新, 逻辑型

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

.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", "DeleteObject", , , DeleteObject
    .参数 对象句柄, 整数型, , hObject,一个GDI对象的句柄

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