易语言子类化列表框源码

系统结构:子类化列表框,子类化,还原子类化,画焦点矩形_,文本绘图_,设置前景色_,设置背景颜色_,删除对象_,填充矩形_,创建纯色刷子_,发送消息_,呼叫窗口函数地址_,设置窗口信息_,取系统默认色_,取结构类型尺寸,拷贝内存,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子类化列表框
           |  |
           |  |------ 子类化
           |  |
           |  |------ 还原子类化
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   画焦点矩形_
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   设置前景色_
           |  |
           |  |---[dll]------   设置背景颜色_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   填充矩形_
           |  |
           |  |---[dll]------   创建纯色刷子_
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   取系统默认色_
           |  |
           |  |---[dll]------   取结构类型尺寸
           |  |
           |  |---[dll]------   拷贝内存

调用的DLL命令:

.DLL命令 画焦点矩形_, , "user32.dll", "DrawFocusRect", , , 画一个焦点矩形
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 矩形轮廓, 矩形_, , lpRect,要在逻辑坐标中描绘的矩形

.DLL命令 文本绘图_, 整数型, "gdi32.dll", "TextOutA", , , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
    .参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
    .参数 内容, 文本型, , lpstring，欲描绘的字串
    .参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量

.DLL命令 设置前景色_, 整数型, "gdi32", "SetTextColor", , ,
    .参数 设备场景, 整数型
    .参数 颜色, 整数型

.DLL命令 设置背景颜色_, 整数型, "gdi32.dll", "SetBkColor", , , SetBkColor，背景颜色用于填充阴影刷子、虚线画笔以及字符（如背景模式为OPAQUE）中的空隙。也在位图颜色转换期间使用。参考SetBkMode,Long，前一个背景色，CLR_INVALID表示出错
    .参数 设备场景句柄, 整数型, , hdc，设备场景的句柄
    .参数 RGB颜色值, 整数型, , crColor，新背景颜色的RGB颜色值

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

.DLL命令 填充矩形_, 整数型, "user32.dll", "FillRect", , , FillRect,用指定的刷子填充一个矩形
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 填充区域, 矩形_, , lpRect，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄

.DLL命令 创建纯色刷子_, 整数型, "gdi32.dll", "CreateSolidBrush", , ,
    .参数 颜色值, 整数型, , crColor，颜色值

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

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA", , ,
    .参数 前一窗口函数地址, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

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

.DLL命令 取系统默认色_, 整数型, "user32", "GetSysColor", , ,
    .参数 类型, 整数型

.DLL命令 取结构类型尺寸, 整数型, , "GlobalSize", , API_len1,GlobalSize,欲取尺寸的结构类型
    .参数 hMem, DRAWITEMSTRUCT, 传址, hMem，欲取尺寸的结构类型

.DLL命令 拷贝内存, , "kernel32", "RtlMoveMemory", 公开
    .参数 Destination, DRAWITEMSTRUCT
    .参数 Source, 整数型
    .参数 Length, 整数型