当BCB的ListView设置了 CheckBoxes=True之后

标签： 杂谈

分类：c++builder

为什么在这里调用这个函数 后来人可以看这里

当bcb的ListView设置了CheckBoxes=True之后，就无法再 显示SubImages

来源：(http://blog.sina.com.cn/s/blog_5dfd44300100ermt.html) - 当BCB的ListView设置了CheckBoxes=True之后_jimmyWang_新浪博客

这其实是vcl的一个BUG

大家看如下VCL代码：  
  procedure   TCustomListView.ResetExStyles;  
  var  
      Styles:   DWORD;  
      TempImages:   TCustomImageList;  
  begin  
      if   HandleAllocated   then  
      begin  
          TempImages   :=   nil;  
          if   StateImages   <>   nil   then  
          begin  
              TempImages   :=   StateImages;  
              StateImages   :=   nil;  
          end;  
          Styles   :=   LVS_EX_SUBITEMIMAGES   or   LVS_EX_INFOTIP;  
          if   FCheckboxes   then   Styles   :=   LVS_EX_CHECKBOXES;        
   
          //上面这条语句明显的错误，就是因为它导致SubImages无法显示  
          //得改成Styles   :=Styles   or   LVS_EX_CHECKBOXES;  
   
   
          if   FGridLines   then   Styles   :=   Styles   or   LVS_EX_GRIDLINES;  
          if   FHotTrack   then   Styles   :=   Styles   or   LVS_EX_TRACKSELECT;  
          if   FRowSelect   then   Styles   :=   Styles   or   LVS_EX_FULLROWSELECT;  
          if   FFlatScrollBars   then   Styles   :=   Styles   or   LVS_EX_FLATSB;  
          if   FFullDrag   then   Styles   :=   Styles   or   LVS_EX_HEADERDRAGDROP;  
          if   FShowWorkAreas   then   Styles   :=   Styles   or   LVS_EX_MULTIWORKAREAS;    
          if   htHandPoint   in   FHotTrackStyles   then  
              Styles   :=   Styles   or   LVS_EX_ONECLICKACTIVATE  
          else   if   FHotTrackStyles   *   [htUnderlineHot,   htUnderlineCold]   <>   []   then  
              Styles   :=   Styles   or   LVS_EX_TWOCLICKACTIVATE;  
          if   htUnderlineHot   in   FHotTrackStyles   then  
              Styles   :=   Styles   or   LVS_EX_UNDERLINEHOT;  
          if   htUnderlineCold   in   FHotTrackStyles   then  
              Styles   :=   Styles   or   LVS_EX_UNDERLINECOLD;  
          ListView_SetExtendedListViewStyle(Handle,   Styles);  
          if   TempImages   <>   nil   then  
              StateImages   :=   TempImages;  
      end;  
  end;   
  一个函数  
  void TForm1::DisplayCheckBoxedAndSubImages(TListView*lv1)
{
        //TODO: Add your source code here
        DWORD  Styles;
        Styles=ListView_GetExtendedListViewStyle(lv1->Handle );
        Styles=Styles  |  LVS_EX_CHECKBOXES   |   LVS_EX_SUBITEMIMAGES   |  LVS_EX_INFOTIP;
       ListView_SetExtendedListViewStyle(lv1->Handle,Styles);
}  如果要同时显示CheckBoxes和SubImages，先调用一下上面的函数，就解决问题了。   
引：