Win7下 ListView.OnAdvancedCustomDrawItem 事件里画图标，文字会变成黑块

Question

ViewStyle := vsIcon;当选中一个Item时，文字会变成黑块。
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var
  images: TImageList;
  iconRect: TRect;
  x, y: Integer;
begin
  if Stage = cdPostPaint then
  begin
    images := TListView(Sender).LargeImages;
    ListView_GetItemRect(Sender.Handle, Item.Index, iconRect, LVIR_ICON);
    x := iconRect.Left + (RectWidth(iconRect) - images.Width) div 2;
    y := iconRect.Top + (RectHeight(iconRect) - images.Height) div 2;
    images.Draw(Sender.Canvas, x, y, Item.Index);
  end;
end;

Answer 1

WinXP下正常，自己画的多行不如Windows画得好。