易语言画板滚动条源码

系统结构:NewProc,置横向滚动条,置纵向滚动条,GetStockObject,SetCapture,ReleaseCapture,GetDC,CreateCompatibleBitmap,SelectObject,BitBlt,DeleteDC,CreateCompatibleDC,SetWindowLongA,CallWindowProcA,DeleteObject,WindowFromPoint,FrameRect,CreateSolidBrush,FillRect,ReleaseDC,BeginPaint,EndPaint,创建阴影刷子,加载默认皮肤,加载皮肤,调整皮肤颜色,卸载皮肤,指定不使用皮肤的组件,从资源加载皮肤,加载皮肤并设置色调参数,设置皮肤透明度,获取指定点颜色,画区域外框_,用矩形信息创建矩形区域_,反转区域_,刷子填充区域_,设置窗口信息_,取得窗口信息_,刷新窗口,SetScrollInfo,GetScrollInfo,ShowScrollBar,取客户区矩形_,移动区域_,

======启动窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ NewProc
           |  |
           |  |------ 置横向滚动条
           |  |
           |  |------ 置纵向滚动条
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   创建阴影刷子
           |  |
           |  |---[dll]------   加载默认皮肤
           |  |
           |  |---[dll]------   加载皮肤
           |  |
           |  |---[dll]------   调整皮肤颜色
           |  |
           |  |---[dll]------   卸载皮肤
           |  |
           |  |---[dll]------   指定不使用皮肤的组件
           |  |
           |  |---[dll]------   从资源加载皮肤
           |  |
           |  |---[dll]------   加载皮肤并设置色调参数
           |  |
           |  |---[dll]------   设置皮肤透明度
           |  |
           |  |---[dll]------   获取指定点颜色
           |  |
           |  |---[dll]------   画区域外框_
           |  |
           |  |---[dll]------   用矩形信息创建矩形区域_
           |  |
           |  |---[dll]------   反转区域_
           |  |
           |  |---[dll]------   刷子填充区域_
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   取得窗口信息_
           |  |
           |  |---[dll]------   刷新窗口
           |  |
           |  |---[dll]------   SetScrollInfo
           |  |
           |  |---[dll]------   GetScrollInfo
           |  |
           |  |---[dll]------   ShowScrollBar
           |  |
           |  |---[dll]------   取客户区矩形_
           |  |
           |  |---[dll]------   移动区域_

  

调用的DLL命令:

.DLL命令 GetStockObject, 整数型, , "GetStockObject"
    .参数 fnObject, 整数型

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

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

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 hwnd, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc
    .参数 hgdiobj

.DLL命令 BitBlt, 整数型, , "BitBlt"
    .参数 hdcDest
    .参数 nXDest
    .参数 nYDest
    .参数 nWidth
    .参数 nHeight
    .参数 hdcSrc
    .参数 nXSrc
    .参数 nYSrc
    .参数 dwRop

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hWnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hObject

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x
    .参数 y

.DLL命令 FrameRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, Rect, , 可能为 RECT 结构。
    .参数 hbr, 整数型

.DLL命令 CreateSolidBrush, 整数型
    .参数 crColor, 整数型

.DLL命令 FillRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, Rect, , 可能为 RECT 结构。
    .参数 hbr, 整数型

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

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

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

.DLL命令 创建阴影刷子, 整数型, "gdi32.dll", "CreateHatchBrush", , CreateHatchBrush
    .参数 刷子阴影类型, 整数型, , nIndex，请查看此参数的常量
    .参数 指定刷子的RGB前景色, 整数型, , crColor，指定刷子的前景颜色值

.DLL命令 加载默认皮肤, 整数型, "SkinH_EL.dll", "SkinH_Attach", 公开, 加载程序当前目录下的skinh.she皮肤，成功返回0

.DLL命令 加载皮肤, 整数型, "SkinH_EL.dll", "SkinH_Attach_Ex", 公开, 加载指定的皮肤，成功返回0
    .参数 皮肤路径, 文本型, , 皮肤文件路径
    .参数 皮肤口令, 文本型, , 皮肤密钥

.DLL命令 调整皮肤颜色, 整数型, "SkinH_EL.dll", "SkinH_Adjust_HSV", 公开, 调整色调，饱和度，亮度，成功返回0
    .参数 色调, 整数型, , 取值范围 1-360
    .参数 饱和度, 整数型, , 取值范围 1-256
    .参数 亮度, 整数型, , 取值范围 1-256

.DLL命令 卸载皮肤, 整数型, "SkinH_EL.dll", "SkinH_Detach", 公开, 成功返回0

