TAdvListView的颜色显示问题

[sxqinge]

我不断的往表格中添加数据，并对不同的数据进行颜色处理，比如对异常数据的单元格背景填充为红色。
现在的问题是，
只要我界面一刷新，比如将界面给最小化，然后最大化一下，或者是数据过多将会有滚动条出现时，奇异的事情就出现了，第一列有数据填充的单元格全部变为红色，如果再次刷新一下，部分红色会消失，但是第一个单元格随便你怎么刷新，它肯定是红色。
请问这是什么原因呢？我该怎么解决？

[ccrun.com]

上代码，看看再说。

[[e-mail]]

TMS我也一直在用,还算稳定,不过有的控件确实有一些问题
比如AdvColumnGrid在填了数据后,对某一个单元格的数据修改后update数据库再刷新,居然单元格会变成空的要刷新两次...
LZ的说的控件没用过,如果确实不是程序问题造成的,自己想办法处理吧..看看AdvancedCustomDraw或者OnData这些事件里能不能处理把改颜色写到这些事件里来

[sxqinge]

1.数据添加函数
void  TfrmMain::AddDatas(TAdvListView* lv, const AnsiString Str, int &Value)
{
	int Port = Str.ToIntDef(0);
	if( Port <= 0 ) return;
	if( m_CommForms[Port]->MeasValue == Value ) return;
	Value = m_CommForms[Port]->MeasValue;  // 这里是获取采集数据
	m_Error[Port] = m_CommForms[Port]->m_Error; //m_Error为异常标识

	static int tt = 0;
	int Row = lv->Items->Count-1;
	TListItem* Item = lv->Items->operator [](Row);
	if( NULL == Item  ) {
		Item = lv->Items->Add(); Item->Caption = tt++;
		for( int i=0; i<10; i++ ) Item->SubItems->Add("-1");
	}
	else {
		if( Item->SubItems->Strings[9] != "-1" ) {
			Item = lv->Items->Add(); Item->Caption = tt++;
			for( int i=0; i<10; i++ ) Item->SubItems->Add("-1");
                 // 上一句，本来想用Item->SubItems->Add("");结果发现添加不成功，
                   //  如果后面直接往SubItem里填入数据会报错，指针溢出；
		}
	}

	AnsiString tmp = IntToStr(Value);
	for( int i=0; i<10; i++ )
	{
    	if( Item->SubItems->Strings[i] != "-1") continue;
		Item->SubItems->Strings[i] = tmp;
		break;
	}
}

2.添加过程函数
void __fastcall TfrmMain::lvList1AdvancedCustomDrawSubItem(
	  TCustomListView *Sender, TListItem *Item, int SubItem,
	  TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)
{
	SubItem -= 1;
	static int temp = 0;
	if( m_Start[0] ) {temp = Item->SubItems->Strings[SubItem].ToInt()-1;m_Start[0]=false;}
	int Port = edtMeter1->Text.ToIntDef(0);
	SubItemDrawFun(Sender,temp,Item,SubItem,DefaultDraw, m_Error[Port]);
}

void	TfrmMain::SubItemDrawFun(  TCustomListView *Sender, int &pData,
			 TListItem *Item, int SubItem, bool &DefaultDraw, bool bFlag)
{
	Sender->Canvas->Brush->Color = clInfoBk;
	int data = Item->SubItems->Strings[SubItem].ToInt();
	if( bFlag ) Sender->Canvas->Brush->Color = clLime;
	else {
		int K0 = (int)(abs(data-pData)+0.5);
		if( K0 != RIGHTVALUE ) Sender->Canvas->Brush->Color = clRed;  // #define  RIGHTVALUE  1
	}

	pData = data;
	DefaultDraw = true;
}

[sxqinge]

自己顶下，代码虽然难看，还望热心高手给予指点，真诚谢谢。

[sxqinge]

现在论坛似乎活跃了不少，帖子几天没顶居然被落到第二页了。
继续等热心大虾解疑答惑，谢谢。