Delphi中ListBox控件的六种特效

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); begin file://控制图片的高度 Height := 59; end;

　　在ListBox4的OnDrawItem事件中书写如下代码：

procedure TForm1.ListBox4DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var ABmp: TBitmap; begin try ABmp := TBitmap.Create; ImageList2.GetBitmap(Index, ABmp); ListBox4.Canvas.FillRect(Rect); ListBox4.Canvas.Draw(Rect.Left, Rect.Top, ABmp); finally ABmp.Free; end; end;

　　这种利用TListBox实现的照片框效果，对于照片，商品图片的显示有一定价值。

　　6． 以缩略图方式浏览某个文件夹下图片效果的列表框

　　在ListBox5的OnMeasureItem事件中书写如下代码：

procedure TForm1.ListBox5MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); begin file://控制图片的高度 Height := 59; end;

　　在ListBox5的OnDrawItem事件中书写如下代码：

procedure TForm1.ListBox5DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var file://图片文件名 Fn: string; ABmp: TBitmap; begin try ABmp := TBitmap.Create; Fn := ListBox5.Items[Index]; ABmp.LoadFromFile(ListBox5.Items[Index]); Dec(Rect.Bottom); ListBox5.Canvas.FillRect(Rect); ListBox5.Canvas.StretchDraw(Rect, ABmp); finally ABmp.Free; end; end;

　　设置Button2的Caption为"预览"，在其Click事件中书写如下代码：

var sr: TSearchRec; Dir: string; begin Dir := ''; file://选择目录对话框，需要在Uses中加入对FileCtrl单元的引用声明 if SelectDirectory('选择图片目录', '', Dir) then begin ListBox5.Items.Clear; file://搜索该目录下的所有bmp文件 if FindFirst(Dir + '\*.bmp', faReadOnly, sr) = 0 then begin ListBox5.Items.Add(Dir + '\' + Sr.Name); while FindNext(sr) = 0 do begin ListBox5.Items.Add(Dir + '\' + Sr.Name); end; FindClose(sr); end; end; end;

以上六种方法将TBitmap, TIcon, TImage, TImageList结合使用，以及通过Windows API函数极大的改善了TListBox的外观，也为定制修改TlistView, TtreeView等控件的外观提供了参考手段。上述方法在Delphi5下调试通过。

查看本文来源