易语言给图片加文本

系统结构:取设备场景_,文本绘图_,设置前景色_,释放设备场景_,选入设备场景_,设置背景模式_,使用指定属性创建逻辑字体_,默认光栅运算_,删除对象_,设置窗口标题_,

======窗口程序集1
           |  |
           |  |------ _打开图片_被选择
           |  |
           |  |------ _加文字到图片_被选择
           |  |
           |  |------ _重写_被选择
           |  |
           |  |------ _保存图片_被选择
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |------ _透明标签1_鼠标左键被放开
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   设置前景色_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   设置背景模式_
           |  |
           |  |---[dll]------   使用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   默认光栅运算_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   设置窗口标题_

调用的DLL命令:

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

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

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

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

.DLL命令 选入设备场景_, 整数型, "gdi32.dll", "SelectObject", , 将指定的GDI对象选入场景,返回场景原来的GDI对象
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

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

.DLL命令 使用指定属性创建逻辑字体_, 整数型, "gdi32.dll", "CreateFontIndirectA", , 执行成功则返回逻辑字体句柄，零表示失败
    .参数 字体结构信息, 逻辑字体_, 传址, lpLogFont，字体结构信息

.DLL命令 默认光栅运算_, 整数型, "gdi32", "SetROP2"
    .参数 设备场景, 整数型
    .参数 光栅运算方式, 整数型

.DLL命令 删除对象_, 整数型, "gdi32.dll", "DeleteObject", , DeleteObject
    .参数 对象句柄, 整数型, , hObject,一个GDI对象的句柄

.DLL命令 设置窗口标题_, 整数型, "user32", "SetWindowTextA"
    .参数 窗口句柄, 整数型
    .参数 窗口标题, 文本型