易语言虚线选择框模块源码 [db:版本]

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

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

======程序集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对象的句柄