易语言图片框剪裁源码

系统结构:初始化场景,窗口首次激活,卸载场景,裁剪开始,裁剪框画出,裁剪结束,画调整边框,标准化矩形,互换整数,回调函数,显示可调裁剪框,画可调点,置状态栏,取矩形区域数据,监视,计算调整方向,重新加载,ReleaseDC,SelectObject,DeleteObject,DrawFocusRect,GetDCEx,SetCapture,ReleaseCapture,CreateCompatibleDC,CreateCompatibleBitmap,BitBlt,DeleteDC,SetWindowLong,GetWindowLong,CallWindowProc,BeginPaint,EndPaint,SendMessage,GetWindowRect,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======模块_程序集2
           |  |
           |  |------ 初始化场景
           |  |
           |  |------ 窗口首次激活
           |  |
           |  |------ 卸载场景
           |  |
           |  |------ 裁剪开始
           |  |
           |  |------ 裁剪框画出
           |  |
           |  |------ 裁剪结束
           |  |
           |  |------ 画调整边框
           |  |
           |  |------ 标准化矩形
           |  |
           |  |------ 互换整数
           |  |
           |  |------ 回调函数
           |  |
           |  |------ 显示可调裁剪框
           |  |
           |  |------ 画可调点
           |  |
           |  |------ 置状态栏
           |  |
           |  |------ 取矩形区域数据
           |  |
           |  |------ 监视
           |  |
           |  |------ 计算调整方向
           |  |
           |  |------ 重新加载
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _画板1_鼠标左键被按下
           |  |
           |  |------ _画板1_鼠标左键被放开
           |  |
           |  |------ _画板1_鼠标位置被移动
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   DrawFocusRect
           |  |
           |  |---[dll]------   GetDCEx
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

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

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

.DLL命令 DrawFocusRect, , "user32.dll", "DrawFocusRect", , 画一个焦点矩形。这个矩形是在标志焦点的样式中通过异或运算完成的（焦点通常用一个点线表示）。如用同样的参数再次调用这个函数，就表示删除焦点矩形
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄 
    .参数 矩形轮廓, RECT, , lpRect,要在逻辑坐标中描绘的矩形 

.DLL命令 GetDCEx, 整数型, "user32", "GetDCEx", , 为指定窗口获取设备场景。相比GetDC，本函数提供了更多的选项
    .参数 窗口句柄, 整数型
    .参数 剪裁区, 整数型
    .参数 复选项, 整数型

.DLL命令 SetCapture, 整数型, , "SetCapture"
    .参数 hWnd

.DLL命令 ReleaseCapture, 逻辑型, , "ReleaseCapture"

.DLL命令 CreateCompatibleDC, 整数型, "Gdi32", "CreateCompatibleDC"
    .参数 设备场景句柄, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 设备场景句柄, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型

.DLL命令 BitBlt, 整数型, "gdi32.dll", "BitBlt"
    .参数 目标设备场景, 整数型, , hDestDC,目标设备场景
    .参数 目标横坐标, 整数型, , x,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 目标纵坐标, 整数型, , y,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 传输图像宽度, 整数型, , nWidth,欲传输图象的宽度
    .参数 传输图像高度, 整数型, , nHeight,欲传输图象的高度
    .参数 源设备场景, 整数型, , hSrcDC,源设备场景。如光栅运算未指定源，则应设为0
    .参数 源横坐标, 整数型, , xSrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 源纵坐标, 整数型, , ySrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 光栅运算方式, 整数型, , dwRop,传输过程要执行的光栅运算

.DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC"
    .参数 设备场景句柄, 整数型, , hdc，将要删除的设备场景

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

.DLL命令 GetWindowLong, 整数型, "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命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

.DLL命令 BeginPaint, 整数型
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 逻辑型
    .参数 hWnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 GetWindowRect, , , "GetWindowRect"
    .参数 hWnd
    .参数 lpRect, RECT