易语言DX按钮源码

系统结构:构造矩形数据,判断是否包含坐标,转换屏幕坐标到窗口坐标,取内框矩形,取外框矩形,时钟子程序,等待子程序,控制时钟,创建DX窗口,创建控件,左键事件子程序,右键事件子程序,方法1,创建,显示,左键点击,右键点击,鼠标检测,创建,画红旗,GetWindowLong,AdjustWindowRectEx,IsWindow,SetRectEmpty,GetWindowRect,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 构造矩形数据
           |  |
           |  |------ 判断是否包含坐标
           |  |
           |  |------ 转换屏幕坐标到窗口坐标
           |  |
           |  |------ 取内框矩形
           |  |
           |  |------ 取外框矩形
           |  |
           |  |
======TIMER程序集
           |  |
           |  |------ 时钟子程序
           |  |
           |  |------ 等待子程序
           |  |
           |  |------ 控制时钟
           |  |
           |  |
======主窗口程序集
           |  |
           |  |------ _主窗口_将被销毁
           |  |
           |  |------ _主窗口_创建完毕
           |  |
           |  |------ 创建DX窗口
           |  |
           |  |------ 创建控件
           |  |
           |  |------ 左键事件子程序
           |  |
           |  |------ 右键事件子程序
           |  |
           |  |------ _输入设备1_鼠标按键被改变
           |  |
           |  |------ _时钟事件
           |  |
           |  |
======按钮类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 方法1
           |  |
           |  |------ 创建
           |  |
           |  |------ 显示
           |  |
           |  |------ 左键点击
           |  |
           |  |------ 右键点击
           |  |
           |  |------ 鼠标检测
           |  |
           |  |
======小红旗类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 画红旗
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   AdjustWindowRectEx
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   SetRectEmpty
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.支持库 EdirectX

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", 公开, 从指定窗口的结构中取得信息
    .参数 句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 nIndex, 整数型, , 欲取回的信息

.DLL命令 AdjustWindowRectEx, 整数型, "user32", "AdjustWindowRectEx", 公开, 在给定一种窗口样式的前提下，计算获得目标客户区矩形所需的窗口大小
    .参数 客户区, 矩形, 传址, lpRect,最初包含要求的客户区
    .参数 窗口样式, 整数型, , dwStyle,窗口样式
    .参数 窗口菜单, 整数型, , bMenu,如窗口有菜单，则设为TRUE（非零）
    .参数 扩展窗口样式, 整数型, , dwEsStyle,扩展窗口样式（只适用于AdjustWindowRectEx）

.DLL命令 IsWindow, 整数型, "user32.dll", "IsWindow", 公开, 判断窗口句柄是否存在. 非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , hwnd

.DLL命令 SetRectEmpty, 整数型, "user32", "SetRectEmpty", , 将矩形lpRect设为一个空矩形（所有字段都为空） 非零表示成功，零表示失败。会设置GetLastError
    .参数 lpRect, 矩形, 传址

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", 公开, 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内
    .参数 句柄, 整数型
    .参数 lpRect, 矩形, 传址