易语言简单模仿可视化设计源码

系统结构:移动,句柄,init,get,free,拖动,画虚线框_双次,画虚线框_单次,取消虚线框,矩形被鼠标拖动,矩形到屏幕,矩形到窗口,取有效矩形,画框架,是否可伸缩,是否在调节点内,环绕矩形,屏幕到客户_矩形,动点可视,查找动点句柄,矩形被鼠标伸缩,加入组件_编辑框,加入组件_按钮,查找组件,选中组件,取当前组件,能否编辑,产生,移动,句柄,产生,移动,句柄,取设备场景_,释放设备场景_,画焦点矩形_,取得边界矩形_,设置矩形_,画矩形边框_,取窗口矩形_,ScreenToClient,ScreenToClient_rec,取客户区矩形_,发送消息_,投递消息_,设置窗口区域_,SetWindowPos,取窗口区域位置_,限制指针活动区域_,限制指针活动区域_2,ClientToScreen,屏蔽窗口矩形_,判断矩形_,清空矩形_,偏移矩形_,判断矩形结构_,SetParent,PtInRect,GetParent,

======窗口程序集1
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _选择框2_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======控件类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 移动
           |  |
           |  |------ 句柄
           |  |
           |  |
======拖拽类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ init
           |  |
           |  |------ get
           |  |
           |  |------ free
           |  |
           |  |------ 拖动
           |  |
           |  |------ 画虚线框_双次
           |  |
           |  |------ 画虚线框_单次
           |  |
           |  |------ 取消虚线框
           |  |
           |  |------ 矩形被鼠标拖动
           |  |
           |  |------ 矩形到屏幕
           |  |
           |  |------ 矩形到窗口
           |  |
           |  |------ 取有效矩形
           |  |
           |  |------ 画框架
           |  |
           |  |------ 是否可伸缩
           |  |
           |  |------ 是否在调节点内
           |  |
           |  |------ 环绕矩形
           |  |
           |  |------ 屏幕到客户_矩形
           |  |
           |  |------ 动点可视
           |  |
           |  |------ 查找动点句柄
           |  |
           |  |------ 矩形被鼠标伸缩
           |  |
           |  |------ 加入组件_编辑框
           |  |
           |  |------ 加入组件_按钮
           |  |
           |  |------ 查找组件
           |  |
           |  |------ 选中组件
           |  |
           |  |------ 取当前组件
           |  |
           |  |------ 能否编辑
           |  |
           |  |
======IDE_编辑框类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 产生
           |  |
           |  |------ 移动
           |  |
           |  |------ 句柄
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _编辑框1_鼠标左键被按下
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |------ _窗口1_鼠标位置被移动
           |  |
           |  |------ _外形框1_鼠标左键被按下
           |  |
           |  |------ _按钮1_鼠标左键被按下
           |  |
           |  |
======IDE_按钮类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 产生
           |  |
           |  |------ 移动
           |  |
           |  |------ 句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   画焦点矩形_
           |  |
           |  |---[dll]------   取得边界矩形_
           |  |
           |  |---[dll]------   设置矩形_
           |  |
           |  |---[dll]------   画矩形边框_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   ScreenToClient_rec
           |  |
           |  |---[dll]------   取客户区矩形_
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   投递消息_
           |  |
           |  |---[dll]------   设置窗口区域_
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   取窗口区域位置_
           |  |
           |  |---[dll]------   限制指针活动区域_
           |  |
           |  |---[dll]------   限制指针活动区域_2
           |  |
           |  |---[dll]------   ClientToScreen
           |  |
           |  |---[dll]------   屏蔽窗口矩形_
           |  |
           |  |---[dll]------   判断矩形_
           |  |
           |  |---[dll]------   清空矩形_
           |  |
           |  |---[dll]------   偏移矩形_
           |  |
           |  |---[dll]------   判断矩形结构_
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   PtInRect
           |  |
           |  |---[dll]------   GetParent

  

调用的DLL命令:

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

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

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

