易语言创建画笔源码

系统结构:删除对象_,指定画笔位置_,画直线_,创建画笔_,选入设备场景_,画矩形_,释放设备场景_,取设备场景_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   指定画笔位置_
           |  |
           |  |---[dll]------   画直线_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取设备场景_

调用的DLL命令:

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

.DLL命令 指定画笔位置_, 整数型, "gdi32.dll", "MoveToEx"
    .参数 设备场景, 整数型, , hdc，指向一个设备场景的句柄
    .参数 横坐标, 整数型, , x，采用逻辑坐标表示的新画笔位置
    .参数 纵坐标, 整数型, , y，采用逻辑坐标表示的新画笔位置
    .参数 画笔位置, 坐标_, , lpPoint，用于保存前一个画笔位置

.DLL命令 画直线_, 整数型, "gdi32.dll", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 终点横坐标, 整数型, , x,线段终点位置，采用逻辑坐标表示
    .参数 终点纵坐标, 整数型, , y,线段终点位置，采用逻辑坐标表示

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen"
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

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

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

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

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