如何将TMetafile指定区域绘制到TCanvas并转换坐标？

核心方案：坐标平移+裁剪区域组合实现 #

不需要使用SetWorldTransform，针对你要提取指定TRect区域的需求，通过Canvas坐标系平移+裁剪区域限制就能轻松完成，完全可以借助临时TBitmap的Canvas来绘制TMetafile的指定区域。

具体实现步骤与代码示例 #

procedure DrawMetafileRegion(const Metafile: TMetafile; const SourceRect: TRect; TargetCanvas: TCanvas);
var
  TempBmp: TBitmap;
  OffsetX, OffsetY: Integer;
  TargetSize: TSize;
begin
  // 计算目标区域尺寸
  TargetSize.cx := SourceRect.Right - SourceRect.Left;
  TargetSize.cy := SourceRect.Bottom - SourceRect.Top;

  // 创建临时Bitmap作为裁剪载体，尺寸与SourceRect一致
  TempBmp := TBitmap.Create;
  try
    // 适配300DPI：默认TBitmap为96DPI，需转换为目标DPI的像素尺寸
    TempBmp.Width := Round(TargetSize.cx * 300 / 96);
    TempBmp.Height := Round(TargetSize.cy * 300 / 96);
    TempBmp.SetDPI(300, 300);
    TempBmp.Canvas.Brush.Color := clWhite; // 按需设置背景色
    TempBmp.Canvas.FillRect(Rect(0, 0, TempBmp.Width, TempBmp.Height));

    // 计算平移偏移量：将SourceRect的左上角映射到Canvas原点(0,0)
    OffsetX := -SourceRect.Left;
    OffsetY := -SourceRect.Top;

    // 保存Canvas状态，避免影响后续绘制操作
    TempBmp.Canvas.SaveState;
    try
      // 设置裁剪区域，仅保留与目标尺寸匹配的范围
      TempBmp.Canvas.ClipRect := Rect(0, 0, TempBmp.Width, TempBmp.Height);
      // 平移Canvas坐标系，让元文件的SourceRect左上角对齐Canvas原点
      TempBmp.Canvas.TranslateTransform(OffsetX, OffsetY);
      // 绘制元文件，此时只有SourceRect范围内的内容会被渲染到TempBmp
      TempBmp.Canvas.Draw(0, 0, Metafile);
    finally
      TempBmp.Canvas.RestoreState;
    end;

    // 将裁剪后的内容输出到目标Canvas
    TargetCanvas.Draw(0, 0, TempBmp);
  finally
    TempBmp.Free;
  end;
end;

关键细节说明 #

• 坐标系平移：通过TranslateTransform直接偏移Canvas原点，无需复杂的矩阵变换，完全适配你的区域提取需求，比SetWorldTransform更轻量高效。
• DPI适配：临时Bitmap必须设置300DPI并转换对应尺寸，否则导出PDF时会出现比例偏差，导致切割后的图片尺寸不符合要求。
• 区域遍历逻辑：先获取TMetafile的实际像素尺寸（结合其DPI计算），然后按双向最大3000像素的限制拆分出多个SourceRect，逐个调用上述方法完成切割绘制。

内容的提问来源于stack exchange，提问作者SOLID Developper