递归火山软件开发平台

标题: 超级列表框字体颜色问题 [打印本页]

作者: 4463424 时间: 2023-6-9 22:16
标题: 超级列表框字体颜色问题

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

修改的

------------------------------------------------------------------------------------------------------------------------------
<火山程序类型 = "通常" 版本 = 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)
}

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)