许多人不知道VCL里有一个ScaleBy方法,可以用于对从TControl继承下来的组件进行整体缩放,它有两个整形参数,第一个参数除以第二个参数就是缩放倍数。
如TForm.ScaleBy(2,1)就会将窗体整体上放大1倍,包括控件的间距。不过,在交付用户之前,你最好多测试下,保证用的控件的缩放都工作正常。
缩放的两个整数选择时,你自己一定要注意,尽量不要选3、9等能玩成无限循环小数的比较,否则放大了缩小不回去,那是没人负责的。
许多人不知道VCL里有一个ScaleBy方法,可以用于对从TControl继承下来的组件进行整体缩放,它有两个整形参数,第一个参数除以第二个参数就是缩放倍数。
如TForm.ScaleBy(2,1)就会将窗体整体上放大1倍,包括控件的间距。不过,在交付用户之前,你最好多测试下,保证用的控件的缩放都工作正常。
缩放的两个整数选择时,你自己一定要注意,尽量不要选3、9等能玩成无限循环小数的比较,否则放大了缩小不回去,那是没人负责的。
登录 |