易语言画板自绘源码

系统结构:标尺子程序_绘制标尺刻度,恢复鼠标状态,无拖动时激活恢复,刻度区重绘,客户区重绘,二级缓冲绘制,客户区刷新,选中辅助线,高亮辅助线,拖动辅助线,客户绘制的图形,GetProp,SetRect,SetProp,PtInRegion,CreateRectRgnIndirect,DeleteObject,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ 标尺子程序_绘制标尺刻度
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _画板_界面_鼠标位置被移动
           |  |
           |  |------ 恢复鼠标状态
           |  |
           |  |------ 无拖动时激活恢复
           |  |
           |  |------ 刻度区重绘
           |  |
           |  |------ 客户区重绘
           |  |
           |  |------ 二级缓冲绘制
           |  |
           |  |------ 客户区刷新
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 选中辅助线
           |  |
           |  |------ 高亮辅助线
           |  |
           |  |------ _画板_界面_鼠标左键被按下
           |  |
           |  |------ _画板_界面_鼠标左键被放开
           |  |
           |  |------ 拖动辅助线
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ 客户绘制的图形
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   SetRect
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   PtInRegion
           |  |
           |  |---[dll]------   CreateRectRgnIndirect
           |  |
           |  |---[dll]------   DeleteObject

调用的DLL命令:

.DLL命令 GetProp, 整数型, , "GetPropA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型

.DLL命令 SetRect, 整数型, , "SetRect", 公开
    .参数 lprc, RectL
    .参数 xLeft, 整数型
    .参数 yTop, 整数型
    .参数 xRight, 整数型
    .参数 yBottom, 整数型

.DLL命令 SetProp, 整数型, , "SetPropA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 PtInRegion, 整数型, "gdi32", "PtInRegion", , 若点在区域内为非零值，否则为0
    .参数 hRgn, 整数型, , 区域句柄
    .参数 x, 整数型, , 点的X坐标
    .参数 y, 整数型, , 点的Y坐标

.DLL命令 CreateRectRgnIndirect, 整数型, "gdi32", "CreateRectRgnIndirect", , 执行成功则为区域句柄，失败则为0
    .参数 lpRect, RectL

.DLL命令 DeleteObject, , "gdi32", "DeleteObject"
    .参数 hRgn, 整数型, , 区域句柄