procedure TfmXiaoShou.lvCustomDrawItem(Sender: TCustomListView;
Item: TListItem;
State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Sender as TCustomListView).Selected<>nil then
if Item.Index=(Sender as TCustomListView).Selected.Index then
(Sender as TCustomListView).Canvas.Brush.Color:=$00FDE8FF;
end;