delphi xe2 listview viewstyle bug

使用xe2时发现ListView切换ViewStyle时有问题，没有设置LargeImages和SmallImages，使用的系统图标，即：

FSmallImages := SHGetFileInfo('C:\', { Do not localize }    0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);SendMessage(FListView.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, FSmallImages);

结果，切换时不显示图标了，查看源码发现多了几行

 

procedure TCustomListView.SetViewStyle(Value: TViewStyle);const  ViewStyles: array[TViewStyle] of Integer = (LVS_ICON, LVS_SMALLICON,    LVS_LIST, LVS_REPORT);var  Style: Longint;begin  if Value <> FViewStyle then  begin    FViewStyle := Value;    if HandleAllocated then    begin      Style := GetWindowLong(Handle, GWL_STYLE);      Style := Style and (not LVS_TYPEMASK);      Style := Style or Integer(ViewStyles[FViewStyle]);      SetWindowLong(Handle, GWL_STYLE, Style);      UpdateColumns;      case ViewStyle of        vsIcon,        vsSmallIcon:          if IconOptions.Arrangement = iaTop then            Arrange(arAlignTop) else            Arrange(arAlignLeft);      end;//怀疑是以下两行代码导致窗口重建了//      if not (csLoading in ComponentState) then//        RecreateWnd;    end;  end;end;

注释掉上面的几行后图标显示正常。
 
	
				
	
					   
delphi xe2 listview viewstyle bug
	  	   
delphi xe2 下TListView的ViewStyle设置vsList后列宽显示问题
	  	   
ListView TListColumn TListItem ViewStyle
	  	   
Delphi XE2
	  	   
Delphi XE2 发布了
	  	   
DELPHI XE2马上推出
	  	   
Delphi XE2 Update4
	  	   
Delphi XE2 新技术说明
	  	   
Delphi XE2 - 点点滴滴设置
	  	   
Delphi Xe2下 PingIP
	  	   
Delphi XE2 的皮肤
	  	   
delphi xe2的LibraryPath
	  	   
delphi xe2下载地址
	  	   
Delphi XE2 C++builder XE2 正式版破解
	  	   
Delphi XE2 新技术说明 (What's new in Delphi XE2)
	  	   
delphi xe2学习笔记(1)
	  	   
delphi xe2学习笔记(2)
	  	   
Delphi XE2 XML编程备忘
	     		  
	  	   
在SVN中创建项目
	  	   
Java GUI总结
	  	   
USACO / The Castle （Floodfill+DFS）
	  	   
操作系统概念
	  	   
为什么安装QQ2012总是显示“提取安装文件失败"?
	  	   
delphi xe2 listview viewstyle bug
	  	   
游戏效率优化之 如何降低容器子集好庞大时鼠标的滑动消耗
	  	   
AIX下nfs故障导致oracle process hang
	  	   
Django Error: No module named blog（转）
	  	   
千姿百态项目经理3——“牛X”项目经理4
	  	   
Windows 系统Administration 账户登录密码修改
	  	   
安装 Ubuntu 10.04 Linux，插入耳机后，没反映，可是笔记本的喇叭里有声音(试过，有效)
	  	   
Linux用户态的信号量
	  	   
Python+Django初学者问题集