[FMX]增强画布的 DrawBitmap 函数

不多说话,直接上源码:

参数说明: R :绘制目标区域 ABitmap:要绘制的位图内容 ADoFit:是否按比例自适应目标区域大小 AHighSpeed:是否高速绘图,如果你是要绘制边缘清晰的位图,如二维码,那就要设置为 true,否则设置为 fals

[技巧]按比例缩放整个窗体

许多人不知道VCL里有一个ScaleBy方法,可以用于对从TControl继承下来的组件进行整体缩放,它有两个整形参数,第一个参数除以第二个参数就是缩放倍数。 如TForm.ScaleBy(2,1)就会将窗体整体上放大1倍,包括控件的间距。不过,在交付用户之前,你最好多测试下,保证用的控件的缩放都工作正常。 缩放的两个