2014年6月5日
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 拱卒 阅读(412) 评论(0) 推荐(0)
使用画布美化列表项
摘要： 自定义绘制ListBox窗体ListBox style 属性更改为 lbOwnerDrawFixed运行后的效果procedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect:TRect;State:TOwnerDraw... 阅读全文
posted @ 2014-06-05 22:23 拱卒 阅读(170) 评论(0) 推荐(0)