说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中随意控制DBGrid 每一行的颜色

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中随意控制DBGrid 每一行的颜色

---- 要改变DBGrid每一行的颜色,只要在ONDrawColumnCell事件中设定要改变颜色的行的条件,并指定DBGrid的Canvas.Brush.color属性并且把Canvas.pen.mode属性设成pmmask,再调用DBGrid的DefaultDrawColumnCell方法即可。注意在改变这两个属性前要先保护好原来的Canvas.Brush.color属性的值,调节器用完成 DefaultDrawColumnCell方法后要把原属性值改回,现以Delphi\demos\db\clientmd 目录下的演示程序clintproj.dpr 为例子

做简单说明,下面是对程序中的栅格MemberGrid的合条件的整行进行变色,变成黑体背景黄色的,其它不合条件的行的颜色为正常字体,白色背景,只在DrawColumnCelL 事件中设条件其它的不变,如下:

procedure TClientForm.MemberGridDrawColumnCell(

Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn;

State: TGridDrawState);

var

oldcolor:tcolor;

oldpm:tpenmode;

begin

if DM.ProjectTEAM_LEADER.Value =

DM.Emp_ProjEMP_NO.Value then {设定变色的行的条件}

MemberGrid.Canvas.Font.Style := [fsBold];

MemberGrid.DefaultDrawColumnCell

(Rect

DataCol

Column

State);

{上面是演示程序的原内容,以下是增加部分}

if DM.ProjectTEAM_LEADER.Value =

DM.Emp_ProjEMP_NO.Value then {设定变色的行的条件}

begin

oldpm:= MemberGrid.Canvas.pen.mode;

oldcolor:= MemberGrid.Canvas.Brush.color;

MemberGrid.Canvas.Brush.color:=clyellow;

MemberGrid.Canvas.pen.mode:=pmmask;

MemberGrid.DefaultDrawColumnCell

(Rect

DataCol

Column

State);

MemberGrid.Canvas.Brush.color:=oldcolor;

MemberGrid.Canvas.pen.mode:=oldpm;

end;

end;

