TListView的ListItem完全自绘

因工作需要完全自绘 ListItem ，模仿成电驴的样式，查找了 N 久相关的资料，发现很少有这方面的，最后用 ListView_GetSubItemRect 关键词在一个小日本的网站上找到一点相关的代码，修改后解决该问题。

至于是否存在 BUG ，偶用了几天还木有发现，如果有什么问题，请大家回复一下，谢谢

效果图如下：

uses

  CommCtrl;

procedure LVDrawItem(Sender: TListView; Item: TListItem; State: TCustomDrawState;

  var DefaultDraw: Boolean);

var

  BoundRect, Rect: TRect;

 i: integer;

 TextFormat: Word;

 LV: TListView;

  procedure Draw_CheckBox_ImageList(r: TRect; aCanvas: TCanvas; Checked: Boolean);

  var

    R1: TRect;

  begin

   if Sender.Checkboxes then

   begin

      aCanvas.Pen.Color := clBlack;

     aCanvas.Pen.Width := 2 ;

      // 画 CheckBox 外框

      aCanvas.Rectangle(r.Left + 2 , r.Top + 2 , r.Left + 14 , r.Bottom - 2 );

      if Checked then

     begin // 画 CheckBox 的勾

        aCanvas.MoveTo(r.Left + 4 , r.Top + 6 );

       aCanvas.LineTo(r.Left + 6 , r.Top + 11 );

       aCanvas.LineTo(r.Left + 11 , r.Top + 5 );

      end ;

     aCanvas.Pen.Width := 1 ;

    end ;

    // 开始画图标

    if (Item.ImageIndex > - 1 ) and (LV.SmallImages <> nil ) then

   begin

    // 获取图标的 RECT

      if Boolean(ListView_GetSubItemRect(sender.Handle, item.Index, 0 , LVIR_ICON, @R1)) then

     begin

        LV.SmallImages.Draw(LV.Canvas, R1.Left, R1.Top, Item.ImageIndex);

      end ;

    end ;

  end ;

begin

  LV := Sender;

 BoundRect := Item.DisplayRect(drBounds);

 InflateRect(BoundRect, - 1 , 0 );

  if Item.Selected then

 begin

   if cdsFocused in State then

   begin

      LV.Canvas.Brush.Color := $00ECCCB9 ; //  //clHighlight;

//      LV.Canvas.Font.Color := clBtnText; //clHighlightText;

    end

   else

   begin

      LV.Canvas.Brush.Color := $00F8ECE5 ; //clSilver;

//      LV.Canvas.Font.Color := clBtnText;

    end ;

  end

 else

 begin

//    LV.Canvas.Brush.Color := clWindow;

//    LV.Canvas.Font.Color := clWindowText;

  end ;

 LV.Canvas.FillRect(BoundRect); // 初始化背景

  for i := 0 to LV.Columns.Count - 1 do

 begin

  // 获取 SubItem 的 Rect

    ListView_GetSubItemRect(LV.Handle, Item.Index, i, LVIR_LABEL, @Rect);

    case LV.Columns[i].Alignment of

      taLeftJustify:

       TextFormat := 0 ;

     taRightJustify:

       TextFormat := DT_RIGHT;

     taCenter:

       TextFormat := DT_CENTER;

    end ;

    case i of

      0 : // 画 Caption

        begin

          Draw_CheckBox_ImageList(BoundRect, LV.Canvas, Item.Checked);

         InflateRect(Rect, - 3 , 0 ); // 向后移 3 个像素 , 避免被后面画线框时覆盖

          DrawText(

           LV.Canvas.Handle,

           PCHAR(Item.Caption),

           Length(Item.Caption),

           Rect,

           DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS or TextFormat);

        end ;

      1 ..MaxInt: // 画 Subitems[i]

        begin

         if i - 1 <= Item.SubItems.Count - 1 then

            DrawText(

             LV.Canvas.Handle,

             PCHAR(Item.SubItems[i - 1 ]),

             Length(Item.SubItems[i - 1 ]),

             Rect,

             DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS or TextFormat);

        end ;

    end ;

  end ;

 LV.Canvas.Brush.Color := clWhite;

  if Item.Selected then // 画选中条外框

  begin

   if cdsFocused in State then

      LV.Canvas.Brush.Color := $00DAA07A // $00E2B598; //clHighlight;

    else

      LV.Canvas.Brush.Color := $00E2B598 ; //$00DAA07A // clHighlight;

    LV.Canvas.FrameRect(BoundRect); // DrawFocusRect(Item.DisplayRect(drBounds)); //

  end ;

 DefaultDraw := False; //True;//cdsSelected in State;

  with Sender.Canvas do

   if Assigned(Font.OnChange) then Font.OnChange(Font);

end ;

// 使用技巧

procedure TFormDownLoad.LV_ResourceListCustomDrawItem(

 Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;

  var DefaultDraw: Boolean);

begin

 if (Item.Index mod 2 ) = 0 then

    Sender.Canvas.Brush.Color := clWhite

  else

    Sender.Canvas.Brush.Color := $00EBEBEB ;

 LVDrawItem(LV_ResourceList, Item, State, DefaultDraw);

end ;

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=603357