易语言虚线选择框模块源码

系统结构:创建,销毁,开始,拖动,结束,取矩形,加入风格,取状态,标准化矩形,互换整数,画虚线框_记录,异或运算,画虚线框_,取有效矩形,取消虚线框,取客户区矩形_,取窗口区域位置_,取窗口矩形_,取设备场景_,画焦点矩形_,释放设备场景_,释放鼠标_,俘获鼠标_,判断窗口句柄_,设置窗口信息_,取得窗口信息_,默认光栅运算_,画矩形_,选入设备场景_,创建画笔_,删除对象_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======虚线选择框类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 销毁
           |  |
           |  |------ 开始
           |  |
           |  |------ 拖动
           |  |
           |  |------ 结束
           |  |
           |  |------ 取矩形
           |  |
           |  |------ 加入风格
           |  |
           |  |------ 取状态
           |  |
           |  |------ 标准化矩形
           |  |
           |  |------ 互换整数
           |  |
           |  |------ 画虚线框_记录
           |  |
           |  |------ 异或运算
           |  |
           |  |------ 画虚线框_
           |  |
           |  |------ 取有效矩形
           |  |
           |  |------ 取消虚线框
           |  |
           |  |
======窗口程序集_窗口1
           |  |
           |  |------ _测试窗口_鼠标左键被按下
           |  |
           |  |------ _测试窗口_鼠标位置被移动
           |  |
           |  |------ _测试窗口_鼠标左键被放开
           |  |
           |  |------ _测试窗口_创建完毕
           |  |
           |  |------ _按钮1_鼠标左键被按下
           |  |
           |  |------ _测试窗口_鼠标右键被按下
           |  |
           |  |------ _测试窗口_鼠标右键被放开
           |  |
           |  |------ _测试窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取客户区矩形_
           |  |
           |  |---[dll]------   取窗口区域位置_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   画焦点矩形_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   释放鼠标_
           |  |
           |  |---[dll]------   俘获鼠标_
           |  |
           |  |---[dll]------   判断窗口句柄_
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   取得窗口信息_
           |  |
           |  |---[dll]------   默认光栅运算_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   删除对象_

调用的DLL命令:

.DLL命令 取客户区矩形_, 整数型, "user32", "GetClientRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 取窗口区域位置_, 整数型, "user32.dll", "ClientToScreen", , 非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , hwnd，要取出区域坐标的窗口句柄
    .参数 位置变量, 矩形_, , lpPoint，参见相关帮助

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect", , 取客户区的大小
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 取设备场景_, 整数型, "User32", "GetDC"
    .参数 设备场景

.DLL命令 画焦点矩形_, , "user32.dll", "DrawFocusRect", , 画一个焦点矩形
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄 
    .参数 矩形轮廓, 矩形_, 传址, lpRect,要在逻辑坐标中描绘的矩形 

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC"
    .参数 窗口句柄, 整数型
    .参数 设备场景, 整数型

.DLL命令 释放鼠标_, 整数型, "user32", "ReleaseCapture"

.DLL命令 俘获鼠标_, 整数型, "user32", "SetCapture"
    .参数 窗口句柄, 整数型

.DLL命令 判断窗口句柄_, 逻辑型, "user32.dll", "IsWindow", , 判断一个窗口句柄是否有效
    .参数 窗口句柄, 整数型, , hwnd,待检查窗口的句柄

.DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 取得窗口信息_, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

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

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

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

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

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