易语言创建扩展画笔源码

系统结构:Loading,创建画笔扩展_,删除对象_,释放设备场景_,选入设备场景_,画矩形_,取设备场景_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ Loading
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建画笔扩展_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   取设备场景_

调用的DLL命令:

.DLL命令 创建画笔扩展_, 整数型, "gdi32", "ExtCreatePen"
    .参数 笔风格, 整数型
    .参数 笔尖宽度, 整数型
    .参数 笔刷定义结构, 刷子结构_
    .参数 自定义段数, 整数型
    .参数 自定义线, 整数型

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

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

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

.DLL命令 画矩形_, 整数型, "gdi32.dll", "Rectangle", , Rectangle
    .参数 设备场景句柄, 整数型, , hdc
    .参数 左上角横坐标, 整数型, , X
    .参数 左上角纵坐标, 整数型, , Y
    .参数 右下角横坐标, 整数型, , X1
    .参数 右下角纵坐标, 整数型, , Y1

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