.DLL命令 指定不使用皮肤的组件, 整数型, "SkinH_EL.dll", "SkinH_Detach_Ex", 公开, 卸载指定句柄的窗体或者控件的皮肤，成功返回0
    .参数 句柄, 整数型, , 指定窗体或控件的句柄

.DLL命令 从资源加载皮肤, 整数型, "SkinH_EL.dll", "SkinH_Attach_Res", 公开, 从资源添加皮肤，并指定皮肤的色调，饱和度，亮度，成功返回0
    .参数 资源皮肤, 字节集, , 皮肤数据
    .参数 资源大小, 整数型, , 皮肤数据大小
    .参数 皮肤密码, 文本型, , 皮肤密钥
    .参数 色调, 整数型, , 取值范围 1-360
    .参数 饱和度, 整数型, , 取值范围 1-256
    .参数 亮度, 整数型, , 取值范围 1-256

.DLL命令 加载皮肤并设置色调参数, 整数型, "SkinH_EL.dll", "SkinH_Attach_Ext", 公开, 加载指定皮肤，并指定皮肤的色调，饱和度，亮度，  成功返回0
    .参数 皮肤路径, 文本型, , 皮肤文件路径
    .参数 皮肤密码, 文本型, , 皮肤密钥
    .参数 色调, 整数型, , 取值范围 1-360
    .参数 饱和度, 整数型, , 取值范围 1-256
    .参数 亮度, 整数型, , 取值范围 1-256

.DLL命令 设置皮肤透明度, 整数型, "SkinH_EL.dll", "SkinH_Alpha", 公开, 设置指定句柄的窗体的透明度，成功返回0
    .参数 句柄, 整数型, , 指定窗体句柄
    .参数 透明度, 整数型, , 取值范围 0-255

.DLL命令 获取指定点颜色, 整数型, "SkinH_EL.dll", "SkinH_GetColor", 公开, 获取指定窗口或控件在nX
    .参数 句柄, 整数型, , 指定窗口或控件的句柄
    .参数 横坐标, 整数型, , 指定横坐标点
    .参数 纵坐标, 整数型, , 指定纵坐标点

.DLL命令 画区域外框_, 整数型, "gdi32.dll", "FrameRgn", , FrameRgn,用指定刷子围绕指定区域画一个外框
    .参数 设备场景, 整数型, , hdc，设备场景句柄
    .参数 区域句柄, 整数型, , hRgn，将数据设备坐标填充的区域句柄
    .参数 刷子句柄, 整数型, , hBrush，将用的刷子句柄
    .参数 垂直边框宽度, 整数型, , nWidth，垂直边框宽度（以设备单元为单位）
    .参数 水平边框高度, 整数型, , nHeight，水平边框高度（以设备单元为单位）

.DLL命令 用矩形信息创建矩形区域_, 整数型, "gdi32.dll", "CreateRectRgnIndirect"
    .参数 矩形结构信息, Rect, 传址, lpRect，用来创建区域的矩形

.DLL命令 反转区域_, 整数型, "gdi32.dll", "InvertRgn"
    .参数 设备场景句柄, 整数型, , hdc
    .参数 将反转的区域, 整数型, , hRgn

.DLL命令 刷子填充区域_, 整数型, "gdi32.dll", "FillRgn"
    .参数 设备场景句柄, 整数型, , hdc，设备场景句柄
    .参数 区域句柄, 整数型, , hRgn，以数据设备坐标填充的区域句柄
    .参数 刷子句柄, 整数型, , hBrush，要用的刷子的句柄

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

.DLL命令 取得窗口信息_, 整数型, "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命令 刷新窗口, , "user32", "UpdateWindow"
    .参数 hwnd, 整数型

.DLL命令 SetScrollInfo, 整数型, "user32", "SetScrollInfo"
    .参数 hwnd, 整数型
    .参数 n, 整数型
    .参数 lpcScrollInfo, SCROLLINFO
    .参数 bool, 逻辑型

.DLL命令 GetScrollInfo, 整数型, "user32", "GetScrollInfo"
    .参数 hwnd, 整数型
    .参数 n, 整数型
    .参数 lpcScrollInfo, SCROLLINFO

.DLL命令 ShowScrollBar, 整数型, "user32.dll", "ShowScrollBar", , , ShowScrollBar
    .参数 窗口句柄, 整数型, , hwnd
    .参数 滚动条标志, 整数型, , wBar
    .参数 显示标志, 整数型, , bShow

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

.DLL命令 移动区域_, 整数型, "gdi32.dll", "OffsetRgn", , 区域状态
    .参数 区域句柄, 整数型, , hRgn，区域句柄
    .参数 横向移动量, 整数型, , x，以逻辑坐标表示的水平偏移量
    .参数 纵向移动量, 整数型, , y，以逻辑坐标表示的垂直偏移量