CnPack Forum


 
Subject: 控件修改:让CnSpinEdit支持Double
ouyongke (I'm OuKe)
灌水科科长
Rank: 3Rank: 3


UID 12147
Digest Posts 1
Credits 102
Posts 38
点点分 102
Reading Access 10
Registered 2007-4-28
Location 湖南/北京
Status Offline
Post at 2008-9-20 17:42  Profile | Blog | P.M. 
控件修改:让CnSpinEdit支持Double

昨晚没睡,能力有限,测试平台有限,只做了两点修改,还请开发组、各位网友帮忙测试:
1、让CnSpinEdit支持还小数点的数字;
1.1、顺便增加了小数位数和只能是整数两个属性;
2、增加文字右对齐的控件属性。

说明:
    根据“CnPack_20080825”中的控件进行修改;
    压缩包共三个文件,除了CnSpin.pas之外,另外两个是CnPack包里使用了CnSpEdit的两个窗体控件,相应做了调整,这个两个文件也就是在他们窗体建立时,设置CnSpEdit.IntegersOnly := True;,再在各引用Value处对他们Round一下,请自行备份后再进行覆盖;

    修改、测试环境:D7 + WinXP pro sp2。

//===注意:CnPack 20080825 这个控件包请自行下载,本压缩包只提供本人此次修改的几个文件
也怪我刚才没说清楚。

更新记录:
1、修改 整数状态时录入小数也可以正常显示和取值的BUG //by OuKe 2008.09.20 20:41:32

{//=========大家都来试用一下,有什么问题、需求都提出来哦
//=========大家都来试用一下,有什么问题、需求都提出来哦
//=========大家都来试用一下,有什么问题、需求都提出来哦
}

[ 本帖最后由 ouyongke 于 2008-9-22 10:11 编辑 ]


Attachment: [修正版,请下载此压缩包] 欧科修改SpEdit.rar (2008-9-20 21:06, 11.62 K)
Download count 457




城市里,我像一颗尘埃,默默地存在.........
Top
ouyongke (I'm OuKe)
灌水科科长
Rank: 3Rank: 3


UID 12147
Digest Posts 1
Credits 102
Posts 38
点点分 102
Reading Access 10
Registered 2007-4-28
Location 湖南/北京
Status Offline
Post at 2008-9-20 17:49  Profile | Blog | P.M. 
家里没有上网,刚刚查了一下,03时居然有人已经做了支持小数的SpEdit,不知道为什么没有加进来。
这几天工作终于可以松一口气了,上来一看,CnPack控件包更新了 ,果然加了好多好东东。
公司里由核心开发团队开发的SpEdit支持小数,可是咱们这个居然不支持,可惜我没有公司控件的源码,不然直接贴进来换一下得啦
想想应该不难,周末睡不着,改改练练手吧。。。。。。
于是,就有了上面的东东。




城市里,我像一颗尘埃,默默地存在.........
Top
wsc188
新警察
Rank: 1



UID 39119
Digest Posts 0
Credits 28
Posts 11
点点分 28
Reading Access 10
Registered 2008-3-22
Status Offline
Post at 2008-9-20 18:37  Profile | Blog | P.M. 
哈哈..

哈哈.辛苦了..
Top
wsc188
新警察
Rank: 1



UID 39119
Digest Posts 0
Credits 28
Posts 11
点点分 28
Reading Access 10
Registered 2008-3-22
Status Offline
Post at 2008-9-20 18:42  Profile | Blog | P.M. 
打开,,,报,,找不到DFM文件...
是不是少了呀?
哈哈.
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2008-9-20 23:09  Profile | Blog | P.M. 
辛苦了。等大伙测测改改稳定了后,就并入CnPack组件包。
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2008-9-22 10:55  Profile | Blog | P.M. 
对了。IntegerOnly属性默认是否能直接改成True?这样以前使用到CnSpinEdit的组件也不需要修改了,保持兼容。
否则CnWizards里头用了CnSpinEdit的还得改。
Top
ouyongke (I'm OuKe)
灌水科科长
Rank: 3Rank: 3


UID 12147
Digest Posts 1
Credits 102
Posts 38
点点分 102
Reading Access 10
Registered 2007-4-28
Location 湖南/北京
Status Offline
Post at 2008-9-23 12:00  Profile | Blog | P.M. 
嗯,是我的疏忽,小数位自动为0,这里还是为True好些。
不过,兼容性还是不行呀,他的Value可不是Integer型,还是要Round()




城市里,我像一颗尘埃,默默地存在.........
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2008-9-23 12:34  Profile | Blog | P.M. 
这倒是个问题,如果加个FloatValue的属性的话也有点别扭。
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2008-9-23 15:00  Profile | Blog | P.M. 
要不将其Value属性改成Variant?
Top
ouyongke (I'm OuKe)
灌水科科长
Rank: 3Rank: 3


UID 12147
Digest Posts 1
Credits 102
Posts 38
点点分 102
Reading Access 10
Registered 2007-4-28
Location 湖南/北京
Status Offline
Post at 2008-9-24 20:03  Profile | Blog | P.M. 
嗯,是个办法,晚上回去试试




城市里,我像一颗尘埃,默默地存在.........
Top
 




All times are GMT++8, the time now is 2024-11-22 12:50

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.009614 second(s), 8 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP