易语言屏幕涂鸦源码

系统结构:文本绘图_,取设备场景_,释放设备场景_,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮_屏幕涂鸦_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_

调用的DLL命令:

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

.DLL命令 取设备场景_, 整数型, "user32.dll", "GetDC", , GetDC
    .参数 窗口句柄, 整数型, , hwnd

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