易语言超级列表框高亮显示部分内容源码

系统结构:消息处理,创建字体_,GetDC,ReleaseDC,SetBkMode,TextOutA,SelectObject,SetWindowLongA,SetTextColor,CreateFontA,CallWindowProc,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 消息处理
           |  |
           |  |------ 创建字体_
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _超级列表框1_左键单击表项
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

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

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

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型

.DLL命令 TextOutA, 整数型, "gdi32.dll", "TextOutA"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpstring, 文本型
    .参数 ncount, 整数型

.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject"
    .参数 hdc
    .参数 hobject

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

.DLL命令 SetTextColor, 整数型, "gdi32"
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 CreateFontA, 整数型, , "CreateFontA", , 创建逻辑字体，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，以0.1度为单位
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 字节型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 字节型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 字节型, , 删除线属性标志(0:无删除线，非0:有删除线) 
    .参数 nCharSet, 字节型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 字节型, , 输出精度
    .参数 nClipPrecision, 字节型, , 剪切精度
    .参数 nQuality, 字节型, , 输出品质
    .参数 nPitchAndFamily, 字节型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 hsdz
    .参数 hwnd
    .参数 wMsg
    .参数 wParam
    .参数 lParam