Delphi中ListBox控件的六种特效

导读： 　　Delphi中ListBox控件的六种特效 　　

Delphi中ListBox控件的六种特效

Delphi5是Borland公司开发的全新的可视化集成开发环境，它使用语法严密的Pascal语言，并封装了Windows中的构件，形成了自己的一套控件库体系-VCL(Visual Component Library)。VCL控件体系具有很强的扩展性，为开发者设计特殊视觉效果的控件提供了技术支持。本文就Delphi5中的TListBox控件，通过多种手段实现了它的七种特殊视觉效果，以期对广大程序爱好者在界面设计上有所启发与帮助。　　一、 基础知识　　涉及TListBox自定义重绘的属性和事件：　　属性：　　　Style: 取值为lbStandard(标准风格)，lbOwnerDrawFixed(所有者固定绘制风格)，lbOwnerDrawVariable(所有者可变绘制风格)　　说明：　　　1． 当Style = lbStandard时，使用控件默认的绘制风格。　　　2． 当Style = lbOwnerDrawFixed时，用户只能在控件默认大小的区域绘图。　　　3． 当Style = lbOwnerDrawVariable时，用户可改变控件默认的绘图区域大小并决定如何绘图。　　事件：　　　OnMeasureItem：当Style = lbOwnerDrawVariable时计算TListBox中某项的高度时调用。　　　OnDrawItem ：当Style = lbOwnerDrawVariable时由用户例程确定如何绘制TlistItem。　　由此，可以看出，要实现定制界面风格的TListBox，首先，需要设置TlistBox的Style 属性为lbOwnerDrawVariable，其次，需要写自定义的重绘事件。　　二、 特殊效果的实现　　在窗体(Form1)上放置5个ListBox，名称分别为ListBox1……ListBox5，将所有ListBox的Style属性设置为lbOwnerDrawVariable；在Form1上添加两个TImageList控件，命名为ImageList1，ImageList2；在ImageList1中装入两个16X16大小的图标；添加两个TButton控件，命名为Button1，Button2；再添加一个TImage控件，命名为Image1。其它操作，见下。　　1． 具有图标及热链接效果的列表框　　在ListBox1的Items属性中添加几个字符串，并在ListBox1的OnDrawItem事件中编写代码如下：procedure TForm1.ListBox2DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varAIcon, BIcon: TIcon;begintryfile://从上述ImageList1中装入两个图标AIcon := TIcon.Create; BIcon := TIcon.Create;file://装入图标到AIcon, BIconImageList1.GetIcon(0, AIcon);ImageList1.GetIcon(1, BIcon);file://填充绘图区ListBox1.Canvas.FillRect(Rect);file://判断ListBox1中的当前重绘项是否被选中，根据状态装入不同的图标if odSelected in State thenListBox1.Canvas.Draw(Rect.Left, Rect.Top, AIcon)elseListBox1.Canvas.Draw(Rect.Left, Rect.Top, BIcon);file://输出文字ListBox1.Canvas.TextOut(Rect.Left + AIcon.Width div 2, Rect.Top + 2, ListBox1.Items[Index]);finallyAIcon.Free;BIcon.Free;end;end;注：也可在OnMeasureItem事件中改变列表项的高度。　　2． 具有横向滚动条效果的列表框　　在Form1上Button1的Click事件中书写如下代码：procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, ListBox1.Width + 30, 0);end;具体横向滚动区域的宽度可通过具体计算得出，在此从略。　　3． 具有图标，背景图片及透明文字效果的列表框　　说明：　　1． 要使TListBox具有指定位图的背景，须考虑到以下问题：　　如果TListBox的Items足够多，那么，在TListBox的OnDrawItem事件的Rect区域输出位图即可使整个TListBox的Canvas充满位图背景；反之，则会出现TListBox中上半部分有Item的地方有背景，下半部分没有Item的部分仍然为白色，影响视觉效果。　　2． TListBox的Color属性决定了文本输出时的背景，通常为clWindow，这样用TextOut时就会出现不协调的白色文字背景。因此，要实现透明文字输出效果，可以通过设置ListBox.Canvas.Brush.Style := bsClear，这样，绘制的文字没有背景色，从而实现文字透明输出效果。　　操作：　　在ListBox2的Items属性中添加几个字符串；设置Form1上的Image1的Picture属性为一指定图片。在ListBox2的OnDrawItem事件中书写如下代码：procedure TForm1.ListBox2DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varAIcon: TIcon;I, K : Integer;ARect, BRect: TRect;H : Integer;AStyle: TBrushStyle;begintryfile://计算Item数量I := ListBox2.Items.Count-1;AIcon := TIcon.Create;file://装入图标ImageList1.GetIcon(0, AIcon);file://填充区域ListBox2.Canvas.FillRect(Rect);file://计算Rect绘图区的高度H := Rect.Bottom - Rect.Top;file://如果当前项是Item的最后一项，则在Canvas上没有Item的空白区绘制背景if Index = I thenbeginK := 1;ARect := Rect;file://如果当前绘图项的底部小于ListBox2的Canvas的底部，有空白区域While ARect.Bottom < ListBox2.Canvas.ClipRect.Bottom dobeginfile://一次计算下一个绘图区域ARect.Top := Rect.Top + K * H;ARect.Bottom := ARect.Top + H;ListBox2.Canvas.stretchDraw(ARect, Image1.Picture.Bitmap);Inc(K);end;end;file://绘制当前项ListBox2.Canvas.stretchDraw(Rect, Image1.Picture.Bitmap);file://绘制图标ListBox2.Canvas.Draw(Rect.Left, Rect.Top, AIcon);ARect := Rect;ARect.Left := Rect.Left + AIcon.Width div 2;ARect.Top := ARect.top + 2;file://保存当前画笔的风格AStyle := Listbox2.Canvas.Brush.Style;file://当前选中的Item要填充蓝色背景if odSelected in State thenbeginListBox2.Canvas.Brush.Style := bsSolid;Listbox2.Canvas.Brush.Color := clBlue;endelsebeginfile://未选中项透明背景，前景色为黑色ListBox2.Canvas.Brush.Style := bsClear;Listbox2.Font.Color := clBlack;end;file://输出文字ListBox2.Canvas.TextOut(ARect.Left, ARect.top, ListBox2.Items[Index]);file://恢复当前画笔的风格ListBox2.Canvas.Brush.Style := AStyle;finallyAIcon.Free;end;end;　　以上方法实现了TListBox即具有背景图片，又具有图标和透明文字效果，极大的改善了TListBox的显示效果。　　4． 具有图标，背景图片，透明文字及文字对齐方式效果的列表框　　要实现文字对齐效果，可通过Windows Api函数：DrawText实现。　　操作：　　将ListBox2的OnDrawItem事件中的代码复制到ListBox3的OnDrawItem事件中，并将复制代码中所有的ListBox2改为ListBox3。　　将上述修改后代码中的ListBox3.Canvas.TextOut(Rect.Left + AIcon.Width div 2, Rect.Top + 2, ListBox3.Items[Index]); 语句删除，并在该处添加以下语句：　　file://计算除掉图标所占区域后的区域，用于确定绘制文字的区域范围ARect := Rect;ARect.Left := Rect.Left + AIcon.Width div 2;ARect.Top := ARect.top + 2;file://Windows Api函数调用DrawText(ListBox3.Canvas.Handle, PChar(ListBox3.Items[Index]), Length(ListBox3.Items[Index]), ARect, 0); file://0-左对齐， 1---居中， 2--右对齐　　注：通知ListBox3重绘可通过命令ListBox3.Refresh实现　　5． 照片列表框效果　　在ListBox4的Items属性中添加几个字符串；设置ImageList2的Width为148，Height为58；在ImageList2中装入与ListBox4中Items相同字符串数量的图片，大小148 X 58像素单位。　　在ListBox4的OnMeasureItem事件中书写如下代码：procedure TForm1.ListBox4MeasureItem(Control: TWinControl; Index: Integer;var Height: Integer);beginfile://控制图片的高度Height := 59;end;　　在ListBox4的OnDrawItem事件中书写如下代码：procedure TForm1.ListBox4DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varABmp: TBitmap;begintryABmp := TBitmap.Create;ImageList2.GetBitmap(Index, ABmp);ListBox4.Canvas.FillRect(Rect);ListBox4.Canvas.Draw(Rect.Left, Rect.Top, ABmp);finallyABmp.Free;end;end;　　这种利用TListBox实现的照片框效果，对于照片，商品图片的显示有一定价值。　　6． 以缩略图方式浏览某个文件夹下图片效果的列表框　　在ListBox5的OnMeasureItem事件中书写如下代码：procedure TForm1.ListBox5MeasureItem(Control: TWinControl; Index: Integer;var Height: Integer);beginfile://控制图片的高度Height := 59;end;　　在ListBox5的OnDrawItem事件中书写如下代码：procedure TForm1.ListBox5DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varfile://图片文件名Fn: string; ABmp: TBitmap;begintryABmp := TBitmap.Create;Fn := ListBox5.Items[Index];ABmp.LoadFromFile(ListBox5.Items[Index]);Dec(Rect.Bottom);ListBox5.Canvas.FillRect(Rect);ListBox5.Canvas.StretchDraw(Rect, ABmp);finallyABmp.Free;end;end;　　设置Button2的Caption为"预览"，在其Click事件中书写如下代码：varsr: TSearchRec;Dir: string;beginDir := ;file://选择目录对话框，需要在Uses中加入对FileCtrl单元的引用声明if SelectDirectory(选择图片目录, , Dir) thenbeginListBox5.Items.Clear;file://搜索该目录下的所有bmp文件if FindFirst(Dir + *.bmp, faReadOnly, sr) = 0 thenbeginListBox5.Items.Add(Dir + + Sr.Name);while FindNext(sr) = 0 dobeginListBox5.Items.Add(Dir + + Sr.Name);end;FindClose(sr);end;end;end;

本文转自 http://hi.baidu.com/lobtao/blog/item/2b12c603803c758bd53f7c08.html