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

在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;

云领域:且看亚马逊、Rackspace、微软及谷歌四国争霸 十一位EMC高管读2013技术趋势 你准备好了吗? Yahoo:拥抱Hadoop和HTML5 苹果聘女黑客为系统安全员 曾让Vista推迟发布 移动游戏定价之谜:0.99美金行不通 9.99美金和19.99美金才是王道 2012末日年:《时代》评选年度十大App 使用HTML5 Web存储实现离线工作 紧跟亚马逊、谷歌步伐 微软下调Azure云服务价格 云计算一周热点回顾:Hadoop专家分享大数据技术工具与最佳实践 Python之父Guido Van Rossum离开谷歌 一月加盟Dropbox 图灵奖获得者Butler Lanpson:计算机在做些什么 华为高级技术经理Anoop Sam John:HBase的二级索引 秦令今:技术是竞争的核心,形成自己的特色! 兰旭:拒绝同质化,做自己的真材实料! Cloud Foundry直面PaaS对手 初具商用能力 IndieBros访谈:探寻《2+18+200万》背后的故事 移动周报:生存还是毁灭 HTML5未来路在何方? 开发者的新机遇:微软生态系统打开开源大门 阻碍创新:谷歌、Facebook请求驳回抽象专利概念 Apple专利战分析:战火不停 创新不止 史上最牛独立开发者:花20美元狂赚100万美元 Twitter VS. Instagram:照片分享大战爆发 第二届“龙芯杯”中国开源软件设计大赛圆满落幕 TUP Masters第六期实录:Jeffrey Richter讲解Win8应用开发与.NET4.5 [简讯]Bootstrap 2.2.2发布 官博宣布新特性 我们正处于API的黄金时代吗? 敏捷开发的26条至理名言 12月10日:1815年首位程序员Augusta Ada出生 TOP30+应用排行榜:十一月国内外综合榜单 抱大腿:Square礼品卡服务进驻Passbook 科技创新剑指开源产业 “龙芯杯”破题自主研发 DAO编程,代码那里错了?? problems about calling xp_cmdshell proc.I need ur help. 关于Debug问题! 一个小问题,谁解决就给100分。在线等待 修改表里一个字段的类型,怎样写SQL语句? 编程高人给个流程图好吗? 用MAPI怎样取出邮件附件,急用 如何调用计算器啊? 为什么我的机器运行spy++出错啊, 关于网络流量的监控,高分 ***************动态创建DSN中的一个怪问题***************** 除了电脑程序外,还有什么物理性的方法可以清洗喷墨打印机的墨头? 请问这首歌的歌名? xmldom问题。 讨论:给个用XML的理由先,我现在只知道XML可以跨平台,提供数据接口的作用。请大侠讨论一下 如何定义全局变量? 在线等待:在DELPHI中调用windows api 的 SetFocus(),应怎样调用? 关于指针问题 有点搞不懂了!! switch的简单问题 在哪里添加全局函数 两个asp.net问题,请高手一定解答! 关于Treeview的几个问题? 怎样才能实现按返回按钮以后,自动刷新刚刚提交的页面!代码如下,请帮我改改! HELP!!! 请问VB关闭WINDOWS下面的所有窗口的命令是什么?谢谢 数据移植问题,多帮忙呀! 问来问去,也没问出个所以然来。干脆再简化一下问题吧。 如何制做帮助文件? 一个XML绑定数据集的问题? 多层数据库一问!!!!!!!!!!!!!!!!!!!!!!!!!! 关于winvnc(在线等待) 请问“数据结构”这门课主要是学什么的? 这个毛病是什么原因?(加急,肯请赐教) 在线等候?自定义控件问题? 请问知道进程的ID值和句柄,能否控制程序窗口的大小? 多层数据库疑问!!!!!!!!!!!!!!!!!!!!!!!!!!! 关于IBM AS/400 DB2数据库编程 怎么从_streamptr 中恢复 recordset? 与数据库建立联接的后续问题 早上偶然看见前女友从眼前走过,突然有种莫名的感动 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 一个菜鸟的苦恼!! 用命令行配置IIS的命令是什么? 看看这个程序到底错在哪? 查找点对象问题,各位进来帮我看看 各位朋友一定请帮忙,关系到我工作问题(不是很难) 用ASP和Javascritp或Vbscript配合将SQL Server里的数据在客户端转换成EXCEL文件 Application的问题,急 谁能告诉我《银色幻想》在哪里有得下,万分感谢!!给分多多 新開一貼,sql語句請教,急,給分!!! 三峡大坝设计高度175m,当水位达到150m时,坝底所受的压强是多少? 6a的平方b的平方的系数、次数、项数 混合二阶偏导数相等对于二元函数,有一阶偏导数可导(fx(x,y)对y可导,fy(x,y)对x可导),则二阶混合偏导数连续对吗,即混合偏倒数相等? 非齐次方程特解与对应齐次方程特解差仍为非齐次的特解吗?全书只说了其和为非齐次的特解,可是在题中答非齐次方程特解与对应齐次方程特解差仍为非齐次的特解吗?全书只说了其和为非齐 4a²b²的系数、次数、项数分别是什么?5分之3x²y的系数、次数、项数分别是什么?a的四次方-2a²b²+b的四次方的系数、次数、项数分别是什么? 北京初中一对一个性化教育电话大全/初中语数外物化一对一辅导 如图所示,匀强磁场竖直向下,磁感应强度为B,正方形金属框abcd可绕光滑轴OO`转动,边长为L,总电阻为R,ab边质量为m,其他边质量不计,现将ABCD拉至水平位置,并由静止释放,经时间t到达竖直位置,产 棉花秆栽培平菇配方我们这里有大量的棉花秆在地里,想栽培平菇,但是不知道还需要搭配什么原料?最好有详细配方. 【说明为什么】1.马虎同学是班里有名的“小画家”,在学习了有关蝗虫的知识后,就画了一只蝗虫(如图1所示),同学们说他画错了,请你帮他指出图中的两处错误.2.你喜欢做引体向上吗?当 太阳风暴是超声波辐射吗 平菇的种植配料我准备了木屑、玉米芯、稻草、它们是否可以合用、配比是多少?还差些什么配料?求高人解答 初一上生物题 . 三峡大坝内水位达到175米时,水面下25米,水对坝压强是?船底在水面下10米,1平方厘米上受到水的压力是?长江三峡大坝内水位达到175米时,在水面下25米深处,水对坝的压强大小是?如果船底在水面 求平菇木屑生料栽培配方?我用的是沙树干木屑,求一个栽培平菇生料的配方` 我想画些只有四五张的幼儿故事连环画挂在墙壁上想请教幼师或者绘画高手几个幼儿故事连环画 大概20多个吧(本人积分不多 ) 有关超声波发射的问题……我目前在做一个有关超声波测距的设计,发射功率与距离的关系,比如我要做大概3-5米的测量,那么超声波要做多大的功率啊? 为什么什么说从公元10世纪初至公元13世纪这段时间是我国历史上“民族政权并立的时代”? y=x的3次方 ,x=1 及 X轴所围成的图形面积 高数的 如图所示,竖直面内放置的两条平行光滑导轨,电阻不计,匀强磁场方向垂直纸面向里,磁感应强度B=0.5T,导体棒节ab、cd长度均为0.2m,电阻均为0.1Ω,重力均为0.1N,现用力向上拉动导体棒ab,使之匀速上 为什么说从公元10世纪唐朝灭亡后至公元13世纪元朝建立前的这段时期,是我国历史上 高数!求y=2x与y=3-x^2围成的图形面积 =SUMIF($N$3:$IV$3,"*件数*",N4:IV4) 在电脑上怎么操作这个公式 玛雅文明预言公元2012年12月23日是世界末日,那他们为什么没有说明自己就在历史的长河中突然消失? 如何在PPT中添加圆环图 如图所示的电路中,电源电压为U=60V,内阻不计,电阻R=2欧姆,电动机的内电阻R1=1.6欧姆,电压表的示数为50V.求电动机的输出功率(R在干路,R1和电压表并联,图画不出来, 为什么公元100年是2世纪,900年是10世纪如题 ppt中间透明圆环怎样建立 为什么太阳光谱中的暗线不是地球大气吸收的结果 地形图中垃圾桶怎么标志 ppt里面怎么设计图形旋转动画的? 超声波有辐射么 对孕妇有影响么 想用sumif公式对下列表格求和,请问具体方法A列 B列 C列 产品编号 数量 金额92L33p11 1 130093k12q17 2 322001N18J23 1 89908M17L11 3 2330产品编号的第5位是厂家代码,我想根据第5位每个厂家的代码,计算出每 -4a³bc²/3是几次几式,系数是_____ (8/9xy^2-4/3x^2y)*(9/4x^2y^2)+3x^2y^2*x^2y 复杂的sumif公式如何计算求和?B2,B3,B4,B5对应的产品分别是萝卜,蒜苗,黄瓜,白菜;C2,C3,C4,C5对应的是白菜,黄瓜,萝卜,蒜苗产品,在C列后面是D列,D2,D3,D4,D5是周一的销量,分别是100,120,150,166 ;同样,E 画一幅画哈?一只狗,一棵树.一条河.一只乌鸦.一个垃圾桶.你要怎么画? 液态水的温度范围是多少呢? 太阳的发射光谱和地面测得的太阳光谱有何不同?为什么? 下列能提高生态系统稳定性措施A减少食肉动物的数量B减少食草动物的数量C增加分解者数量D增加物种种类和数量为什么?如果一个生物数量突然增多,不是会影响到其他生物吗?怎么会提高稳定 温度低于10℃是否还存在液态水 流水能流多久 心能痛几何 世界上的第一种生物是什么? 硫在哪个温度范围呈液态? 一颗心究竟可以承受多少痛. 如图所示,一次函数y=(m-1)x-3的图象分别与x轴,y轴的负半轴相交于点a,b.则m的取值范围是? 竖直放置的光滑U型导轨宽L=0.5m,置于范围很大的磁感应强强度是B=1T的匀强磁场中,磁场垂直于导轨平面,如图所示,质量为m=10g的金属杆ab,无初速度释放后,紧贴导轨下滑(始终能处于水平位置) 永远有多远,心能承受多少痛 2πR的系数是什么?次数是什么? 求:发射有代码的超声波的发生器! 我想用手机接收有代码的超声波,用于测距!找一个可以发送 带有代码的超声波发生器! 为什么天空反射蓝光?落日反射红光? 若一次函数y=-2x+b的图象不经过第三象限,试确定b的取值范围 判断题;线性齐次方程的两解之差仍是原方程的解. 金属铜网和水泥块在启普发生器中为何可做双氧水分解的催化剂? 若二次函数Y=ax2-2x+3的图象不经过第三象限,求a的取值范围 判断题:线性非齐次方程的两解之差是其对应齐次方程的解. 4a的2次方b的2次方系数?次数?项数? 二阶偏导数应该怎么求?本人比较愚笨,书上那个看不懂啊 矩形金属框abcd宽L=0.20m,足够长,质量m=0.10kg,电阻R=0.10Ω.在金属框的正下方有一匀强磁场,磁场方向垂直纸面向里,磁感应强度B=0.50T.开始金属框下端ab正好处于磁场上边缘处,并与磁场边缘平行.现 4a的平方b的平方的项数是什么? 二阶偏导数请问这个偏导数求导这里(如图)该怎么求了?能详细一点吗?好的我一定追加20分.谢谢.1L辛苦了,不过答案错了。。。继续求。。。 尼日尔移民车沙漠抛锚 致90人脱水而人民币设计者:女拖拉机手不是“人民币武警战士吐槽办证难:户口20多年没办默克尔遭美国监听 德议员称斯诺登愿协斯诺登最新照:在莫斯科乘游览船 未戴河南100多公里路200人执法 司机昨天火车东站二楼突然地裂 乘客被卡其今起浙江93号汽油每升降6分钱 创今国家卫计委发文:6个月以下婴幼儿不推11月的第一个周末有秋日也有桂花雨 “杭马”周日开跑西湖边交通管制 流动浙江百万元奖励一线杰出职工 每人获奖加拿大首设“比特币”ATM机“免费”医疗让俄罗斯进退两难孟建柱向上合组织通报10·28恐怖事美空管局解除禁令 飞行全程可使用电子美国也要守“村规民约”简化赴英签证手续今日实施专家:72小时绝对隔离吸烟让你变丑:双胞胎脸部皮肤对比作证俄罗斯8名高官因瞒报收入被罢免“我是歌手”含金量有多高?“我是歌手”含金量有多高?纸上谈足球双生花 待光盛开阿含桐山杯中国12连霸花生漫画65周年人文艺术展来到杭州十类舌尖上的危险快检过程大揭秘媒体:中国高铁“出海”为何这么难《宿命:孤独张艺谋》高尔夫球屡“空袭” 砸坏村民屋顶中国女篮集训名单出炉 北京四将入选苗土豆网创始人 1.3亿拍《小门神》议案提案公开是个好主意陈卓毅代号“40”号 卧底敌巢穴北京四将入选国家队北京城区天气高职学校“地铁订单班”受追捧京媒:恒大光靠高拉特远远不够 默契程土耳其抓获帮助英国少女投奔IS帮凶新话剧月底亮相 《恋人》遇《蠢蛋》安倍们,你们听明白了吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