超级列表框字体颜色问题

4463424

用官方超级列表框例程改的
设置了两处颜色，选择非本行，颜色不会变，选择本行 颜色就会被改成黑色。请问下大家这应该怎么解决




修改的

------------------------------------------------------------------------------------------------------------------------------
<火山程序 类型 = "通常" 版本 = 1 />

方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    如果 (来源对象 == 按钮3)
    {
        列表框2.置标题 (0, 0, "按钮3")
    }
    如果 (来源对象 == 按钮2)
    {
        挂接事件 (列表框2, 6)
        列表框2.置标题 (1, 2, "挂接")
    }
    如果 (来源对象 == 按钮1)
    {
        挂接事件 (列表框2, 5)
        列表框2.置标题 (1, 1, "你发")
    }
    返回 (0)
}

方法 超级列表框_即将绘制 <接收事件 类型 = 整数 注释 = "  在超级列表框即将绘制某项目之前被发送,用户可以修改所提供参数中的"
        注释 = "\"文本颜色\"和\"背景颜色\"成员值以修改在绘制时所实际使用的颜色值.">
参数 来源对象 <类型 = 超级列表框 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
参数 绘制参数 <类型 = 超级列表框绘制参数 注释 = "  用户可以修改本参数中的\"文本颜色\"和\"背景颜色\"成员值以修改在绘制" 注释 = "时所实际使用的颜色值."
        注释 = "  注意: 如果修改了本参数中的\"文本颜色\"和\"背景颜色\"成员值,将会对" 注释 = "当前表项的当前列及其后所有列均造成影响.">
{

    如果 (标记值 == 5)
    {
        绘制参数.文本颜色 = 颜色类.红色
    }
    否则 (标记值 == 6)
    {
        绘制参数.文本颜色 = 颜色类.绿色
    }
    否则 (标记值 == 0)
    {
        绘制参数.文本颜色 = 颜色类.黑色
    }

    取消事件挂接 (列表框2)
    返回 (0)
}