易语言图片横向滚动浏览源码

系统结构:创建,绘制横向图像浏览框,绘制图片_组,绘制图片_焦点,按钮_焦点,鼠标位置被移动,响应按钮事件_按下,响应按钮事件_放开,按钮事件_结束,滚轮被滚动,重绘,置目标场景句柄,取高低位,取现行选中项,设置标签,WindowProc,窗口_滚轮被滚动,将被销毁,滚动_,GetWindowLong,BeginPaint,EndPaint,SetWindowLong,CallWindowProc,GetDC,ReleaseDC,

======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_滚轮被滚动
           |  |
           |  |
======横向浏览图片文件框
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 绘制横向图像浏览框
           |  |
           |  |------ 绘制图片_组
           |  |
           |  |------ 绘制图片_焦点
           |  |
           |  |------ 按钮_焦点
           |  |
           |  |------ 鼠标位置被移动
           |  |
           |  |------ 响应按钮事件_按下
           |  |
           |  |------ 响应按钮事件_放开
           |  |
           |  |------ 按钮事件_结束
           |  |
           |  |------ 滚轮被滚动
           |  |
           |  |------ 重绘
           |  |
           |  |------ 置目标场景句柄
           |  |
           |  |------ 取高低位
           |  |
           |  |------ 取现行选中项
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 设置标签
           |  |
           |  |------ WindowProc
           |  |
           |  |------ 窗口_滚轮被滚动
           |  |
           |  |------ 将被销毁
           |  |
           |  |------ 滚动_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC

调用的DLL命令:

.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命令 BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗  返回设备句柄
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 ReleaseDC, 整数型, "User32", "ReleaseDC"
    .参数 hWnd, 整数型
    .参数 hDc, 整数型