.DLL命令 取得边界矩形_, 整数型, "gdi32", "GetBoundsRect"
    .参数 设备场景句柄, 整数型, , hdc Long，边界矩形对应的设备场景 
    .参数 装载矩形, 矩形_, 传址, lprcBounds RECT，装载设备场景hdc的当前边界矩形 
    .参数 标识, 整数型, , flags Long，参见相关帮助

.DLL命令 设置矩形_, 整数型, "user32", "SetRect"
    .参数 矩形, 矩形_
    .参数 左边, 整数型
    .参数 顶边, 整数型
    .参数 右边, 整数型
    .参数 底边, 整数型

.DLL命令 画矩形边框_, 整数型, "user32.dll", "FrameRect"
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 矩形, 矩形_, , lpRect，对要描绘的边框进行描述的一个矩形
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄

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

.DLL命令 ScreenToClient, 逻辑型, "user32.dll", "ScreenToClient"
    .参数 hwnd, , , 此窗口的用户空间将被用来转换
    .参数 point, 坐标_, 传址, 屏幕坐标

.DLL命令 ScreenToClient_rec, 逻辑型, "user32.dll", "ScreenToClient"
    .参数 hwnd, , , 此窗口的用户空间将被用来转换
    .参数 point, 矩形_, 传址, 屏幕坐标

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

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA"
    .参数 窗口句柄, 整数型
    .参数 信息值, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型

.DLL命令 投递消息_, 整数型, "user32", "PostMessageA"
    .参数 窗口句柄, 整数型
    .参数 信息值, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型

.DLL命令 设置窗口区域_, 整数型, "user32.dll", "SetWindowRgn"
    .参数 窗口句柄, 整数型
    .参数 区域, 整数型
    .参数 自动刷新, 逻辑型

.DLL命令 SetWindowPos, 逻辑型, "user32.dll", "SetWindowPos"
    .参数 hWnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 uFlags, 整数型

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

.DLL命令 限制指针活动区域_, 整数型, "user32.dll", "ClipCursor", , 非零表示成功，零表示失败
    .参数 矩形区域, 矩形_, 传址, lpRect，指定一个矩形，用像素屏幕坐标系统表示

.DLL命令 限制指针活动区域_2, 整数型, "user32.dll", "ClipCursor", , 非零表示成功，零表示失败
    .参数 矩形区域, , , lpRect，指定一个矩形，用像素屏幕坐标系统表示

.DLL命令 ClientToScreen, , "user32.dll", "ClientToScreen"
    .参数 hwnd
    .参数 r, 矩形_, 传址

.DLL命令 屏蔽窗口矩形_, 整数型, "user32.dll", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域
    .参数 窗口句柄, 整数型, , hwnd,待屏蔽窗口的句柄
    .参数 屏蔽矩形, 矩形_, , lpRect,用于描述待屏蔽矩形部分的一个矩形结构
    .参数 重画前删除, 整数型, , bErase,TRUE（非零）导致指定的区域在重画前先删除

.DLL命令 判断矩形_, 整数型, "user32.dll", "IsRectEmpty", , 判断一个矩形是否为空
    .参数 要检查的矩形, 矩形_, , lpRect,要检查的矩形

.DLL命令 清空矩形_, 整数型, "user32", "SetRectEmpty"
    .参数 区域, 矩形_

.DLL命令 偏移矩形_, 整数型, "user32", "OffsetRect"
    .参数 目标矩形, 矩形_
    .参数 水平偏移量, 整数型
    .参数 垂直偏移量, 整数型

.DLL命令 判断矩形结构_, 整数型, "user32.dll", "EqualRect", , 判断两个矩形结构是否相同
    .参数 矩形1, 矩形_, , lpRect1,要比较的矩形
    .参数 矩形2, 矩形_, , lpRect2,要比较的矩形

.DLL命令 SetParent, 整数型, "user32.dll", "SetParent", 公开
    .参数 meHwnd
    .参数 parent

.DLL命令 PtInRect, 整数型, "user32.dll", "PtInRect"
    .参数 r, 矩形_, 传址
    .参数 ptx
    .参数 pty

.DLL命令 GetParent, 整数型, "user32.dll", "GetParent", 公开
    .参数 hwnd