读书人

无后缀名的文件在bsSkinFileListView里

发布时间: 2012-02-22 19:36:56 作者: rapoo

无后缀名的文件在bsSkinFileListView里看不到?(拜托老妖关注一下)
使用BusinessSkinForm中的bsSkinFileListView显示文件,Mask属性设为 "*.*|*.* ",发现没有后缀名的文件它不给显示.
哪位老大知道该怎么解决呢?

[解决办法]
刚才分析了一下,bsSkinShellCtrls.pas文件中,CheckFile函数有些小BUG,修改如下:
定位到3513行
将代码
CanAdd := ((Pos( '. ', TempMask) <> 0) and MatchesMask(S, TempMask));
修改为
CanAdd := ((Pos( '. ', TempMask) <> 0) and MatchesMask(S, TempMask)) or ((Pos( '*.* ', TempMask) <> 0) and (Pos( '. ', S) = 0));

保存后重新编译一下,再安装。不过为保险起见,编译安装前最好将原有的版本卸载:Component--> Install Packages--> 找到BusinessSkinForm VCL,然后点击Remove就可以了。

以上所说的修改源码,是针对BusinessSkinForm Full Source的版本,如果你的BusinessSkinForm不是完整源码版,就去我的站上下载一个:
BusinessSkinForm v4.40
一款可以用于Delphi和BCB中进行应用程序外观(皮肤)设计的编程控件。
http://www.ccrun.com/view.asp?id=150

读书人网 >C++ Builder

热点推荐