不多说话，直接上源码： type TFMXCanvasHelper = class helper for TCanvas public procedure StretchDraw(R: TRectF; ABitmap: TBitmap; ADoFit, AHighSpeed: Boolean); end; { TFMX
标签： 缩放
[技巧]按比例缩放整个窗体
许多人不知道VCL里有一个ScaleBy方法，可以用于对从TControl继承下来的组件进行整体缩放，它有两个整形参数，第一个参数除以第二个参数就是缩放倍数。 如TForm.ScaleBy(2,1)就会将窗体整体上放大1倍，包括控件的间距。不过，在交付用户之前，你最好多测试下，保证用的控件的缩放都工作正常。 缩放的两个