如何自画ListView的Item(XP效果)(2)

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ListView1->OwnerDraw = true;
ListView1->RowSelect = true;
ListView1->ReadOnly = true;
ListView1->OnDrawItem =(TLVDrawItemEvent)&CrnDrawListViewItem;
}

这样就基本OK了，有兴趣的朋友能够测试一下。

.dfm文档内容(View as Text)
=============================================================================
object Form1: TForm1
Left = 196
Top = 131
BorderStyle = bsDialog
Caption = 'ListItem自画演示'
ClientHeight = 168
ClientWidth = 231
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
Visible = True
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 40
Top = 8
Width = 144
Height = 12
Caption = 'by ccrun(老妖) QQ:165332'
end
object Label2: TLabel
Left = 24
Top = 144
Width = 186
Height = 12
Caption = 'Welcome to http://www.ccrun.com'
end
object ListView1: TListView
Left = 10
Top = 27
Width = 209
Height = 105
Columns = <
item
end
item
Width = 56
end
item
Width = 80
end>
Items.Data = {
EF0000000700000000000000FFFFFFFFFFFFFFFF020000000000000001610261
610361616100000000FFFFFFFFFFFFFFFF020000000000000001620262620362
626200000000FFFFFFFFFFFFFFFF020000000000000001630263630363636300
000000FFFFFFFFFFFFFFFF020000000000000001640264640364646400000000
FFFFFFFFFFFFFFFF020000000000000001650265650365656500000000FFFFFF
FFFFFFFFFF020000000000000001660266660366666600000000FFFFFFFFFFFF
FFFF0200000000000000016702676703676767FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
TabOrder = 0
ViewStyle = vsReport
end
end