随笔分类 -  Delphi开发经验技巧记录

ListBox添加水平进度条
摘要：procedureTForm1.Button1Click(Sender:TObject);vara,bb:integer;beginbb:=0;fora:=0toListbox1.Items.Count-1dobeginifbb<listBox1.Canvas.TextWidth(Listbox1.... 阅读全文
posted @ 2014-06-05 23:04 拱卒 阅读(416) 评论(0) 推荐(0)
使用画布美化列表项
摘要：自定义绘制ListBox窗体ListBox style 属性更改为 lbOwnerDrawFixed运行后的效果procedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect:TRect;State:TOwnerDraw... 阅读全文
posted @ 2014-06-05 22:23 拱卒 阅读(177) 评论(0) 推荐(0)