1

以下代码会带来一些麻烦：

procedure TForm1.Button1Click(Sender: TObject);
var dc : HDC;
    meta : TMetafile;
    metaCanv : TMetafileCanvas;
    cr : TRect;
    sz : TSize;
begin
     dc := GetDC(0);
     SetWindowExtEx(dc, 4800, 1300, @sz);
     ShowMessage(Format('size %d, %d', [sz.cx, sz.cy]));

     meta := TMetafile.Create;

     meta.SetSize(4500, 1300);

     metaCanv := TMetafileCanvas.Create(meta, dc);
     try
        IntersectClipRect(metaCanv.Handle, 0, 0, 4600, 1300);

        cr := metaCanv.ClipRect;

        with cr do
             ShowMessage(Format('clip rect: %d, %d, %d, %d', [Top, Left, Bottom, Right]));

     finally
            metaCanv.Free;
            meta.Free;
     end;


     DeleteDC(dc);
end;

问题是剪切矩形绑定到显示分辨率，例如，如果您的屏幕有 1920 像素宽度，剪切矩形绑定到此值。

请注意，完全删除剪辑并将线条事件绘制到完整的底部矩形角不是问题。如果设置了剪切区域（例如，示例中显示的完整图元文件宽度/高度）然后绘制线条 -> 将其剪切到屏幕宽度/高度，则会出现问题。

我知道我可以使用例如打印机 dc 作为参考，这基本上可以解决问题，但有一些副作用（例如 gdi+ 使用这种 dc 绘制图元文件根本不起作用）。

任何人都知道如何“欺骗”系统以使这种奇怪的剪辑行为不再存在？

4

1 回答 1

3

ClipRect作为唯一可以绘制的部分是错误的假设。

上的文档TCustomCanvas.ClipRect：

使用 ClipRect 确定画布需要绘制的位置。

这很容易通过绘制ClipRect并尝试显示已绘制的内容来验证，例如如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  MetaFile: TMetafile;
  MetaCanvas: TMetafileCanvas;
begin
  MetaFile := TMetafile.Create;
  try
    MetaCanvas := TMetafileCanvas.Create(MetaFile, 0);
    try
      MetaFile.SetSize(4500, 1300);
      MetaCanvas.LineTo(4500, 1300);
    finally
      MetaCanvas.Free;
    end;
    Canvas.Draw(-4400, -1200, MetaFile);
  finally
    MetaFile.Free;
  end;
end;

在此处输入图像描述

于 2013-03-21T13:15:34.273 回答