捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:TMS Component Pack 4.6.0.5
efwef_ererg 34440 2008/6/4 12:41:59
怎么装啊~~~我用的是 Delphi 2007
jacksonhe702 34354 2008/5/30 17:40:17
修正TMS的TAdvOfficePager, TAdvOfficeTabSet, TAdvOfficeMDITabSet不兼容汉字问题
今天,偶然在使用TMS的TAdvOfficePager时发现在设置TAdvOfficePager的Page时,如果Page的Caption存在汉字,那么TAdvOfficePager在绘制Page的Caption时就会出现很多乱码。刚刚察看代码,发现是String和WideString的问题,String类型默认是单字节,而WideString是双字节的,那么在调用Length(Page.Caption)时就会产生字符串长度的问题。因此在AdvOfficePager,AdvOfficeTabSet单元中找到DrawVistaText函数,修正如下:

function DrawVistaText(Canvas: TCanvas; Alignment: TAlignment; r: TRect; FCaption:string; AFont: TFont; Enabled: Boolean; RealDraw: Boolean; AntiAlias: TAntiAlias; Direction: TTabPosition; Ellipsis: Boolean): TRect;
将Caption:String改为FCaption:String,然后在函数中新建一个变量“Caption:WideString”,最后在代码段的第一行加入:Caption:=FCaption;即可。

修正代码完全保证了源代码的兼容性,仅仅是在开始改变了Caption的类型。
jhlz1968 33667 2008/4/12 6:49:11
我在D6 sp2装上了,但advStringGrid不能用,总提示有个属性不存在
2945ayun 33581 2008/4/7 9:59:56
怎么下载不了
derec2004 33530 2008/4/1 17:38:56
这个是怎么安装的啊,怎么我安装上以后,用AdvToolBar控件,在其上添加不了按钮,你们有谁能添加的吗?右键菜单上根本就没有相关的菜单。郁闷死了。
mbnet 33335 2008/3/17 19:55:38
请问在BDS2007下怎么安装?我安装时总是不成功,提示:[Pascal 致命错误] tmsd2007.dpk(161): E2202 Required package 'vcl' not found
lrok 33195 2008/3/6 10:19:44
相当不错啊,顶
ffx132 33171 2008/3/3 14:24:46
请问,Help文件去哪里找呀?之前下载其他版本的都没有Help文件。
51sh 33165 2008/3/3 9:53:17
先下一个保留一下, 有源码.
 没有用过,因此不知道是否全!
zhlmxh 33163 2008/3/3 0:59:08
好,谢谢!
第一页 上一页 下一页 最后页 有 10 条纪录 共1页 1 - 10
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表