易语言超级列表框添加组件源码

系统结构:处理,重画控件,被单击,创建进度条,设置进度条,画出进度条,绘制进度条,CallWindowProcA,SetWindowLongA,GetScrollRange,GetScrollPos,删除目标,放弃环境,取环境,取窗口环境,创造固定刷子,SetBkMode,CreateRectRgnIndirect,FrameRect,填充,置文本颜色,DrawTextA,ExtSelectClipRgn,

======启动窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 处理
           |  |
           |  |------ 重画控件
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 被单击
           |  |
           |  |------ _单选框1_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级列表框1_当前表项被改变
           |  |
           |  |
======绘制进度条
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建进度条
           |  |
           |  |------ 设置进度条
           |  |
           |  |------ 画出进度条
           |  |
           |  |------ 绘制进度条
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   GetScrollRange
           |  |
           |  |---[dll]------   GetScrollPos
           |  |
           |  |---[dll]------   删除目标
           |  |
           |  |---[dll]------   放弃环境
           |  |
           |  |---[dll]------   取环境
           |  |
           |  |---[dll]------   取窗口环境
           |  |
           |  |---[dll]------   创造固定刷子
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   CreateRectRgnIndirect
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   填充
           |  |
           |  |---[dll]------   置文本颜色
           |  |
           |  |---[dll]------   DrawTextA
           |  |
           |  |---[dll]------   ExtSelectClipRgn

调用的DLL命令:

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 GetScrollRange, 整数型, "user32", "GetScrollRange", , 返回滑块运动范围
    .参数 hwnd, 整数型
    .参数 nBar, 整数型
    .参数 lpMinPos, 整数型, 传址
    .参数 lpMaxPos, 整数型, 传址

.DLL命令 GetScrollPos, 整数型, "user32", "GetScrollPos", , 返回滑块位置
    .参数 hwnd, 整数型
    .参数 nBar, 整数型

.DLL命令 删除目标, 整数型, , "DeleteObject", , DeleteObject
    .参数 目标, 整数型, , hObject

.DLL命令 放弃环境, , , "ReleaseDC", , ReleaseDC
    .参数 句柄, 整数型, , hwnd
    .参数 环境句柄, 整数型, , hdc

.DLL命令 取环境, 整数型, , "GetDC", , GetDC
    .参数 句柄, 整数型, , hwnd

.DLL命令 取窗口环境, 整数型, , "GetWindowDC", , GetWindowDC
    .参数 句柄, 整数型, , hwnd

.DLL命令 创造固定刷子, 整数型, , "CreateSolidBrush", , CreateSolidBrush
    .参数 颜色, 整数型, , crColor

.DLL命令 SetBkMode, , , "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型, , 1.透明

.DLL命令 CreateRectRgnIndirect, 整数型, , "CreateRectRgnIndirect"
    .参数 lpRect, 边框

.DLL命令 FrameRect, , , "FrameRect"
    .参数 hdc, 整数型
    .参数 lpRect, 边框
    .参数 hBrush, 整数型

.DLL命令 填充, , , "FillRect", , FillRect
    .参数 hdc, 整数型
    .参数 lpRect, 边框
    .参数 hBrush, 整数型

.DLL命令 置文本颜色, , , "SetTextColor", , SetTextColor
    .参数 hdc, 整数型
    .参数 颜色, 整数型, , crColor

.DLL命令 DrawTextA, , , "DrawTextA"
    .参数 hdc, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, 边框
    .参数 wFormat, 整数型

.DLL命令 ExtSelectClipRgn, , , "ExtSelectClipRgn"
    .参数 hdc, 整数型
    .参数 hRgn, 整数型
    .参数 fnMode, 整数型