不多说话，直接上源码： type TFMXCanvasHelper = class helper for TCanvas public procedure StretchDraw(R: TRectF; ABitmap: TBitmap; ADoFit, AHighSpeed: Boolean); end; { TFMX