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

为列表框添光彩-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
为列表框添光彩-Delphi资料

为了改变Listbox和Combobox两个控件的单调风格, 我想在它们的每一项前面加上个图标。从表面上看好像不大可能啦。就在走投无路的时候,我忽然发现这两个构件都有一个style属性, 它可以设为lbOwnerDrawFixed,Draw这个单词吸引了我,然后我又从Delphi的在线帮助中找到了一个相关的事件OnDrawItem,在这个事件中写一段代码,就可以在列表框中的每一项前面添加一个小图标啦。

---- 下面是在Listbox 的OnDrawItem事件中添加的代码:

procedure TForm1.ListBox1DrawItem(Control:

TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

var

Bitmap: TBitmap;

Offset: Integer;

begin

with (Control as TListBox).Canvas do

begin

FillRect(Rect);

Offset := 2;

Bitmap := TBitmap.create;

Bitmap.LoadFromFile(′d:\temp1\1.bmp′);

//指定图文件是d:\temp1\1.bmp

BrushCopy(Bounds(Rect.Left + 2

Rect.Top

Bitmap.Width

Bitmap.Height)

Bitmap

Bounds(0

0

Bitmap.Width

Bitmap.Height)

clRed);

Offset := Bitmap.width + 6;

TextOut(Rect.Left + Offset

Rect.Top

(Control as TListBox).Items[Index])

end;

end;

---- 进一步,利用OnDrawItem事件的参数Index还可以在不同项前面添加不同的图标。还要告诉你的是, 当用add方法为列表框或下拉框添加项目时, 会自动执行 OnDrawItem事件,这样新添加的项目前面也就有了一个图标。

OpenStack新版本:新增近350个功能,修复Bug超2900个 【走近讲师】易欢欢:数据对接和后台是互联网金融的技术最难点 最火HTML5 JavaScript游戏引擎:国外篇(二) 挑战最强大脑——来自全球的14个编码社区 摩尔定律让位于贝索斯定律 InPaaS:新一代云计算应用平台 【技术博客推荐】樊哲谈机器学习算法与Mahout Scala 2.11.0发布 仅支持Java 8部分功能 诺基亚彻底“卖身” 变“微软移动” 10款高效简化移动开发过程的工具 《近匠》AppCan:打造成云生态的移动PaaS平台 WhatsApp壮举:活跃用户超五亿、日7亿幅照片和1亿个视频 如期而至,GCC 4.9.0正式版发布! 【走近讲师】孙昌勋:容联云通讯构筑通讯能力云平台生态圈 最新版本的Hive 0.13发布,增加ACID特性 开发中的“软”与“硬”:高画质移动游戏开发之道 从国际编码竞赛来看编程语言受众度 AMD迎接变革:加速OpenCL的未来 角逐Hadoop市场,Cloudera与Hortonworks竞争白热化 OpenStack将提供对Docker的支持 Facebook Q1财报:营收25.02亿美元、59%来自于移动 黑客们盯上了卫星,IOActive的惊人发现 开发汽车应用之前,你必须了解的7件事 埃森哲:智能电视潮流,势不可挡 直接拿来用!Facebook移动开源项目大合集 高大上Hadoop技术培训:Hadoop在企业中的应用实战 【走近讲师】新浪丛磊:通过MAE构建企业内部私有PaaS平台 API增长新趋势 消息应用类独占鳌头 软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 怎么处理没有用的连接文件? 问个菜问题 热烈庆祝灰毛兔参与分超过30000分~~~热情大送分~~!! (灰毛兔) 请教如何打包crystal report 7.0驱动引擎到我的安装程序中? 用open打开的页面如何RELOAD打开他的那个父页面? 谁有jet请发给我!谢谢!! 如何开发排序(用C或C++) 新手求教:请问怎么可以把含逗号(如:sa,ffd,sdf)的字符串从逗号处分开,变成独立的几个字串sa ffd sdf? 急!请问如何在程序启动时自动检测MODEM?能给出CODE最好。 如何在unix上远程安装软件 KeyPress事件处理疑问 TComboBox能不能有OnMouseDown事件??? 请教哪里有付费便宜、性能稳定、访问速度快的支持ACCESS、ASP的空间? 加载不了*.ocx控件是怎么回事? 我的CStatic上为什么不能贴位图? 主页何为佳? 偶用ultradev,在table里绑定字段,并作了重复区域的设置,但是live data 的结果总是一列纪录出现在一个单元格里,而且只有第一个单元格里有数据,其他是空的,怎么回事?//牛虻 ClassView Information file如何恢复,急,知道的朋友望告之! 500分求一好用的代理服务器,能访问www.creaders.net这样的网站(按:贴太多结不了,无法在水园发贴,烦版主转到水园) 各位高手,我的分发光了,问题还没解决。帮帮我好吗 请问什么叫专家分..怎样得到专家分,你们的专家分都有多少...有超过1000的吗 -->> sql语句中求和问题. 急急急急!!!,请教一个VB中SQL语言的问题!!! 请教关于数据代入的问题 我们公司把qq给封了,好着急啊,谁知道有什么办法?送分啊~~` 俺要怎么办? 怎样得到DBGrid 中某一单元格的Focus,因为我要处理这样的问题,在DBGrid中输入的数据如果不正确,则focus不能离开此单元格。 VB中的Byte型数据在PB中是什么类型? 动了枪的青马 在sco unix 5.05的分区问题 help! where could I download NT serve pack 6.0 那位高手知道在solaris编程中,如何在按钮上加载图片? 我怎样发布自己的servlet 怎样确定对象类图的中类? 可以帮我解决一个关于linux的问题吗? 熟悉文件操作的高手请进来坐一下。 +++++++关于MS SQL SERVER2000的注册服务器问题+++++ 考过scjp的进去看一眼 请问DTD是不是将要为XML Schema所代替???现在主要哪一个呢? XiaoFang(奇奇) 你在哪里,十分感谢,再送100分! 关于输入框中输入空字符串的判断 zork(我是一条鱼……) 说明白些呀,用http代理怎么上qq? HK的书店 求教:关于CRC校验的问题 问题:有关查询结果排序. 为什么我用的是LoadString函数而编译显示错误时显示LoadStringW函数。两个有什么区别? 请问这个错误提示是什么意思呢?谢谢! OCI中的类型转换 麻烦大家看看下面的代码对吗?能否用MSChart显示MSHFlexGrid中指定的行(上下)和列(左右),谢谢谢谢 如何用vector做一个二维数组。如int a[4][4]的。该怎么做 金钥匙试卷 数学(青岛版) 五年级下册第一单元测试卷 是关于圆的! 问数字2的31次方和3的21次方的大小? 1.若x^m•x^2m=2,求x^9m的值.2,若(9^m+1)^2=3^16,求正整数m.1.若x^m•x^2m=2,求x^9m的值.2,若(9^m+1)^2=3^16,求正整数m.在6点之前写好, 小学数学试卷金钥匙五年级上册青岛版第五单元检测卷B答案平形四边形的面积是与它等底等高三角形面积的( ). 求一份小学数学四年级下的期末测试题,要求附带标准答案. 2m^3-9m^2+6m-1=0中m的解 滚瓜烂熟不求甚解囫囵吞枣呕心沥血津津有味千篇一律浮想联翩如饥似渴废寝忘食1、形容读书非常认真和投入的词语:2、形容读书不用心的词语:3、形容事勉励的词语: 已知二元一次方程2x+y=7 (1)把方程写成用x的代数式表示y的形式 (2)求出方程的正整数解 化简 m^2-2m^3+3/2m^2-1/2m+1/16 负2的2014次方加3乘负2的2003次方是多少? 数学题目如何百度?急需知道.. 数学几何画图题如图,某市有一块三条马路围成的三角形绿地,现准备在其中建小花坛,为了美观使花坛中心到三条马路的距离相等,请在图中标出花坛的中心位置,并写出作法 小学人教版五年级下册期末语文试卷! 数学题目:0.62=()%=()折=()成(百度知道) 数学平面几何绘图画平面几何的图形时,图形角上的字母怎么标?用什么工具最好~比如说 矩形ABCD 这个矩形四个角的字母怎么打上? 2008五年级下册期末语文试卷人教版准一点2008年的(不许编) (填序号)李逵,绰号“黑旋风”,(a、斗浪里白条 b、毁金刚塑像 c、杀泼皮牛二),尽显粗野鲁莽; (a、大闹高唐州 b、怒杀阎婆惜 c、义夺快活林)只因疾恶如仇. 你能告诉我他回来了吗?怎么划分主谓宾?主要是“我”是什么成分? 五年级下册期中语文试卷(人教版) 语文题填序号选择正确的解释1大言 2危言 3流言 4恶言 5戏言 6谗言 7格言 8谰言没有根据的话 ( )诬赖的话 ( )令人吃惊的话 ( )诽谤的话 ( )阴险狠毒的话 ( )随便说并不当真的话 数学:平面几何作图题已知三角形的三个分角线为ta,tb,tc求作此三角形.第一个回答没有图,也没说明符号,看不明白. 2x+y/2+2x-y/3=6...两元一次方程2x+y/2+2x-y/3=64(2x+y)-5(2x-y)=2两元一次方程,快, 用1、2、3、4、5这五个数字组成一些一位小数,把这些数按从小到大的顺序排列,第98用1、2、3、4、5五个数字组成一些一位小数。把这些数按从小到大的顺序排列,第98个数是几? 帮我划分一下 主谓宾 等等.(详细划分)1.我在大学念书.2.我正在看电视.请帮我 帮我划分一下 主谓宾,具体划分一下.帮我这个也划分一下. 已知关于X.Y二元一次方程2X+Y=7,且方程的解都为正整数,求方程的解. 两元一次方程x+y=4的正整数解有如题. 数学几何题,图画的不好,请见谅(1)已知:如图,若∠EDB=∠ABD,请你指出图中哪两条线段平行.(2)已知:如图,AD//BC,DF//BF,请你说明∠1=∠2.(3)已知:如图,AD//BC,∠1=∠2,请你说明DF//BE修正:DF/ 负3的4次方+(负0.25)的2014次方x4的2014次方+(2分之1-3分之1)÷(6分 写出两元一次方程2m+n=5的所有正整数的解为 请问如何划分此句的主谓宾?boys and girls ,let's go to school.一定要说出let在句中做什么成份! 期中B和第二单元B 答对了再加10! 3的9m次方*27的m次方=3的6次方,求m的值? 1 是啊,有一年了吧!2 您身体怎么样?3 他给了我书. 2元1次方程的解写过程3X+2Y=5025X+35Y=1510 金钥匙五年级下第二单元达标测验(二)答案 在百度知道中如果我要问一道数学几何题,请问如何添加图形如题 帮解2个两元一次方程过程这个是用X代表Y 3/2x+2y=1 解是y=1/2-3/4x 请把解的过程写出写来,y=x+3 7x+5y=9 写出2元1次方程4X+Y=20的所有正整数解注意是正整数! 划分句子的主谓宾定状补1,刮风下雨是对流层经常发生的自然现象2,像这样爆发频繁规模巨大的泥石流在我国是少有的3,不久,索漠最有名的医生裴日冷先生来了就是怎么样划分呢?我怎么总是 一个小数扩大到他的100倍后,比原来多100.98,原数是多少?列算式 写出二元一次方程4x—3y=15的一组整数解;一组负整数解;一组正整数解写出每一步过程 有个数学几何题是求阴影部分面积 题在我百度空间里面 求句子成分划分练习【英语和语文都要】附答案最好多一点求题 3*9M次方*27的27M次方=321次方,求M 划分句子主谓宾定状补Growing up in a poor family makes some children feel they are not as capable as other children. 语文句子成分划分我们遇到的毕竟式好人多于坏人能说一下主语谓语宾语定语状语补语都是什么概念,通常顺序如何吗?不是“式”……是 27m次方除9m次方除3 句子划分主谓宾定状补,1 我们要坚持发展体育运动,坚强人民体质的方针22 抓紧教育,才能提高全国人民的素质 MATLAB 如何解二元方程具体方程如下F1 =9*conj(u) + 4*u*(2*conj(u)^2 + 4*conj(v) + 6) - 9*conj(v)^2 F2 =6*v*(3*conj(u) - 3*conj(v)^2) - 25*conj(v) - 8*conj(u)^2F1 F2 表示两个的方程 (分别等于零) a是根10的整数部分,b是根5的小数部分,问a方加b方等于几 浙教版初三上半学期科学要用到的化学反应方程式只要初3上班学期前涉及到的化学反应方程式.别给我一大堆弄出来.看不过来.白痴拿初二的糊弄我 如何用matlab解二元方程[x,y]=solve('1351.565-14.85*13-379.25*x-1.025*y.^2-27.25*y = 0','222.5-2.7*13-27.75*x-0.45*y.^2-2.05*x*y-0.36*13*y=0','x','y')Error using ==> solve>getEqns at 182' 1351.565-14.85*13-379.25*x-1.025*y.^2-27.25*y = 0 ' is n 八年级下册数学金钥匙1+1第28页第10题已知x/3=y/4=z/6≠0,求x+y-z/x-y+z的值 (用设K法) 化学方程式集合求初三科学所要用到的所有方程式越多越好希望有反应的现象 和 具体的实际应用最好是表格形式 关于matlab解二元方程的问题>> [x,y]=slove('x+y=1','x-y=9')Undefined function 'slove' for input arguments of type 'char'.错在哪儿了? √10的整数部分是________,小数部分是_________ 如题--3要不止是方程式还要中文 matlab解二元方程问题,matlab解二元方程问题,求高手解答solve('x*exp(-y/(1.38*600))-176','x*exp(-y/(1.38*1073))-9600','x','y');不出结果啊,其实其中的9600应该是96000000,这样解不出来,是超区域了,还是算不出来? 苏教版六年级数学下册练习册19页第5题前面是12,旁边是20单位厘米 求初三所以置换反应方程式
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn