ListBox的一些特殊用法.docVIP

ListBox的一些特殊用法——美化、滚动条、位图、快速查找 2009-07-16 09:33 ?????? 前面学习了窗体与界面设计，现在来学习下组件的应；因为是照着书上在学习，所以也没有太完善的计划，每天学到啥感觉以后会用的着的，就在这里记录下，所以博客现在暂时还是有点凌乱的，不过暂时只是为了自己存储资料和做做笔记而已，等以后有时间了，学习的差不多了就再回来整理。 ???? 刚在书上看了下组件TListBox的几种特殊用法，就是利用canvas画布美化ListBox，给ListBox加水平滚动条（这个默认是没有的），然后是在ListBox中显示位图，最后就是在ListBox中实现快速查找，下面一一介绍： ????? 在Delphi中，主要通过Canvas画布对象进行绘图，Delphi可以在窗体或组件上绘制出各式各样的图像，通过Canvas的属性将一些图形变为文字，或是将一些文字变为图形；这里我主要是通过Canvas属性来美化列表框ListBox中的列表项： 首先要将ListBox的Style属性设为lbownerDrawFixed，然后再ListBox的OnDrawItem事件上书写代码如下： procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);beginwith Control as TListBox dobegin??? Canvas.FrameRect(Clientrect);??? if odSelected in State then??? begin????? Canvas.Brush.Color:=clRed;????? Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); //前面四个参数分别是左上顶角和右下顶点坐标，构成一个矩形区域，后面两参数是来设置四个顶角端的小三角大小，为了美观可自行设定????? setBkMode(Canvas.Handle,TRANSPARENT );//这个在前面文章中有介绍，是设置透明背景????? Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);??? end??? else??? begin????? Canvas.Brush.Color:=clSkyBlue;//这里为了列表项和ListBox背景色一致，最好就都设成一样颜色????? Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);????? Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);??? end;end;end; 给ListBox加水平滚动条，代码如下： procedure TForm1.ListBox1Enter(Sender: TObject);vara,bb: integer;beginbb:= 0;for a := 0 to listbox1.Items.Count - 1 do??? if bb listbox1.Canvas.TextWidth(listbox1.Items[a])then????? bb := listbox1.Canvas.Textwidth(listbox1.Items[a]);sendmessage(listbox1.Handle ,lb_sethorizontalextent,bb+2,0);end; 在ListBox中显示位图：也是通过Canvas对象，在ListBox列表项前面加上一副图片；首先要三个TImage控件，设为不可见；将ListBox的Style属性设为lbownerDrawFixed，并将ItemHeigth属性设为32（这里可能是TImage内选择的是32为图标），然后再ListBox的OnDrawItem事件上书写代码如下： procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varAbmp : TBitmap;bmpPosition : Integer;ListCanvas : TCanvas;beginbmpPosi