ListBox自绘，列表显示一系列图片

     最近本人做的项目中，需要将一系列图片列表显示到一个ListBox中，本人使用的raize套件中的RzListBox，这里讲的方法同样适用于这两种组件，首先设置ListBox的style为：lbOwnerDrawVariable，然后处理ListBox的MeasureItem与DrawItem事件。

      代码如下：

procedure TFrameAuction.RzListBoxMeasureItem(Control: TWinControl;
  Index: Integer; var Height: Integer);
begin
  Height: = 82 ;//设置item的高度
end;

procedure TFrameAuction.RzListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  jpeg:TJPEGImage;
  bmp:TBitMap;
  root,cnode: IXMLNode;
  icon: TIcon;
  fname: string ;
begin
  root: = self.FXMLDoc.DocumentElement;
  cnode: = root.ChildNodes[Index];
  with (Control  as  TRzListBox).Canvas  do  begin
    bmp: = TBitmap.Create;
    jpeg: = TJPEGImage.Create;
     if  cnode.GetAttribute( ' photo ' ) = ''  then begin
      fname: = ExtractFilePath(Application.ExeName) + ' images\none.jpg ' ;
    end  else  begin
      fname: = ExtractFilePath(Application.ExeName) + ' images\ ' + root.GetAttribute( ' id ' ) + ' - ' + cnode.GetAttribute( ' photoid ' ) + ' - ' + cnode.GetAttribute( ' photo ' );
       if  not FileExists(fname) then
        fname: = ExtractFilePath(Application.ExeName) + ' images\none.jpg ' ;
    end;
    jpeg.LoadFromFile(fname);
    with bmp  do
    begin
      PixelFormat: = pf24bit;
      Height: = 60 ;
      Width: = self.RzListBox.Width;
      Canvas.Brush.Color: = $00F0EDE6;
      Canvas.FillRect(Canvas.ClipRect);
      Canvas.StretchDraw(Bounds( 0 , 0 , 80 , 60 ), jpeg);
    end;

    FillRect(Rect);
    Draw(Rect.Left + 1 , Rect.Top  +   1 ,bmp);
    icon: = TIcon.Create;
     if  cnode.GetAttribute( ' status ' ) = ' 1 '  then
      self.ImageListStatus.GetIcon( 8 ,icon)
     else   if  cnode.GetAttribute( ' status ' ) = ' 3 '  then
      self.ImageListStatus.GetIcon( 2 ,icon)
     else   if  cnode.GetAttribute( ' status ' ) = ' 2 '  then begin
       if  cnode.GetAttribute( ' bargainflag ' ) = ' 0 '  then
        self.ImageListStatus.GetIcon( 6 ,icon)
       else
        self.ImageListStatus.GetIcon( 4 ,icon)
    end  else   if  cnode.GetAttribute( ' status ' ) = ' 0 '  then begin
       if  root.GetAttribute( ' activeitem ' ) = cnode.GetAttribute( ' itemid ' ) then
         self.ImageListStatus.GetIcon( 0 ,icon);
    end;

    Draw(Rect.Left + 1 + 80 + 5 ,Rect.Top + 22 ,icon);
    TextOut( 1 ,Rect.Top + 64 ,cnode.GetAttribute( ' no ' ) + ' 号: ' + cnode.GetAttribute( ' itemtitle ' ));
  end;
  icon.Free;
  bmp.Free;
  jpeg.Free;
end;

运行结果如下：

    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/07/28/834873.html，如需转载请自行联系原作者