|
共有评论10条
当前显示最后6条评论
|
| mbnet |
2008/3/17 19:55:38 |
| 请问在BDS2007下怎么安装？我安装时总是不成功，提示：[Pascal 致命错误] tmsd2007.dpk(161): E2202 Required package 'vcl' not found |
| derec2004 |
2008/4/1 17:38:56 |
| 这个是怎么安装的啊，怎么我安装上以后，用AdvToolBar控件，在其上添加不了按钮，你们有谁能添加的吗？右键菜单上根本就没有相关的菜单。郁闷死了。 |
| 2945ayun |
2008/4/7 9:59:56 |
| 怎么下载不了 |
| jhlz1968 |
2008/4/12 6:49:11 |
| 我在D6 sp2装上了,但advStringGrid不能用,总提示有个属性不存在 |
| jacksonhe702 |
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的类型。 |
| efwef_ererg |
2008/6/4 12:41:59 |
| 怎么装啊~~~我用的是 Delphi 2007 |
| 我要发表评论 |
查看全部评论 |
![]() |
|
