双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

TAdvListView的颜色显示问题

2012-08-01 03:22:55 232 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sxqinge 墨衍会员 · AI 创作全网分发关注 + 加入社区

TMS VCL UI Pack：Delphi开发者的组件宝库与实战全解析在桌面应用开发领域，Delphi和C++Builder凭借VCL框架的高效与稳定，仍是许多工业级业务系统的首选。但面对复杂的数据表格、图表联动、计划排程等交互需求，原生控件往往力不从心，于是第三方组件库成了提升开发效率的关键。TMS VCL UI Pack作为一款覆盖超100个控件的商业组件包，以完整源码（Full Source）和高版本兼容性著称，让开发者既能深入调试，又能按需定制。无论是制造业MES、医疗信息系统还是进销存管理，用它对数据看板、甘特图、高级网格等场景进行快速搭建，都可以显著缩短工期并降低阅读详情

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

...全文

游戏服务器开发面试精解这是一份游戏服务器开发方向的面试题库，共 295 题，覆盖游戏服务端架构、网络通信、同步模型、场景管理、战斗系统、数据存储、分服容灾、反作弊运维等核心链路，交付三种阅读版本，方便随时翻看。内容主线按面试实际被追问的路径组织，覆盖十二个模块：游戏服务器整体架构与进程模型、网络通信（TCP/KCP/UDP/协议设计）、同步模型（状态同步、帧同步、预测回滚）、场景管理与 AOI、战斗与技能系统、任务活动与商业化系统、数据库设计与数据落地、缓存与内存数据库（Redis）、分区分服跨服与合服、高并发容灾与回档、防作弊与外挂对抗、运维监控日志与线上事故处理。游戏服务端和普通后端不同，考的不是 Redis 分布式锁这种背一遍就行的八股，而是 100 人同屏广播怎么压、帧同步不同步怎么查、回档事故怎么收场这类一线踩坑题。作者面过腾讯 IEG、网易雷火、米哈游等公司的服务端岗，按公开面经频次统计后重新出题并逐题写解答。每题先给一句能直接说出口的结论，再展开原理或排查步骤，最后列回答要点；带追问标记的题顺着项目场景往下挖。版本基准对齐 C++17、Linux epoll、MySQL 8.0 InnoDB、Redis 7.2、MongoDB 6.0、protobuf、KCP，Netty 与 Go 在对比题里提到。适合准备校招或一到三年社招、目标腾讯、网易、米哈游、莉莉丝、三七等游戏服务端岗的同学，C++ 为主的服务器方向最对口，Go 或 Netty 栈的同学看网络和架构部分也通用。使用时第一遍从头过，盖住答案自己说一遍，卡壳的标星；第二遍只看标星和高频题；面试前重点看同步、战斗、回档三个模块，追问别跳过。立即下载

sxqinge

VCL组件使用和开发 604 成员 13,456 内容

+ 关注 + 加入社区

切换为时间正序

sxqinge 2012-08-07

打赏
举报

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

sxqinge 2012-08-02

打赏
举报

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

sxqinge 2012-08-01

打赏
举报



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;

}

Jim@luckeeinc.com 2012-08-01

打赏
举报

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

ccrun.com 2012-08-01

打赏
举报

上代码，看看再说。

✦双11狂欢大促✦

TAdvListView的颜色显示问题

相关推荐

双11狂欢大促