专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 Qualcomm拥抱创客文化:如何基于DragonBoard 410c创造和创业? 【探秘ES6】系列专栏:剩余参数和默认参数 专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联·云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 2015 PHP框架调查结果出炉,Laravel最受欢迎! 【CTO会员专访】KEEN创始人兼CEO王琦:在GeekPwn,遇见一极棒的安全人才 创业公司都在使用的3款Python库 深入理解Objective-C的Runtime机制 你不知的Docker 创办人兼CTO游走美法的浪漫狂放 《近匠》环信CEO刘俊彦:移动客服的未来化场景 iOS UIView动画实践(三):Transition Animation 【CTO讲堂】无社交,不App!——为App加载强大的通讯社交引擎 【探秘ES6】系列专栏(七):箭头函数 【前端框架】Backbone.js在大型单页面应用中的应用实践 【探秘ES6】系列专栏(六):解构赋值 《近匠》TestBird,专注的手游自动化云测试平台 【探秘ES6】系列专栏(八):JS的第七种基本类型Symbols 专访李林锋:我与Netty那些不得不说的事 手把手教学:巧用Core Data和RubyMotion开发iOS应用 《近匠》琥珀天气,精细化打磨征服Google Play “红萝卜的胳膊白萝卜的腿”谁听过? 问一个语法的问题? 读入文本的回车和换行为什么都没有了 类似HTML为扩展名的有哪几种文件 安装php+Mysql+Apache时出现的一个小问题,请高手指教! 取url中?后参数的javascript函数是什么? 怎么样来控制声道,如左声道,右声道,立体声? 简单问题,能介绍一下dual吗?? 新操作系统,老编程工具 这样能兼容吗? applet请教 衷心祝愿正在找工作的朋友们心想事成 浪费了几百份了,从来没人回答这个问题,窝气阿,up以下也好啊?????? 米卢是神奇的,中国队更神奇! 有谁知道哪里可以下载PDF Reference Manual中文版? 请教各位大虾! 怎样能把oracle数据库中的所有用户表的结构以及主键外键信息导出为sql 脚本? 踢得真不公平,真是21人踢我们一个人! 友情链接,我的网站http://fullstrong.myetang.com/ VB里面怎么编译出,不用安装的运行程序,请问在那里设置?(上限5分,人人有分)? 哪位大师知道在VC中怎样实现视频捕捉功能 有谁知道mp3的压缩和解压缩算法 问一下关于文件图标的问题。 pb6.5,win2000中文板,Oracle817.在oracle中连接数据库正确。在pb中连接数据库错误。什么内存出错,还有pbo7360.dll acess error之类的错 急!!请问如何将扩展名为PLB的文件转换为SQL文件 关于datagrid的selecteditem事件 谁能告诉我如何给回答对的人加分呀,散分啦 有谁知道哪里可以下载PDF Reference Manual中文版? 文件上传,然后把文件中的数据写入数据库,怎样做到。 问一个很菜的问题 100分在线等待:请介绍resin 如何在listview在作模糊查询。100分 ODBC下正确,BDE下出错?为什么?分数不够可以再加 项目中的角色 vb中怎样终止一个正在运行的应用程序? ADO编程,怎么把SQL Server里的DateTime取到windows的SYSTEMTIME或time_t里? 简单问题!Webbrowser控件 谁用过在那里加?还有程序中怎么打开如“http://www.csdn.net”的页? 小问题,抢分呀 将一个数据库a1的记录追加到另一个数据库a2记录后面的SQL语句怎么写? 怪事! 求助:如何在一个已经存在的数据库中增加一个列(即增加一个属性)?? 字符串打印时换行如何避免中文字符被分成两半? 请高手进入解决“不能拨号上网”的问题? 两个存放在不同目录中的ini文件用什么方法比较起来比较方便? 如何用vb语言实现把sql server 2000中的数据导出成dbf 文件格式 如何指定float 型的小数点后位数(比如2位) redhat7.3 Kdevelop2.1中为什么设置断点不起作用? 怎样同时删除几个表中有相同ID的记录? 怎么搞的,.exe突然变大。。。 为什么std::string也支持汉字,不是有wstring来支持宽字符串吗? 调节音量大小怎么做。 各位高手,如何在delphi中恢复备份了的sqlserver数据库 有机化合物的结构简化,写出下列物质的化学式 居委会是怎么选举的 照明供电线路的路端电压基本上是保持不变的.可是我们在晚上照明供电线路的路端电压基本上是保持不变的,可是我们在晚上七、八点钟用电高峰时开灯,电灯比深夜时要显得暗些,这是因为此 写出厨房中的有机物.你能写这些有机物的化学式吗? 社区居委会选举手册 照明电压高怎么办 一列火车从静止开始做匀加速直线运动,有一人站在站台上从第一节一列火车从静止开始做匀加速直线运动,有一人站在站台上从第一节车厢的前段观察,第一节车厢通过他历时2s,全部车厢通过 太阳能能转化风能吗? 往电瓶车电瓶里加硫酸好.还是加蒸流水好 请写出几种厨房里的有机物(化学式)请问酒精(C2H5OH)算吗?不是有料酒的吗? 一道物理中的受力分析题有一木棍斜放在如图所示的位置上,画出它所受的力以及每个力产生的原因. 2010年3月召开的第十一届全国人大三次会议,表决通过了关于修改《中华人民共和国选举法》的决定.这表明全国人民代表大会具有什么权? 一列火车从静止开始做匀加速直线运动,有一人站在站台上从第一节车厢的前端观察.第一节车厢通过他历时2s,全部车厢通过他历时6s.试求:(1)这列火车共有几节车厢?(2)最后2s内有几节车 一道物理受力分析题如图所示,两个倾角相同的滑杆上分别套A、B两个圆环,两个圆环上分别用细线悬吊着两个物体C、D,当它们都沿滑杆向下滑动时,A的悬线与杆垂直,B的悬线竖直向下.则下列说 二氧化碳 溶于水,生成H2CO3 …这物质是,盐还是酸? 自制延时照明开关电路图问题我按照这个电路图做了个延时照片开关,可是做好后不管打还是关闭开关,灯泡都是亮的,区别就是断开开关后灯泡的亮度降低了,并没有延时关闭,请问各位这是怎 一列火车从静止开始做匀加速直线运动,一人站在第一节车厢前观察,第一节车厢通过他历时2s一列火车从静止开始做匀加速直线运动,一人站在第一节车厢前观察,第一节车厢通过他历时2s,全部 物理受力分析题两物体A和B,质量分别为m1和m2,互相接触放在光滑水平面上.对物体A施以水平推力F,则物体A对物体B的作用力等于多少? 照明用二个开关控制一盏灯线路图一个开关三个点有一捆线接开关另一点谁知道是那个点 一列火车从静止开始做匀加速直线运动,一个人站在第一列车厢前观察到第一节车厢通过他历时2S,全部列车通过他历时6S,那么这列火车共有车厢( )A.6节 B.8节 C.9节 D.10节请会的解说下,并说明 求一道物理题,受力分析题,在如图所示的装置中.表面粗糙的斜面固定在地面上.斜面的倾角为 30°;两个光滑的定滑轮的半径很小,用一根跨过定滑轮的细线连接甲、乙两物体,把甲物体放在 酸,碱,盐溶液能够导电只是靠可以自由移动的正离子 判断对错 一列火车从静止开始做匀加速直线运动,有一人站在站台上从第一节车厢的前端观察.一列火车从静止开始做匀加速直线运动,有一人站在站台上从第一节车厢的前端观察.第一节车厢通过他历时 一道容易受力分析题,急 如何把乙酸,乙醇,水,乙酸乙脂分离开来 ⒈如图所示使一薄钢下端固定,现分别用不同的力去推它,使其发生(a)、(b)、(c)、(d)各图所示的形变.如果F1=F3=F4>F2,那么说明力的作用效果跟力的作用点有关的图是---------------------- 声音传播的速度与介质有什么关系? 怎样才能把乙酸乙脂和无水乙醇分离开来? 酸,碱,盐的水溶液中的自由电荷是()和() 蜡烛的蜡滴到衣服上去了有什么方法清洗吗例如:蜡烛滴一大块到衣服上去? TS清晰版中英双字是什么意思 某旅客以1.5m/s的速度在火车车厢内行走.当车厢静止时,他从车厢的头走到车厢的尾需20s;当火车以10m/s的...某旅客以1.5m/s的速度在火车车厢内行走.当车厢静止时,他从车厢的头走到车厢的尾需20s 一道关于功与功率方面的物理题,电动机通过一绳吊起一质量为8kg的物体绳的拉力不能超过120N电动机的功率不能超过1200W要将此物体由静止用最快的方式吊高90m所用时间为多少?以致此物体在 p()()ts这是什么词 一列火车以15m/s的速度匀速前进,运动的路线是直线,已知车厢的长为20m,乘客以5m/s的速度在车厢内跑,则( )a乘客用4s从车头跑到车尾b乘客用1s从车头跑到车尾c乘客用2s从车头跑到车尾d乘客从车 一道功与功率的物理题质量为2t的汽车以恒定功率60kw从静止开始作直线运动,经10s速度为8m/s,此过程中汽车发动机做的功_________,汽车运动的位移范围_________ 下载时说的TS中字TC中字是什么意思 电动车天能牌硅胶电池能不能加电解液 物理功与功率的题质量m=2kg的木块在倾角a=37°的斜面上由静止开始下滑,木块与斜面间的动摩擦因数为0.5求:(1)前2秒内重力做的攻(2)前2秒内重力的平均速率(3)2秒末重力的瞬时功率 有机物的化学式C H N O 等的先后 火车5m/s速度 第一节前端经站台上旅客处时 加速 加速度2m/s第一节车厢经此用2s 问第五节经此用多少时间 一飞机质量为m 飞行中阻力与速度的平方成正比 当以速度v匀速飞行时 功率为P 功率增大到2p时 开始加速的加速度多大? 聊天中ts是什么意思? 英语作文假如你住在一个涉外小区.社区居委会请你帮忙根据以下提示用英文写一封电子邮件,将周末社区邀...英语作文假如你住在一个涉外小区.社区居委会请你帮忙根据以下提示用英文写一 政企分开,政事分开,政资分开,政与中介组织分开分别是指什么?碧海蓝天回答的很好,如果能结合你熟悉的一个例子解释一下, 硫酸铵受热分解到底成什么?怎么这么乱? 一火车速度为6.9m/s匀速前进,旅客以1.5m/s在车厢行走,如果旅客行进方向与列车运动方向相同,那么1.旅客相对于车外树木的运动速度为( )m/s2.如果旅客在车上行进30m,那么火车相对于地面运动的 在运动会中,小翔参加了铅球比赛,如果他用200N的力,将重50N的铅球投到了10m远处,则下列关于他投球时做功情况的说法中正确的是:A.做功2000J B.做功500J C.没有做攻 D.条件不足,无法计算我对于 硫酸铵受热分解生成什么? 在平直的轨道上,作业车以5m/s的速度匀速运动,一列火车以15m/s的速度匀速运动,当货车司机发现前方400米处的作业车时,开始刹车,为了不发生相撞,则刹车后火车的加速度至少应为多大? 硅酸盐 是又名水玻璃么硅酸盐加上哪种材料粘度更大更方便 石棉是硅酸盐某石棉的化学是为Ca2MgXSiYO22(OH)2 钙2镁x硅y氧22氢氧根2问x与y的值分别是?要解析 社区居委会工作总结 居委会个人工作总结 居委会主任工作总结 硅酸钠是最简单的硅酸盐,如果用二氧化硅和金属氧化物的形式来表示其组成,可表示为 硅酸钠的水溶液有粘性,是一种矿物胶,因此在实验室盛放NaOH溶液的试剂瓶用橡皮塞而不用玻璃塞,就是为 硅酸盐中没有sio2晶体,那为什么硅酸盐如青石棉会有sio2的性质? 请问电动自行车蓄电池硫酸与硫酸钠的配制比例是多少?还有就是硫酸钾与硫酸的配制比例又是多少呢? 什么是水玻璃硅酸盐模数 为何滑石可以做润滑剂,而同为硅酸盐的石棉性质却有很大不同,从其结构上如何说明滑石是一种硅酸盐,从滑石的结构上怎么解释这个?我只能说出它的硬度很低,具体结构上找不到资料来说明 如何用基准氯化钠标定0.1mol/L的硝酸银溶液 380V三相不接地系统,接照明用电电压,比如接三个1000W电灯各用一相,相对相电压是220V吗,如果用二相接串连两的个灯,各相电压还是220V吗,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