listview 自绘例子

http://www.freedelphitips.com/listview-self-draw.html

看了老妖写的BCB版本的listbox自绘,又看了孙占伟的delphi版
模仿写一个listview的自绘
listview的数据是用一个tlist来保存，在重画时写入listview
感觉还有许多改进的地方，如不同item的字体颜色，同一item写多行文字。有时间了再改进。
程序下载

 

看了老妖写的BCB版本的listbox自绘,又看了孙占伟的delphi版
模仿写一个listview的自绘
listview的数据是用一个tlist来保存，在重画时写入listview
感觉还有许多改进的地方，如不同item的字体颜色，同一item写多行文字。有时间了再改进。
程序下载

 

上代码:

 

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, ImgList, CommCtrl, StdCtrls, shellapi; //定义一个记录用来存放listview的内容 type Plistdata = ^Tlistdata; Tlistdata = record Caption: string; //caption内容 second: string; //第二列内容 three: string; //第三列内容 picon: TIcon; //图标 end; type TForm1 = class(TForm) ListView1: TListView; ImageList1: TImageList; Panel1: TPanel; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ListViewData: TList; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var imglist: TImageList; i: integer; listdata: Plistdata; begin //设定一个imagelist,来扩充listview的item的高度 imgList := timagelist.Create(nil); imgList.Width := 1; imglist.Height := 50; //listview的item的设度设置 listview1.SmallImages := imgList; //这里设置listView的SmallImageList ,用imgList将其撑大 //初使化listview的数据到tlist中 ListViewData := tlist.Create; for i := 0 to 5 do begin New(listdata); listdata^.Caption := '第' + inttostr(i) + '行第一列数据'; listdata^.second := '第' + inttostr(i) + '行第二列数据'; listdata^.three := '第' + inttostr(i) + '行第三列数据'; listdata^.picon := TIcon.Create; ImageList1.GetIcon(i, listdata^.picon); ListViewData.Add(listdata); end; //插入空内容到listview for i := 0 to 5 do ListView1.Items.Add; end; procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); var listdata: Plistdata; i: integer; rect, BoundRect: TRect; begin //取每行的数据 listdata := ListViewData.Items[Item.index]; //得到每行的rect BoundRect := Item.DisplayRect(drBounds); // 设定背景色 if cdsFocused in State then begin Sender.Canvas.Brush.Color := $00C5F1FF; end else begin Sender.Canvas.Brush.Color := clWhite; end; ListView1.Canvas.FillRect(BoundRect); //填充颜色 for i := 0 to ListView1.Columns.Count - 1 do begin //获取每一列item的Rect ListView_GetSubItemRect(Sender.Handle, Item.Index, i, LVIR_LABEL, @Rect); case i of 0: //画Caption 及图标 begin //画图标 ListView1.Canvas.Draw(Rect.Left + 7, Rect.top + (Rect.Bottom - rect.Top - ImageList1.Height) div 2, listdata.Picon); InflateRect(rect, -45, 0); //向后移45个像素,避免被后面画字时覆盖 // Sender.Canvas.Font.Color := clBlue; DrawText( ListView1.Canvas.Handle, PCHAR(Trim(listdata.Caption)), -1, rect, DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS or 0); end; 1: begin //画第二列内容 DrawText( ListView1.Canvas.Handle, PCHAR(Trim(listdata.second)), -1, rect, DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS or 0); end; 2: begin //画第三列内容 DrawText( ListView1.Canvas.Handle, PCHAR(Trim(listdata.three)), -1, rect, DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS or 0); end; end; //画个线分开 ListView1.Canvas.Pen.Color := clblue; ListView1.Canvas.MoveTo(BoundRect.Left, BoundRect.Bottom - 1); ListView1.Canvas.LineTo(BoundRect.right, BoundRect.Bottom - 1); end; //防止闪屏 Sender.DoubleBuffered := true; end; procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(Application.Handle, 'open', PChar('http://www.FreeDelphiTips.com'), nil, nil, SW_ShowNormal); end; end.